Ich möchte per VBA-Code untersuchen, ob in einer Zelle mehr als 1 Wert aufgeführt ist.
Voraussetzung: Wenn eine Zelle mehr als einen Eintrag hat, dann sind diese mit einem Komma getrennt.
Nun bringt aber VBA die Fehlermeldung 1004, wenn kein Komma gefunden wurde.
Wie kann ich das verbessern?
Das Makro sieht so aus:
Sub test(inpWB as Workbook)
dim a as variant
a = Application.WorksheetFunction.Find(",", Workbooks(inpWB.Name).Sheets(1).Range("N15"))
If IsNumeric(a) Then 'wenn vorhanden dann
MsgBox "gefunden an " & a & ". Stelle" 'hier kommt dein Code hin
Else 'sonst
MsgBox "kein Komma gefunden"
End If
End Sub
Danke für eure Hilfe!
Gruss, Rudi