Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchen in verschiedenen Spalten

Suchen in verschiedenen Spalten
22.01.2004 10:16:34
michael
Hallo Alle zusammen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen in verschiedenen Spalten
22.01.2004 10:30:07
Karl-Otto Reimann
Hallo
Nein, hier lacht keiner. Aber dann solltest Du Dich der Lösung ohne UF
nähern, indem Du in einem Tabellenblatt mit SVERWEIS arbeitest.
Erfolge stellen sich hier früher ein.
Gruß
Karl-Otto
Danke Karl-Otto
22.01.2004 11:27:51
michael
Danke Karl-Otto für die schnelle Antwort
Ich habe das so gelöst

Private Sub BuchungscodeCbo_Change()
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

Und es funktioniert
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige