VBA: Einfügen kopierter Zellen mit Zellauswahl
Sunny
vielleicht kann mir jemand von euch weiterhelfen, denn meine bisherige Suche war leider nicht erfolgreich.
Auf Basis eines aufgezeichneten Makros versuche ich aktuell meine Funktion zu verallgemeinern, _ zur Verdeutlichung hier mal das Makro mit Anmerkungen meinerseits, ob ich auch die Funktionen richtig verstehe:
Sub Test1()
' Test1 Makro
Rows("4:8").Select 'Auswahl der zu kopierenden Zellen
Selection.Copy 'Kopieren der ausgewählten Zellen
Range("A29").Select 'Auswahl der Zelle, wo die kopierten Zellen eingefügt werden
Selection.Insert Shift:=xlDown ' Einfügen der Zellen
End Sub
Die Auswahl der zu kopierenden Zellen möchte ich so lassen, allerdings möchte ich die Zelle, in die die kopierten Zellen eingefügt werden, durch den Benutzer auswählen lassen.
Dazu hab ich schon folgende Lösung gefunden:
Sub Test2()
dim zelleE as Range
Set zelleE = Application.InputBox(Prompt:="Wo einfügen?", Title:="Zellenauswahl", Type:=8)
End Sub
Aber wie bekomme ich meine kopierten Zellen in zelleE bzw. wie werden meine kopierten Zellen an der durch den Benutzer ausgewählten Stelle eingefügt?
Vielen Dank schonmal für eure Hilfe!
Sunny
