leere Zellen füllen/überspringen
17.11.2004 16:45:20
Dzenko
habe eine große Tabelle. Für meine Auswertungen benötige ich die Datum-Spalte.
Alle Daten (ich meine den plural von Datum), die gleich dem 01.01.2005 sind
sollen fettgeschrieben und unterstrichen werden.
Das Problem ist, dass nicht alle Datumszellen auch mit datem gefüllt sind.
Mittes VBA-Code funktioniert es nur bis zu der Stelle, wo die Zelle leer ist.
Dann wird mein VBA-Code beendet.
Der Code lautet:
Sub selektion()
Do
If Range("c1").Value = "" Then
Rows("1:1").Delete Shift:=xlUp
End If
Loop Until Range("c1").Value <> ""
Range("c1").Select
Application.ScreenUpdating = False
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "01.01.2005" Then
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.Bold = True
End If
Loop Until ActiveCell.Value = ""
Application.ScreenUpdating = True
End Sub
Gibt es eine Möglichkeit, die leeren Zellen zu überspringen oder in einem vorhergehenden Befehl auszufüllen z.B. Mit einem Fragezeichen?
Vielleicht auch ohne VBA schon im Excel Sheet?
Gruß
Dzenko