steh auf'm schlauch und brauch starthilfe
habe eine excel tabelle mit button, der userform startet
in der userform ist eine combobox, die mit daten aus der tabelle "daten" gefüllt wird
das vba funktioniert korrekt, aber leider erst, wenn ich einen button zwischenschalte der das vba ausführt
wie bekomme ich die combobox gefüllt, ohne das der user einen button drücken muss
startbutton in der exceltabelle
Private Sub b_start_Click()
Load Userform_DBstart
Userform_DBstart.Show vbModeless
end sub
sub in der userform
Private Sub schriftfuehrerbox()
Worksheets("Daten").Activate
Dim suchzeile As Integer
With ActiveSheet
For suchzeile = 1 To .UsedRange.Rows.Count
If WorksheetFunction.CountIf(.Range("A1:A" & suchzeile), Cells(suchzeile, "A")) = 1 Then
combobox_schrift.AddItem .Cells(suchzeile, "A").Value
End If
Next suchzeile
End With
End Sub
Private Sub CommandButton1_Click()
schriftfuehrerbox
End Sub