ich möchte folgendes:
wenn eine der Zellen Zeile A6:A88 leer ist, aus der Spalte B6:B88 den Inhalt in die leere gefundene Zelle einfügen
Kann mir jemand Helfen
Gruß
Uwe
=WENN(A6="";B6;A6)
Formel bis C88 ziehen.
Sub Schaltfläche10_Klicken()
Dim raZelle As Range
For Each raZelle In Range("A6:A88")
raZelle = IIf(raZelle = "", raZelle.Offset(, 1), raZelle)
Next raZelle
End Sub
Gruß Werner