Kann "ComboBox.Value" nicht setzen...
07.10.2003 00:07:38
Franz W.
ich kann für eine ComboBox in einer UF den Value nicht setzen:
Private Sub cmbMieterAlt_Change()
Set KdRng = Sheets("aktive_Kunden").Range("NurAktive")
With Application.WorksheetFunction
If Not cmbMieterAlt = "" Then
txtMieterAlt = _
"Objekt: " & _
.VLookup(cmbMieterAlt, KdRng, 1, False)
cmbMieterAlt.Text = _
.VLookup(cmbMieterAlt, KdRng, 3, False) & " " & _
.VLookup(cmbMieterAlt, KdRng, 4, False) & " " & _
.VLookup(cmbMieterAlt, KdRng, 5, False) & ", Kd.-Nr.: " & _
Format(.VLookup(cmbMieterAlt, KdRng, 2, False), "000")
cmbMieterAlt.Value = .VLookup(cmbMieterAlt, KdRng, 2, False)
End If
End With
End Sub
Er markiert die Zeile mit "cmbMieterAlt.Value .... " mit der Meldung: " Die VLookup-Eigenschaft ... kann nicht zugeordnet werden."
Lasse ich aber den Block eins höher weg... :
Private Sub cmbMieterAlt_Change()
Set KdRng = Sheets("aktive_Kunden").Range("NurAktive")
With Application.WorksheetFunction
If Not cmbMieterAlt = "" Then
txtMieterAlt = _
"Objekt: " & _
.VLookup(cmbMieterAlt, KdRng, 1, False)
cmbMieterAlt.Value = .VLookup(cmbMieterAlt, KdRng, 2, False)
End If
End With
End Sub
... markiert auch die Zeile mit dem "....Value" und meldet: " Eigenschaft Value konnte nicht gesetzt werden. Ungültiger Eigenschaftswert."
Hat da zu so später Stunde noch jemand eine Idee, woran das liegen könnte?
Für Hilfe sage ich schon mal Danke
Grüße
Franz