|
Danke für die Meldung, Ich habe schon das mit set gemacht,
in der MsgBox wird nur der Zellinhalt angezeigt , irgend wie müsste ich aber dann die Zeile generieren und mit "Cells.Offset(ziel + 1).EntireRow.Insert" einfügen, das funktioniert aber nicht weil ich die Zelladresse nicht herausbekomme.
Hier ist das Makro im aktuellen Zustand, vielleicht kannst du mir auf die Sprünge helfen, evtl geht das Ganze auch einfacher....?????
Danke!
Sub a_aa_Roland()
Dim quelle As String
Dim ziel As Range
quelle = ActiveCell.Row
Set ziel = Application.InputBox("Bitte markieren sie das Ziel ...", Type:=8)
'MsgBox (quelle & "========>" & ziel)
Rows(quelle & ":" & quelle).Copy
' bis daher gehts.... und dann?
Cells.Offset(ziel + 1).EntireRow.Insert
End Sub
|