Hallo zusammen,
ich habe zwei Tabellenblätter, "Index" und "Overview", im Index gibt es nur Spalte A mit den gleichen Kategorien (identisch) wie im Blatt Overview Spalte A, aber in Overview stehen noch Zahlen in Spalten B-M für eine Jahresübersicht.
Ich würde gerne über einen Button auswählen an welcher Zeilenposition eine neue Zeile eingefügt werden soll, auf beiden Tabellenblättern.
Für ein Blatt habe ich das schon und das funktioniert so:
Private Sub CommandButton1_Click()
Dim rowNum As Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Bei welcher Nummer soll eine Zeile eingefügt werden:", _
Title:="Neue Zeile", Type:=1)
Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub
..aber ich weiß nicht wie ich ein zweites Blatt anhängen kann. Kann mir dabei jemand helfen? Würde mich freuen :)
Viele Grüße,
Hannah
|