Hallo zusammen,
habe folgendes Problem:
Habe eine Tabelle in der ich jeden Tag 1-3 Zeilen eintrage.
Nach jeden Tag habe ich eine Leere Zeile.
Ich möchte das Excel mir die Zelle Aktiviert, vor der zwei leere Zellen sind.
habe es bisher mit folgenden Code gemacht.
sbuch = Mid(s, 2, InStr(2, s, "$") - 2)
With ActiveSheet
i = 3
Do
i = i + 1
s = Cells(i, sbuch)
If Len(s) = 0 Then
Cells(i, sbuch).Activate
Exit Do
End If
Loop While i < 120
End With
ActiveCell.FormulaR1C1 = "."
Selection.Font.ColorIndex = 2
Habe in der leeren Zelle einen Punkt gesetzt und den weiß eingefärbt, so das diese Zelle nicht mehr leer ist, und bei dem nächsten eintrag auch nicht ausgewählt wird.
Es läuft zwar nur muss ich manchmal direkt in der Tabelle was eingeben, und vergesse dann den Punkt.
Bei der nächsten eingabe werden mein eingaben Überschrieben.
Ich hoffe ihr könnt mir helfen.
Holger