Abbruch für "ErsteLeereZelle"
Hans
Set ErsteLeereZelle = Union(Range("Bereich1"), Range("Bereich2"), Range("Bereich3")). _
SpecialCells(xlCellTypeBlanks)(1)
If ErsteLeereZelle Is Nothing Then
MsgBox "keine Leerzellen gefunden"
Else
Das Problem ist das wenn keine Zelle mehr frei ist bringt das Programm den Fehler"Laufteitfehler 1004
Keine Leere Zelle gefunden"
cu
Hans