Kann "ComboBox.Value" nicht setzen...

• Kann "ComboBox.Value" nicht setzen... von Franz W. vom 07.10.2003 00:07:38
  • AW: Kann "ComboBox.Value" nicht setzen... - von Ramses am 07.10.2003 08:03:27
    • Infame Unterstellungen... - von Franz W. am 07.10.2003 08:30:23
      • Sorry,... wollte dir nicht zu nahe treten :-)) o.T - von Ramses am 07.10.2003 08:44:25
        • Du dürftest das sogar, wäre dann wohl fundiert oT - von Franz W. am 07.10.2003 08:56:42

Betrifft: Kann "ComboBox.Value" nicht setzen...
von: Franz W.
Geschrieben am: 07.10.2003 00:07:38
Hallo Fachleute,

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

Betrifft: AW: Kann "ComboBox.Value" nicht setzen...
von: Ramses
Geschrieben am: 07.10.2003 08:03:27
Hallo Franz,

Die VAriablen, die Variablen ... :-)
Ich vermute mal, dass du ohne "Option Explicit" arbeitest, sonst hätte EXCEL hier nämlich mehrmals gemeckert

Dim KdRng As Excel.Range

an den Anfang. Mit der Zuweisung "Set KdRng..." weiss Excel nämlich nicht was du damit meinst. Der Name den du verwendest stimmt hoffentlich. :-)

If Not cmbMieterAlt = "" Tnen

ändern in

If Not Me.cmbMieterAlt = "" Then

"..." Die VLookup-Eigenschaft ... kann nicht zugeordnet werden...."

Dann ist der Suchbegriff nicht vorhanden ! oder kann nicht gefunden werden.

"....VLookup(cmbMieterAlt, KdRng, 1, False)

Das wird von EXCEL als Variable verwendet, dort steht aber nix drin !.
Verwende stattdessen mal

"....VLookup(Me.cmbMieterAlt.Value, KdRng, 1, False)..."

Dann sollte es gehen.

Gruss Rainer

Betrifft: Infame Unterstellungen...
von: Franz W.
Geschrieben am: 07.10.2003 08:30:23
Hallo Rainer,

jetzt bin ich schon so lange hier im Forum und hab schon so oft eins draufgekriegt! Und da traust Du mir zu, dass ich noch ohne Option Explicit arbeite würde! Würd ich mir ja gar nicht mehr trauen!! Bin entrüstet :-))))))))))

Die Variablen sind Public und stehen woanders. Die ersten beiden Blöcke:
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")
...klappen ja auch.

Ich hatte bei meinen Versuchen (heute nacht) so langsam die Idee, dass sich ".Text" und ".Value" irgendwie nicht vertragen. Hab da auch so Verschiedenes ausprobiert. Wäre jetzt zu umfangreich, alles zu schildern, darum spar ich's mir. Werd noch weiter probieren bis ich ein bisschen klarer sehe und mich mit was Kongretem dann noch mal melden.

Bis dahin werd ich mal Deine Tipps umsetzen und gib dann wieder Bescheid.

Vielen Dank für Deine Hilfe und Grüße
Franz

Betrifft: Sorry,... wollte dir nicht zu nahe treten :-)) o.T
von: Ramses
Geschrieben am: 07.10.2003 08:44:25
...

Betrifft: Du dürftest das sogar, wäre dann wohl fundiert oT
von: Franz W.
Geschrieben am: 07.10.2003 08:56:42