Objektvariable oder With-Blockvariable nicht festg
23.11.2003 10:55:05
Franz W.
ich habe in einer UF 3 Felder: Strasse - PLZ - Ort.
Da es sich bei der Eingabe von Daten um Wohnobjekte handelt, kommen immer wieder diesselben Adressen vor. Darum habe ich für "Strasse" eine dreispaltige Kombobox erstellt, die sich die Daten aus dem benannten Bereich "Adressen" holt und dann in die Textfelder "PLZ" und "Ort" automatisch die dazugehörigen Werte einträgt. Der Code:
Private Sub cmbStrasse_Change()
Dim KdRng As Range, sSearch$, Found As Range
Set KdRng = Worksheets("help").Range("Adressen")
sSearch = cmbStrasse.Value
With Worksheets("help")
If .Range("B65536") = "" Then LoLetzte = .Range("B65536").End(xlUp).Row Else LoLetzte = 65536
Set Found = .Range("B33:B" & LoLetzte).Find(sSearch, LookIn:=xlValues)
End With
With Application.WorksheetFunction
If cmbStrasse <> "" And Found <> 0 Then
txtPLZ = .VLookup(cmbStrasse, KdRng, 2, False)
txtOrt = .VLookup(cmbStrasse, KdRng, 3, False)
Else
txtPLZ = ""
txtOrt = ""
End If
End With
End Sub
Trage ich in die Kombobox für die Strasse allerdings einen Wert ein, der nicht in der Liste steht (also "Found = Nothing"), kommt die Fehlermeldung " Objektvariable oder With-Blockvariable nicht festgelegt. " und zwar bei der Zeile:
If cmbStrasse <> "" And Found <> 0 Then
Ich komme nicht drauf, was da zu tun ist und bitte Euch um Eure Hilfe.
Vielen Dank im Voraus und Grüße
Franz