|
Hallo,
Ich will per Button klick immer eine neue OBERE Zeile eintragen. Das heist, ich habe jetzt KEINE Zeile, drücke den Buttom, das Makro überprüft ob bereits ein Eintrag vorhanden ist, wenn nicht macht es den ERSTEN. Dann drücke ich wieder den Button, und das Makro prüft erneut, sieht dass ein Eintrag vorhanden ist und schiebt diesen Eintrag eine Zeile runter in dem es eine neue Zeile drüber einschiebt und dort den ZWEITEN eintrag macht.
Doch wenn ich dann wieder den Button klicke und einen DRITTEN eintrag machen will, stoppt das Makro beim Insert Befehl für eine weitere Zeile...
Dazu kommt noch ein weiteres Problem, das ist einfach nicht verstehen kann. Ich habe einen Zähler COUNT der einfach bei jeder Zeile um 1 hochgezählt wird. und der soll dann in jeder Zeile in der ersten Zelle ausgegeben werden. so dass ja dann quasi die 1 nachher ganz unten ist und der letzte Eintrag mit dem höchsten COUNT ganz oben. Aber leider gibt er mir beim ersten Eintrag 1 aus, und bei der eingeschobenen Zeile 0.
Hier mein Code:
If CT = 1 Then
COUNT = 1
GoTo Output
Else
Worksheets("Log-Data").Rows("3:3").Select
Selection.Insert Shift:=xlDown
GoTo Output
End If
Output:
Worksheets("Log-Data").Cells(3, 1) = COUNT
Worksheets("Log-Data").Cells(3, 2) = DATUM
Worksheets("Log-Data").Cells(3, 3) = ZEIT
COUNT = COUNT + 1
CT = CT + 1
Was denkt ihr darüber??
mfG
thiro
|