Code erweitern
21.03.2023 12:24:45
Frank
Hallo nochmal,
ich habe bereits diesen Code:
Private Sub CommandButton1_Click()
Dim wsAct As Worksheet
Dim strBlattname As String
Set wsAct = Worksheets("Vorlage")
strBlattname = InputBox("Namen anlegen?")
If strBlattname > "" Then
wsAct.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = strBlattname
End If
End Sub
durch den Klick kommt eine Abfrage den NAmen des tabellenblatt eingeben. Danach wird die Vorlage kopiert.
jetzt möchte ich das der Name des tabellenblatt ( inputbox ) im Tabellenblatt Übersicht in Spalte D immer darunter schreibt. Aktuell ist D2 bis D8 belegt.
Jetzt muss der Name in D9 rein.
Wäre sowas möglich ?
Anzeige