Hi,
Also ich habe eine Tabelle wo verschiedene Daten eingetragen werden.
z.B.
Datum Aktion
01.10.2007 Müll runtergebracht
01.10.2007 Wohnung Gesaugt
02.10.2007 Auto gewaschen
Auf der Rechten seite ist eine Tabelle wo steht wie viele sachen ich an einem Tag gemacht habe, das sieht dann so aus
Datum Anzahl
01.10.2007 2
02.10.2007 1
Desweiteren zum besseren Verstehen,
Ich habe eine Userform wo ich das Datum und die Aktion eintrage, da ich nicht immer am selben Tag das eintrage. Das sieht dann im Code so aus,
Dim y As Integer
Do Until Cells(y, 1) = ""
y = y + 1
Loop
Cells(y, 1) = Textbox1.Text
Cells(y, 2) = Textbox2.Text
Jetzt entsteht das Problem, ich habe die Zählung automatisiert mit diesem Code:
Dim var1 As Integer
Dim var2 As Integer
var1=3
Do Until Cells(var1, 1) = ""
var2=3
Do Until Cells(var2, 9) = Cells(var1, 1)
var2 = var2 + 1
Loop
Cells(var2, 10) = Cells(var2, 10) + 1
Loop
Bei var2 = var2 + 1 entsteht nur der Überlauf, zeigt er mir wenn ich auf debuggen klicke zumindestens an.
wenn ich den eingabe Code so schreibe:
Dim y As Integer
Do Until Cells(y, 1) = ""
y = y + 1
Loop
Cells(y, 1) = Date
Cells(y, 2) = Textbox2.Text
dann bekomme ich keinen Überlauf.
Habe auch schon
Cells(y, 1) = Textbox1.Value
ausprobiert, ebenfalls überlauf.
Ich hoffe das reicht für eine Fehlerdiagnose, achja... ich habe auch schon das Datum in verschiedenen Formen eingegeben.
Schonmal danke im vorraus
MfG
Meik |