Hallo ihr Lieben,
ich hab ein Problem, ich möchte über einen Button auf mehreren Tabellenblättern eine Zeile hinzufügen, dafür habe ich diesen Code
Private Sub CommandButton2_Click()
Dim rowNum As Long
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Bei welcher Zeilennummer soll eine Zeile eingefügt werden:", _
Title:="Neue Zeile", Type:=1)
Worksheets("Tabelle1").Rows(rowNum).Insert
Worksheets("Tabelle2").Rows(rowNum).Insert
End Sub
Das funktioniert auch soweit, aber gibt es noch eine Möglichkeit das genauer zu definieren, zum Beispiel
für Tabelle2 möchte ich nnicht eine ganze Zeile einfügen sondern nur für C:Z
Hoffe das war soweit verständlich :)
|