UserForms automatisch bennenen

[Otianer]

Hallo ihr alle,

ich habe wieder ein Problem und zwar bei einem Excel Makro.
Ich soll für die Firma wo ich arbeite(is ne sehr kleine Firma) eine Exceltabelle machen wo man z.B. durchs eingeben von Artikelnummer und Bezeichnung ein neues Tabellenblatt erstellt und jenes dann nach der Bezeichnung gennant wird. Problem an der sache ist das wenn ich auf den Button klicke um dieses Blatt dann zu erstellen klappt es beim erstenmal.
Wenn man aber die Excel tabelle schließt und neu aufruft und es dann nochmal macht dann gibt der den fehler aus das der index nicht stimmt.

Hoffe ihr könnt mir helfen

Hier ma so wie ichs mir gedacht hab(ahja lerne VB Makros grad erst in der Schule)

Private Sub CommandButton1_Click()

Dim sheet As String
If CheckBox1.Value = True Then
    
    Sheets.Add
    sheet = Sheets.Count
    Sheets("tabelle" & sheet).Select
    Sheets("tabelle" & sheet).Name = TextBox2.Text
    
   
Else

End If

End Sub

P.S. : Google hat mir leider nicht geholfen da ich nicht weiß wie ich nach diesem Problem suchen soll

 

[Quaese]

Hi,

vielleicht ist es einfacher, beim Erstellen eines neuen Worksheets die Referenz auf das neue Objekt zurück zu geben und damit weiter zu arbeiten.

Private Sub CommandButton1_Click()
    Dim intSheet As String
    Dim objSheet As Worksheet

    If CheckBox1.Value = True Then
        ' Neues Worksheetobjekt am Ende einfügen und Referenz zurückgeben
        Set objSheet = Sheets.Add(after:=Sheets(Sheets.Count))
        ' Länge ermitteln
        intSheet = Sheets.Count
        objSheet.Select
        objSheet.Name = TextBox2.Text & " (Index " & intSheet & ")"
    Else
    
    End If
End Sub

Ciao
Quaese

 

[Otianer]

Ich danke dir tausendmal hast mir echt geholfen klappt alles super