Suchbegriff nicht gefunden
05.10.2018 14:19:43
Peter
könnt ihr mir bitte helfen, wie ich den Code ändern muss.
Sub suchen()
Dim suchbegriff As String
Dim rng As Range
suchbegriff = Worksheets("Kontosalden").Range("A2")
Set rng = Worksheets("Kontosalden").Range("O2:O201").Find(suchbegriff)
If rng Is Nothing Then
MsgBox "kein Unterkonto vorhanden"
' ListBox2.RowSource = ""
Exit Sub
Else
'führt den cmdbtn3 aus - füllt Listbox2 aufgrund Wert Textbox3
'CommandButton3 = True
MsgBox "vorhanden"
End If
End Sub
Zellbezug eingetragen wird.
Besten Dank für eure Hilfe.
Gruss
Peter