Private Sub CommandButton1_Click() Dim anzahl As Variant anzahl = WorksheetFunction.CountIf(Range("A4:A500"), UserForm1.ComboBox1.Value) Unload UserForm1 MsgBox "Der Suchwert kommt " & anzahl & " mal vor!", vbInformation, "Hinweis" End Sub
58.4k Fragen
249k Antworten
7k Nutzer