Wie bekomme ich es mit VBA hin um nach in eine Tabelle, nach jede gefüllte Zeile in Spalte A, 5 leere Zeilen einzufügen und den Wert von C bis G in der neue Leere Zeilen von Spalte B zu kopieren?
Vielen Dank & Grüß,
Benny
Sub GHWildUmstellen()
Dim GHAktZelle As Range
Range("A1").Select
Set GHAktZelle = Selection
While GHAktZelle.Row "" Then
Range(GHAktZelle.Offset(1, 0), GHAktZelle.Offset(5, 0)).EntireRow.Insert
Range(GHAktZelle.Offset(0, 2), GHAktZelle.Offset(0, 6)).Copy
GHAktZelle.Offset(1, 1).PasteSpecial Transpose:=True
End If
GHAktZelle.End(xlDown).Select
Set GHAktZelle = Selection
Wend
End Sub
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