hier mal ein erster Schuss. Die Suche läuft über alle Spalten. Wenn im Listenfeld, der richtige Treffer markiert ist, werden dessen Inhalte in den TextBoxen darunter angezeigt. Mehr habe ich noch nicht umgesetzt, weil für mich nicht klar ist, welche Daten in welche Zellen des Rechnungsformulars gehören. Bitte um Nachricht, ob das in die Richtige Richtung geht.
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
hier mal ein erster Schuss. Die Suche läuft über alle Spalten. Wenn im Listenfeld, der richtige Treffer markiert ist, werden dessen Inhalte in den TextBoxen darunter angezeigt. Mehr habe ich noch nicht umgesetzt, weil für mich nicht klar ist, welche Daten in welche Zellen des Rechnungsformulars gehören. Bitte um Nachricht, ob das in die Richtige Richtung geht.
Ich bin absolut begeistert!!!! Ja der weg ist genau richtig!!!
Übersicht des Rechnungsformulars:
Überschrift von Rechnungsinformationen "Company Code" in blanko Zelle J5 Überschrift von Rechnungsinformationen "Invoice address Brand" in blanko Zelle B4 Überschrift von Rechnungsinformationen "Invoice address Street" in blanko Zelle B6 Überschrift von Rechnungsinformationen "Invoice address PLZ/Land" in blanko Zelle B8 Überschrift von Rechnungsinformationen "Invoice address Land/EU" in blanko Zelle B9 Überschrift von Rechnungsinformationen "Delivery address Brand" in blanko Zelle E4 Überschrift von Rechnungsinformationen "Delivery address Street" in blanko Zelle E6 Überschrift von Rechnungsinformationen "Delivery address PLZ/Land" in blanko Zelle E8 Überschrift von Rechnungsinformationen "Delivery address Land/EU" in blanko Zelle E9 Überschrift von Rechnungsinformationen "COST CENTER / Budget No" in blanko Zelle L8 Überschrift von Rechnungsinformationen "UST-ID-No" in blanko Zelle J4
Wäre der absolute Wahnsinn wenn das noch angebunden werden könnte.
entschuldige das ich nochmal störe. Ich dachte ich kann die restlichen Bedingungen noch ändern jedoch verstehe ich den Code nicht. Leider wird in Zelle B4 nicht die "Invoice address Brand" eingefügt sondern das Plant. Wenn du mir vielleicht kurz sagst wie ich dies ändern könnte kann ich vielleicht den Rest auch selbst ändern.
du hast Recht, da war ein Fehler drin. Habe das korrigiert.
Hallo Klaus-Dieter,
wunderbar! Klappt Super! Dankeschön!
jetzt nur noch eine Frage. Bei den Treffern in den Textboxen listet er mir die Spalte A nicht auf. Er fängt erst bei Spalte B an seine Treffer in die Textboxen zu füllen. Wie kann ich ihm sagen das er ab Spalte A seine Treffer in die Textboxen füllt?
Ich gehe davon aus das es diese Code Zeile betrifft:
Code:
Private Sub ListBox1_Click() ' Treffer in Textboxen Dim rng As Range Dim IntC As Integer
With ListBox1 If .ListCount = 0 Then Exit Sub If .List(.ListIndex, 0) = "" Then Exit Sub lngR = CLng(.List(.ListIndex, 9)) For IntC = 1 To 18
Controls("TextBox" & IntC) = Tabelle1.Cells(lngR, IntC).Text Next End With End Sub
13.11.2020, 11:55 (Dieser Beitrag wurde zuletzt bearbeitet: 13.11.2020, 12:00 von Klaus-Dieter.)
Hallo Pascala,
das kann sein, die Textboxen waren zunächst als Beispiel gedacht, was so geht. Das könnte man noch optimieren, zum Beispiel auf die Daten, die dann in die Rechnung geschrieben werden. Oder man könnte auch alles anzeigen, zum Zweck von Änderungen an einzelnen Datensätzen, dann würde das Formular eben etwas größer. Hallo Pascala,
tausche mal den Quelltext gegen diesen:
Code:
Private Sub ListBox1_Click() ' Treffer in Textboxen Dim rng As Range Dim IntC As Integer
With ListBox1 If .ListCount = 0 Then Exit Sub If .List(.ListIndex, 0) = "" Then Exit Sub lngR = CLng(.List(.ListIndex, 7)) For IntC = 1 To 6
Controls("TextBox" & IntC + 1) = Tabelle1.Cells(lngR, IntC).Text Next End With End Sub
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
ListBox Auswahl begrenzen mit ComboBox
