Werte in Spalten suchen und ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also unter der Annahme, dass man z.B. 1000 Kunden hat und nicht alle für die gleiche Leistung auch den gleichen Preis zahlen müssen wäre es sehr aufwendig sich für jeden Kunden und Leistung den genauen Preis zu merken. Deshalb wäre es optimal, wenn ich die Preise für jeden Kunden und für jede Leistung in der Tabelle1 in Spalte C Schreibe und diese dann in meine Userform in die textbox Preis übernommen wird.
Der Preis für die Leistung hängt somit von dem Namen des Kunden und der Leistung selber ab.
Wenn ich meine Userform aufrufe, dann wähle ich den Kunden mit der combobox Namen aus und danach wähle ich die Leistung/Artikel mit der combobox Artikel aus. Wenn ich nun den Artikel ausgewählt habe, dann soll der entsprechende Preis für den Kunden und die Leistung in der Textbox Preis erscheinen.
Der Sinn ist, dass ich mir den Preis nicht merken muss sondern dieser in Excel in der Tabelle1 hinterlegt ist! und zwar in Spalte C.
Ich habe mir das genau durch den Kopf gehen lassen und es wäre eine Arbeitserleichterung.
MIr fehlt nur die Kompetenz zur Umsetzung meines Vorhabens.

Punkt 1 ist nicht korrekt!
- ich will in meiner Userform alles beibehalten wie es ist (comboboxen etc.), es soll nur der Preis aus Tabelle1 in die Textbox txtPreis genommen werden wenn zwei Bedingungen erfüllt sind.
Ich wähle in der Userform über die Combobox cboName den Kundennamen aus, dann wähle ich mit der combobox cboMenge die Menge aus und mit der Combobox cboArtikel wähle ich die Leistung aus. Jetzt soll die dazugehörige Textbox txtPreis, den Preis anzeigen der in Spalte C des Tabellenblattes Tabelle1 steht und zu dem Kundenamen (erste Bedingung), den ich in der combobox cboNamen ausgewählt habe, und zu der Leistung (zweite Bedingung), die ich in der combobox cboArtikel ausgewählt habe, passt.
Bsp.
Userform:
Auswahl cboName auf = Mustermann
Auswahl cboArtikel auf = Maschineneinsatz
Tabellenblatt Tabelle1 sieht so aus
Spalte 1 Spalte 2 Saplte 3
Namen
Musterfrau Pflanzen 10 Euro
Maschineneinsatz 20 Euro
Mustermann Pflanzen 15 Euro
Maschineneinsatz 25 Euro
Musterkerl Pflanzen 30 Euro
Maschineneinsatz 40 Euro
Folge: jetzt soll mit der Auswahl der combobox cboArtikel auf Pflanzen folgendes Prozedur ablaufen
spalte a wird abgeglichen mit der Combobox cboName, in dieser wurde Mustermann ausgewählt. Also wird Spalte a nach Mustermann abgesucht. Ist dieser Name gefunden werden die Leistungen in Spalte B mit der Auswahl der Combobox cboArtikel abgeglichen (aber nur Pflanzen und Maschineneinsatz, die zu Mustermann gehören). In der combobox cboArtikel ist in diesem Beispiel Maschineneinsatz ausgewählt
Folge: in der Textbox txtPreis soll nun der Preis dafür ausgewiesen werden, nämlich 25 Euro. Somit wird der Preis in der Textbox angezeigt der individuell für den einzelnen Kunden zu der bestimmten Leistung in Tabell1 hinterlegt ist.
-Punkt zwei ist ebenfalls nicht korrekt
Im Tabellenblatt Tabelle1 werde ich alle vorhandenen Kunden anlegen und für jeden Kunden die identischen Leistungen aber mit unterschiedlichen Preisen. Wie ich das Anlege ist momentan unwichtig. Wichtig ist mir, wie ich mein obengenanntes Bsp. umsetzten kann.

Private Sub cboArtikel_Change() Dim rngZelle As Range Dim strStart As String With Worksheets("Tabelle1") Set rngZelle = .Columns(1).Find(cboArtikel.Value, lookat:=xlWhole) If Not rngZelle Is Nothing Then Do If rngZelle.Offset(0, 1) = cboName.Value Then txtPreis = rngZelle.Offset(0, 2) Exit Do End If Set rngZelle = .Columns(1).FindNext(rngZelle) Loop While strStart rngZelle.Address End If End With End Sub Private Sub cboArtikel1_Change() Dim rngZelle As Range Dim strStart As String With Worksheets("Tabelle1") Set rngZelle = .Columns(1).Find(cboArtikel1.Value, lookat:=xlWhole) If Not rngZelle Is Nothing Then Do If rngZelle.Offset(0, 1) = cboName.Value Then txtPreis1 = rngZelle.Offset(0, 2) Exit Do End If Set rngZelle = .Columns(1).FindNext(rngZelle) Loop While strStart rngZelle.Address End If End With End Sub '... und hier der Code für die weiteren ComboBoxen

Beliebteste Forumthreads (12 Monate)

Werte in Spalten suchen und ausgeben

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

370 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in Spalten suchen und ausgeben

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

370 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread