Hallo Leute,
langsam verzweifle ich, ich hoffe Ihr könnt mir helfen.
Für unsere Kantine habe ich ein kleines Skrip geschrieben, was einfach dafür sorgen soll, dass die Speisen und die Namen derjeniger, die die Speisen zu sich nehmen, erfasst werden soll. Dafür habe ich eine Userform generiert. Nachdem die Speise eingeben wurde und Enter gedrückt wurde, werden die Werte in die Tabelle Auswertung geschrieben und die Userform leergemacht. Anhand der Variablen Nextrow wird dann die nächste Zeile ausgewählt.
73 mal geht alles gut, bei der Nummer 74 erhalte ich denn den Fehler:
Laufzeitfehler -214741848 (80010108)
Die Methode Cells für das Objekt _Worksheet ist fehlgeschlagen
Hier ist der Code, den ich verwende:
Private Sub LebensmittelTXTBX_AfterUpdate()
nextrow = Worksheets("Auswertung").Cells(1, 4).Value
If nextrow = 0 Then nextrow = 1
Worksheets("Auswertung").Cells(nextrow, 1) = MitarbeiterTXTBX
Worksheets("Auswertung").Cells(nextrow, 2) = LebensmittelTXTBX
Worksheets("Auswertung").Cells(nextrow, 1).Select
nextrow = nextrow + 1
Worksheets("Auswertung").Cells(1, 4).Value = nextrow
Unload Eingabemaske
Eingabemaske.Show
Beim Debuggen stört er sich dann an der Zeile Worksheets("Auswertung").Cells(nextrow, 1) = MitarbeiterTXTBX, aber wie gesagt 73 mal geht alles gut....
nextrow habe ich bereits als integer und auch als long deklariert, da gabs keine Änderung.
Ich wäre euch sehr für Eure Hilfe dankbar.
|