Suchen in verschiedenen Spalten
22.01.2004 10:16:34
michael
KeinTag ohne Probleme. In einer Tabelle habe ich Zugdaten (A),Buchungscodes (B) und Tarife in den anderen Spalten.
Zug>>>>>>Buchungscode>>>>>Preis 662>>>>>>Preis 665
662<<<<<<<<<<<96<<<<<<<<<<<<<55,5<<<<<<<<<<<70,7
669<<<<<<<<<<<95<<<<<<<<<<<<<55,7<<<<<<<<<<<59,7
665<<<<<<<<<<<55<<<<<<<<<<<<<80,0<<<<<<<<<<<<80
Die Daten aus Spalte A lese ich mit einer ComboBox aus (ZugCbo). Die Daten aus Spalte B detto(BuchungscodeCbo). Jetzt mein Problem Wenn ich zb Zug 662 aufrufe und dann den Buchungscode (BuchungscodeCbo) eingebe dann soll in der Textbox(PreisTxt)den Preis von Spalte C anzeigen. Wenn ich Zug 665 eingebe und dann den Buchungscode dann soll die Spalte D in der Textbox angezeigt werden. Ich hätte es mit diesem Code probiert (das funktioniert natürlich nicht). Bitte nicht lachen aber meine Vba-Kenntnisse sind bescheiden.
Private Sub UserForm_Initialize()
Me.ZugCbo.RowSource = "A1:A5"
Me.BuchungscodeCbo.RowSource = "b1:b1"
If ZugCbo = "662" Then
PreisTxt = Cells(BuchungscodeCbo.ListIndex + 1, 3)
End If
If ZugCbo = "665" Then
PreisTxt = Cells(BuchungscodeCbo.ListIndex + 1, 4)
End If
End Sub
Vielleicht kann mir jemand helfen
Danke
Michae