Ich habe eine blöde Aufgabe:
in A1 steht eine Nummer zu der eine Nummer B1 gehören sollte.
Wenn B1 leer ist und in B2 oder B3 eine Zahl steht, kopiere die in B1.
geht das?
Danke schonmal :-)
Lg Biolein
Sub kopiere()
Dim z As Range, rng As Range
Set rng = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For Each z In rng
If z.Value = "" Then
If z.Offset(0, 1) "" Then
z.Value = z.Offset(0, 1)
ElseIf z.Offset(0, 2) "" Then
z.Value = z.Offset(0, 2)
End If
End If
Next z
End Sub
Ich setze voraus, dass der Code im aktiven Blatt ausgeführt wird.