ich versuche gerade einen VBA Code zu basteln und zwar ohne Selection / Select.
Darin soll der Bereich der ersten x Zeilen in Spalte CK im DIM gespeichert werden und an der aktuellen Zelle (wo der Cursor steht) in Form von "Zeile einfügen" eingefügt werden.
Probiere erfolglos folgende Formel:
Sub Agenda_einfugen()
Dim text As link
Dim zeileanzahl As zeilanz
zeileanz = cell(91, 1).Value
link = Range(Cells(90, 1), Cells(90, zeileanz)).Value
link.Insert Shift:=xlDown
End Sub
Wie viel der ersten Zeilen genommen werden sollten, bestimmt die Zahl in Zelle CL1.
Es kommt aber immer eine Fehlermeldung. Im Grunde ist es so ähnlich wie einen Bereich markieren, kopieren und an anderer Stelle durch "STRG"&"+" -> Zeilen unten einfügen.
Bitte um Hilfe.
LG Anton