ich habe mit eurer Hilfe schon ein stattliches Userform erstellen können.
Jetzt sitze ich noch vor einem kleinem Problem.
Ich wähle über eine Combobox Werte aus Spalte A aus, und möchte in Abhängigkeit von der Auswahl
die Eingaben in Spalte B und C gleiche Zeile löschen.
Ich habe folgenden Code:
Option Explicit
Private Sub UserForm_Activate()
Dim LoI As Long
With Worksheets("Promotionbelegung")
For LoI = 8 To 56
If .Cells(LoI, 3) "" Then ComboBox1.AddItem .Cells(LoI, 1)
Next LoI
End With
' Dieser Code spielt mir nur Werte in meine Combobox, wenn in Spalte C ein Inhalt zu finden ist. _
End Sub
Private Sub CommandButton1_Click()
Call UserForm_Activate
'hiermit sollen die Inhalte in Spalte 2 und 3 in der Zeile, die mit der Combobox1
'ausgesucht wurde gelöscht werden
Sheets("Promotionbelegung").Cells(ComboBox1.ListIndex + 8, 2).ClearContents
Sheets("Promotionbelegung").Cells(ComboBox1.ListIndex + 8, 3).ClearContents
End
End Sub
Es löscht nur leider nicht die Werte.
Für einen kleinen Tip wäre ich euch sehr dankbar..
Viele Grüße,
Jeron