ICH MÖCHTE EINEN BEREICH KOPIEREN, A1:A10 ZB. NACH B1:B10, DABEI SOLL ABER BEACHTET WERDEN DAS CELLEN DIE IN B1:B10 EINEN WERT HABEN, NICHT MIT LEEREN CELLEN AUS A1:A10 ÜBERSCHRIEBEN WERDEN:
KANN MIR DABEI BITTE JEMAND HELFEN?
MFG MAX
Sub t()
Dim zelle As Range
For Each zelle In Range("A1:A10")
If zelle.Value <> "" Then zelle.Copy zelle.Offset(0, 1)
Next
End Sub