Schleife

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen!

Ich habe eine Schleife programmiert, die in meiner Exceltabelle bis zu einer bestimmten Zelle (Ende) laufen soll. Währenddessen soll geprüft werden, ob die gerade aktive Zelle leer ist. Ist dies der Fall soll sie rot hinterlegt werden.
Dafür habe ich erstmal folgenden Code geschrieben.

If ActiveCell.Value = „21.04.2004“ Then
Range(„B2“).Select
End If

Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = Ende
If ActiveCell.Value = X Then
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

End If

Die Sache mit dem Einfärben der Zellen funktioniert auch soweit. Aber leider läuft die Schleife nicht bis zur angegebenen Zelle (Ende) durch, sondern stoppt in der ersten leeren Zelle, die rot hinterlegt wurde.
Was muss ich ändern, damit die Schleife bis zum Ende hin durchläuft?

Liebe Grüße

Claudia

#2

hallo claudia,

ich würde am Ende der Tabelle eine Zelle mit „END“ beschreiben und dann:

Dim zeile As Long

Do Until Cells(zeile, 1) = "END"

If ActiveCell.Value = X Then
 With Selection.Interior
 .ColorIndex = 3
 .Pattern = xlSolid
 End With
End If


zeile = zeile + 1
Loop

so ca. :smile:

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]