beim auslesen einer TextBox bekomme ich ständig die Fehlermeldung "Fehler beim kompilieren - ungültiger Bezeichner" und ich komme einfach nicht darauf warum diese TextBox nicht ausgelesen werden kann. Ziel soll es sein, dass ein neues Tabellenblatt erstellt wird mittels Button und das dieses neue Tabellenblatt die Bezeichnung bekommt die in der TextBox notiert wird.
Hoffe ihr könnt mir weiterhelfen und bedanke mich schon herzlich im Voraus
gruß David
Hier der Code:
Private Sub CommandButton1_Click()
Dim AusgabeFehler As String
Dim TextBox1 As String
Dim Name As String
AusgabeFehler = "Bitte füllen sie das Feld aus"
Sheets("Vorlage_Statusblatt_I").Copy After:=Sheets(Sheets.Count)
Sheets("Vorlage_Statusblatt_I (2)").Select
Sheets("Vorlage_Statusblatt_I (2)").Name = TextBox1.Value
If TextBox1.Value = "" Then AusgabeFehler
End If
End Sub