Riesenproblem !! Äußerst diffizil...
23.11.2003 23:56:43
Franz W.
bin grad über ne saudumme Sache gestolpert und hab keine Ahnung, was ich da tun kann (würde ja hoffen, für Euch nur ne Kleinigkeit!?!)
Ich habe in einer UF eine Kombobox - in der Liste sind Strassennamen mit Hausnummern - mit folgendem Makro dran:
Private Sub cmbStrasse_Change()
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 Not Found Is Nothing Then
txtPLZ = Format(.VLookup(cmbStrasse, KdRng, 2, False), "00000")
txtOrt = .VLookup(cmbStrasse, KdRng, 3, False)
Else
txtPLZ = ""
txtOrt = ""
End If
End With
dlgKdAendern.LabelStr.Caption = cmbStrasse
End Sub
Nun habe ich z.B. den Eintrag: "Kurzbauerstr. 14" in der Liste (und im Beispiel ist das der einzige Eintrag, der mit einem "K" beginnt). Möchte ich nun einen Eintrag "Kurzbauerstr. 1" ins Feld reinschreiben und fange zu schreiben, so füllt er nach dem Schreiben des Buchstaben "K" bereits das ganze Feld aus mit "Kurzbauerstr. 14".
Gehe ich nun ans Ende und betätige die Rücktaste, DANN LÖSCHT ER NICHT DIE ZIFFER 4 !! Sondern er markiert sie lediglich!! Drücke ich jetzt "DELETE", um die "4" zu entfernen, macht er den Fehler: " Die VLookup-Eigenschaft ... konnte nicht zugeordnet werden. " Und das bei der Zeile: txtPLZ = Format(.VLookup(cmbStrasse, KdRng, 2, False), "00000"), weil er ja oben für "Found" schon den Wert "Kurzbauerstr. 14" gefunden hat.
Drücke ich bei markierter "4" eine andere Zahl und mache z.B. aus der "14" eine "17", akzeptiert er das.
Drücke ich bei markierter "4" die Leertaste, klappts auch.
Ich weiß aber nicht wie ich nur die "1" schreiben kann.
Kann ich den Fehler irgendwie abfangen?? Ich weiß nicht wo ich ansetzen soll.
Für Eure Hilfe schon mal ein dickes Dankeschön im Voraus und Grüße
Franz
P.S.: Streich ich das Makro raus, dann kann ich die 4 ganz normal mit der Rücktaste löschen........