AW: Hat es funktioniert wie gewollt?
22.06.2022 11:50:51
Julia
Hallo
leider ging meine Antwort nicht raus, also jetzt nochmal
Ja in deiner Datei hat es so funktioniert wie gedacht, allerdings wenn ich es in meine Datei einfüge und abändere entsprechend meiner Zeilen kommt eine Fehlermeldung. Meine Userform1 heißt Löschen, die Kunden stehen in der Spalte C, und mein CommandButton1 heißt Ja
Attribute VBA_ModuleType=VBAFormModule
Sub Löschen
Private Sub Ja_Click()
Dim bereich As Range, i As Integer
Set bereich = Sheets(1).Range("C:C")
bereich.Find(What:=Me.ComboBox1.Value).Activate
i = bereich.Find(What:=Me.ComboBox1.Value).Row
Sheets(1).Range(i & ":" & i).Select
Selection.Delete
Worksheets(ComboBox1.Value).Delete
End Sub
Private Sub 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
Set bereich = Sheets(1).Range("C:C")
bereich.Find(What:=Me.ComboBox1.Value).Activate
End Sub
End Sub
Sorry für die späte Antwort.
mfg
Habe ich etwas vergessen, abzuändern. Bei mir kommt der Fehler Objektvariable oder With-Blockvariable nicht festgelegt.