folgende Routine benutze ich in einer Combobox zur Suche und Übergabe von Daten:
Private Sub ComboBox1_Change()
With ComboBox1
If .ListIndex > -1 Then
Controls("TextBox" & FeldNr).Value = .List(.ListIndex, 1) & ", " _
& .List(.ListIndex, 2) & ", " _
& .List(.ListIndex, 3) & ", " _
& .List(.ListIndex, 4) & ", " _
& .List(.ListIndex, 5) & "\" _
& .List(.ListIndex, 9)
If .List(.ListIndex, 6) = "Mandant" Then
Label1.Visible = True
bUFisRunning = True
Call Blinken
End If
.Font.Size = 8
.Value = .List(.ListIndex, 1)
End If
End With
End Sub
Private Sub ComboBox1_DropButtonClick()
With ComboBox1
.Value = Trim(.Value)
If .Value "" Then
.Font.Size = 11
Mandantsuchen (.Value)
Else
If .Tag = "" Then _
MsgBox "Hallo, ein " & Chr(34) & "Suchbegriff" & Chr(34) & " muß schon eingegeben _
werden!!"
.Tag = IIf(.Tag "", "", "1")
End If
End With
End Sub
Private Sub ComboBox1_Enter()
ComboBox1.BackColor = neueFarbe
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Font.Size = 8
ComboBox1.BackColor = alteFarbe
End Sub
funktiniert alles prima!!!!
Jetzt zum Problem:
ich habe ich diese Routine in eine neue Userform übertragen und da funktioniert sie nicht mehr.
Genauer: wenn ich das Suchwort vorgebe und dann rechts den Pfeil nach unten drücke, geht das Fenster korrekt auf, alle Daten werden "scheinbar" angezeigt (bei vielen übereinstimmungen erscheint auch der Scroll-Balken) und ich kann auch einen Datensatz auswählen (wird mir in der Textbox angezeigt). In dem Fenster ist aber nichts zu sehen ausser die Hintergrundfarbe!!
Woran mag das liegen?
(die Sub "MandantenSuchen", die die Daten holt, wird auch in anderen Userformen genutzt funktioniert nach wie vor tadellos (hier ja auch, ich seh nur nichts))
Über Antworten würde ich mich freuen und bedanke mich schon jetzt
Mit freundlichen Grüßen
Albrecht