Inhalte bei bestimmten Werten nicht einfügen
Nicole
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
Anzeige