mit VBA eine beliebige Zellposition in ein anderes Arbeitsblatt der selben Arbeitsmappe übernehmen

Question

Hallo Experten, ich bitte um Hilfe.
Ich möchte eine Zeile an einer beliebigen Positions des Arbeitsblattes1 einfügen und danach den selben Vorgang auf der gleichen Zellposition im Arbeitsblatt2 wiederholen.
Hat jemand einen passenden Code parat, der im Arbeitsblatt2 die selbe Zellposition wie im Arbeitsblatt1 definiert?
Freue mich auf Eure Antworten.
Jamy

Answer 1

Hallo Jamy,

kopiere den folgenden Code in ein Standard-Modul deiner Arbeitsmappe:

Sub zeilen_einfügen()

'Zeile in aktuellem Tabellenblatt einfügen
ActiveCell.EntireRow.Insert

'Zeile in anderem Tabellenblatt einfügen - Namen anpassen
With Worksheets("Tabelle2")
.Rows(ActiveCell.Row).Insert
End With

End Sub

Wenn du in Blatt an der aktuellen Cursorposition eine Zeile einfügen willst, dann benutze den obigen Code. Den Namen der anderen Tabelle musst du natürlich noch auf deine Bedürfnisse anpassen.

Gruß

M.O.