Ich habe folgendes Problem:
Im Tabellenblatt "Übersicht" habe ich eine Combobox (cbMDE), bei Änderung des Wertes sollen verschiedene Daten in verschiedene Felder eingetragen werden, die aus anderen Blättern ausgeleen werden.
Hier der Code dazu:
'Diese Arbeitsmappe
Private Sub Workbook_Open()
Workbooks("MDE.xls").Worksheets("Übersicht").cbMDE.Clear
For i = 3 To Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("MDE.xls").Worksheets("Übersicht").cbMDE.AddItem Sheets("Daten").Range("B" & i).Value
Next i
End Sub
'Tabelle Übersicht
Private Sub cbMDE_Change()
If cbMDE.Value = "" Then Exit Sub
For x = 3 To Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("Daten").Range("B" & x).Value = cbMDE.Value Then
MsgBox "Treffer!"
' hier ist der Fehler - es werden keine treffer gefunden!
End If
Next
End Sub
woran liegt das?
wenn ich die Werte in der Direkteingabe prüfe, bekomme ich dieses Ergebnis:
? Sheets("Daten").Range("B" & x).Value
60029459 ? cbMDE.Value
60029459
bin für jeden Rat dankbar.
mfg
Timo