Thema: Inhalte bei bestimmten Werten nicht einfügen | Herbers Excel-Forum

Hallo alle zusammen,
ich habe einen Code, mit dem ich Zeilen aus einem Tabellenblatt in ein anderes schreibe. Jetzt will ich einfach noch einfügen, dass, wenn z.B. in der Zelle "Sonne" steht, gleich auf die nächste Abfrage gesprungen wird, also nix passiert. Mit X=X komme ich hier nicht weit. Mit X=X+1 wird aber immer eine Leerzelle mit ausgegeben. Wo liegt mein Fehler?
Dim Zelle As Range
Dim X As Long
Set Zelle = rgQuelle1.Offset(X, 0)
Do Until IsEmpty(Zelle)
If Zelle.Offset(0, 7).Value = "Sonne" Then
X = X
Set Zelle = rgQuelle1.Offset(X, 0)
Else
rgGesamt.Offset(X, 0) = Zelle.Value 'Das Projekt
rgGesamt.Offset(X, 1) = "JA"
rgGesamt.Offset(X, 2) = "NEIN"
rgGesamt.Offset(X, 3) = Zelle.Offset(0, -4).Value
X = X + 1
Set Zelle = rgQuelle1.Offset(X, 0)
End If
Loop
Vielen Dank
Nicole

HI Nicole, versuches mal so:
Dim Zelle As Range
Dim X As Long
Set Zelle = rgQuelle1.Offset(X, 0)
Do Until IsEmpty(Zelle)
If Zelle.Offset(0, 7).Value = "Sonne" then
X=X+1
Goto weiter
Else
rgGesamt.Offset(X, 0) = Zelle.Value 'Das Projekt
rgGesamt.Offset(X, 1) = "JA"
rgGesamt.Offset(X, 2) = "NEIN"
rgGesamt.Offset(X, 3) = Zelle.Offset(0, -4).Value
X = X + 1
Set Zelle = rgQuelle1.Offset(X, 0)
End If
weiter:
Loop
Gruss Chris