Vielen Dank für eure Hilfe
Sheets("Preis"). Range("A9:H17")
Selection.Copy
Range("Bereich").Cells(Rows.Count, 3).End(xlUp).Offset(2, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Public Sub Einfuegen()
Dim rZelle As Range
For Each rZelle In Range("Bereich")
If Trim(rZelle.Value) = "" Then
Selection.Copy
rZelle.PasteSpecial Paste:=xlPasteValues
Exit For
End If
Next rZelle
End Sub
Gruß Peter
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen