Tabellenblatt erzeugen
06.04.2018 11:03:16
Klaus
ich habe diesen Code:
Private Sub CommandButton1_Click() ' Button neuer Eintrag
Dim lZeile As Long
lZeile = 2
Do While Trim(CStr(Tabelle9.Cells(lZeile, 4).Value)) ""
lZeile = lZeile + 1
Loop
Tabelle9.Cells(lZeile, 4) = CStr("Neuer Benutzer " & lZeile)
ListBox1.AddItem CStr("Neuer Benutzer " & lZeile)
ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub
Momentan machen wir das so.
ein Benutzer wird angelegt, dann nehmen wir das Tabellenblatt Vorlage kopieren die 1 zu1 und nennen dann diesen Tabellenblatt um in den angelegten Benutzer und schreiben in D2 den Tabellennamen rein.
Kann man dies irgendwie mit diesen Code automatisch machen ?
Und mit diesem Code löschen ich den Benutzer aus dem Tabellenblatt aber dann wäre es gut, wenn das Tabellenblatt des Benutzer gelöscht werden könnte.
Private Sub CommandButton2_Click() ' Button Löschen
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 2
Do While Trim(CStr(Tabelle9.Cells(lZeile, 4).Value)) ""
If ListBox1.Text = Trim(CStr(Tabelle9.Cells(lZeile, 4).Value)) Then
With Tabelle9
.Range(.Cells(lZeile, 4), .Cells(lZeile, 15)).Delete
End With
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub
Danke nochmal und liebe Grüße aus München
Klaus