Hallo Leute,
hab da ein Problem:
Ich möchte Daten aus einer nicht angezeigten Spalte in einem Listenfeld in ein Bezeichnungsfeld übernehmen. Dazu habe ich auch folgenden VBA-Code eingesetzt
<pre>
Private Sub Liste1_Click()
For i = 0 To Liste1.ListCount - 1
If Liste1.Selected(i) Then
Bezeichnungsfeld1.Caption = Liste1.Column(1, i)
' 1 ist die Spalte (nicht sichtbar im Listenfeld), aus der ich die Werte ins BezFeld übernehmen möchte
End If
Next i
End Sub
</pre>
Müsste doch eigentlich funktionieren, oder!? Was läuft da falsch?
Danke für Eure Tipps!
MfG
Jankinho
hab da ein Problem:
Ich möchte Daten aus einer nicht angezeigten Spalte in einem Listenfeld in ein Bezeichnungsfeld übernehmen. Dazu habe ich auch folgenden VBA-Code eingesetzt
<pre>
Private Sub Liste1_Click()
For i = 0 To Liste1.ListCount - 1
If Liste1.Selected(i) Then
Bezeichnungsfeld1.Caption = Liste1.Column(1, i)
' 1 ist die Spalte (nicht sichtbar im Listenfeld), aus der ich die Werte ins BezFeld übernehmen möchte
End If
Next i
End Sub
</pre>
Müsste doch eigentlich funktionieren, oder!? Was läuft da falsch?
Danke für Eure Tipps!
MfG
Jankinho
Comment