Betrifft: Inhalte bei bestimmten Werten nicht einfügen
von: Nicole
Geschrieben am: 08.12.2009 16:19:48
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
Betrifft: AW: Inhalte bei bestimmten Werten nicht einfügen
von: Chris
Geschrieben am: 08.12.2009 18:29:32
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