Tabellenblatt löschen per Userform
05.07.2022 11:46:22
Julietta
ich hoffe mir kann nochmal jemand helfen, ich hatte schon mal über dieses Forum folgenden Code als Hilfe bekommen:
Private Sub UserForm_Activate()
Sheets("Bestellung").Select
End Sub
Private Sub Ja_Click()
Dim bereich As Range, i As Integer
Set bereich = Sheets("Bestellung").Range("B:C")
bereich.Find(What:=Me.ComboBox1.Value).Activate
i = bereich.Find(What:=Me.ComboBox1.Value).Row
Sheets("Bestellung").Range(i & ":" & i).Select
Selection.Delete
Worksheets(ComboBox1.Value).Delete
End Sub
Private Sub UserForm_Activate()
Sheets("Bestellung").Select
End Sub
Private Sub Ja_Click()
Dim bereich As Range, i As Integer
Set bereich = Sheets("Bestellung").Range("B:C")
bereich.Find(What:=Me.ComboBox1.Value).Activate
i = bereich.Find(What:=Me.ComboBox1.Value).Row
Sheets("Bestellung").Range(i & ":" & i).Select
Selection.Delete
Worksheets(ComboBox1.Value).Delete
End Sub
Private Sub Kunden_löschen_Initialize()
With Me.ComboBox1
.AddItem "Kunde 1"
.AddItem "Kunde 2"
.AddItem "Kunde 3"
.AddItem "Kunde 4"
End With
End Sub
Private Sub ComboBox1_Change()
Dim bereich As Range
Dim ws As Worksheet
Set bereich = Sheets("Bestellung").Range("D1")
bereich.Find(What:=Me.ComboBox1.Value).Activate
End Sub
Private Sub ComboBox1_Change()
Dim bereich As Range
Dim ws As Worksheet
Set bereich = Sheets("Bestellung").Range("D1")
bereich.Find(What:=Me.ComboBox1.Value).Activate
End Sub
Mein Problem ist jetzt das ich es nicht schaffe das Worksheet mit dem ausgewählten Namen zu löschen, da sie nicht nur den Namen aus Zeile C tragen sondern auch noch aus der Zeile D den Vornamen.
Ich müsste es wahrscheinlich, schon in die Userform Nachnamen und Vornamen einlesen. Aber das bekomme ich einfach nicht hin.
Vielen Dank schon mal