Unerklärliche Fehler
Verfasst: Mi, 06.01.2016 12:19
Hallo in die Runde,
ich habe folgenden Code
Der Aufruf der Prozedur erfolgt über ein Button in einem Datenblatt. Beim Drücken des Button kommt eine Fehlermeldung:
Beim Debuggen komm ich bis zu folgender Stelle
Ich versteh nun nicht wieso das nicht geht. Muss ich irgendwelche Klassen importieren?
Ich hätte noch eine Frage - wieso kann ich die Pivo-Tabel nicht automatisch mitaktuallisieren?
Gruß und Dank!
Sigi
ich habe folgenden Code
Code: Alles auswählen
Sub neuerSpeiseplan()
Dim strSpeisen As String
Dim strSpeiseplan As String
Dim strZutaten As String
Dim strEinkaufliste As String
Dim maxZeilen As Integer
Dim strVergangeSpeisen As String
strSpeisen = "Liste Gerichte"
strSpeiseplan = "Speiseplan"
strEinkaufliste = "Einkaufliste"
strVergangeSpeisen = "SpeichenVergangeneWoche"
maxZeilen = 1
While (Len(Sheets(strSpeisen).Cells(maxZeilen, 1))) > 0
maxZeilen = maxZeilen + 1
Wend
maxZeilen = maxZeilen - 1
Sheets(strVergangeSpeisen).Cells(2, 2) = Sheets(strSpeiseplan).Cells(5, 2)
Sheets(strVergangeSpeisen).Cells(3, 2) = Sheets(strSpeiseplan).Cells(6, 2)
Sheets(strVergangeSpeisen).Cells(4, 2) = Sheets(strSpeiseplan).Cells(7, 2)
Sheets(strVergangeSpeisen).Cells(5, 2) = Sheets(strSpeiseplan).Cells(8, 2)
Sheets(strSpeiseplan).Cells(5, 2) = zufallsSpeise(maxZeilen)
Sheets(strSpeiseplan).Cells(6, 2) = zufallsSpeise(maxZeilen)
Sheets(strSpeiseplan).Cells(7, 2) = zufallsSpeise(maxZeilen)
Sheets(strSpeiseplan).Cells(8, 2) = zufallsSpeise(maxZeilen)
msgbox("Neuer Wochenplan und Einkaufsliste wurden erstellt")
End Sub
Code: Alles auswählen
Basic-Laufzeitfehler
Sub- oder Funktions-Prozedur nicht definiert
Code: Alles auswählen
While (Len(Sheets(strSpeisen).Cells(maxZeilen, 1))) > 0Ich hätte noch eine Frage - wieso kann ich die Pivo-Tabel nicht automatisch mitaktuallisieren?
Gruß und Dank!
Sigi