Microsoft Excel

Herbers Excel/VBA-Archiv

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


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


Beiträge aus den Excel-Beispielen zum Thema "Inhalte bei bestimmten Werten nicht einfügen"