Marko if-Bedingungen! (Marko von UweB)
15.12.2005 09:07:32
UweB)
"Hallo Sebi,
probier es mal so
dim sp1 as range
dim sp2 as range
dim spx as range
dim zelle1 as range
dim zelle2 as range
dim found as boolean
ziel_zeile1 = spx.Row
found=false
' Vergleich Spalte 1 mit Spalte 2
For Each zelle1 In sp1.Cells
If zelle1.Value = "" Then Exit For
For Each zelle2 In sp2.Cells
If zelle2.Value = "" Then Exit For
If zelle1.Value = zelle2.Value then found = true
next
if not found
spx.Parent.Cells(ziel_zeile1, spx.Column).Value = zelle1.Value
ziel_zeile1 = ziel_zeile1 + 1
found = false
End If
Next
' Dann noch mal umgekehrt
Gruss Uwe"
....sollte Spalten vergleichen! Mein Problem ist, ich weis nichts mit der Zeile "IF NOT FOUND" anzufangen! Wird auch im VBA rot angezeigt, habe leider keine Ahnung was daran falsch ist, oder wie es richtig heißen muss!
Wäre über Hilfe dankbar!
Dankeschön Sebi