Office: Tabellenauswertung anhand von 2 ListBoxen

Hallo zusammen
Ich bin ein absoluter "Nichtwisser", was VBA angeht.
Trotzdem habe ich eine Datenerfassung mit Formular und VBA Code fertiggebracht. Alles aus dem WEB zusammengekratzt, aber es funktioniert.

Ich möchte jetzt ein Auswerteformular erstellen und stecke natürlich fest.

Kriterien
- Ich habe 2 ListBox mit festem Inhalt und Auswahlmöglichkeit (Single select)
- Ich möchte den Inhalt aus derjenigen Zelle der Tabelle 1, Spalte 4 in die Textbox 3 schreiben wenn folgende Bedingungen erfüllt sind
> Der markierte Wert aus Listbox 1 ist in Tabelle 1 in Spalte 1 enthalten
> UND der markierte Wert aus Listbox 2 ist in Tabelle 1 in Spalte 2 enthalten

Ist das klar genug beschrieben ?

Wer hat Lust mir eine Lösung aufzuzeigen ?

Besten Dank im Voraus
Hansjürg

:)

 

Hallo Hansjürg,

ja beide Werte sind in der ListBox enthallten. Da Listbox1 aus Tabelle1 und LIstbox2 aus Tabelle2 gefüllt werden.
Textbox3 =Worksheets("Tabelle1").Range("C423")

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Lieber Hajo

Was möchtest Du mir mit deiner Antwort mitteilen ?
Wie eingangs beschrieben "Ich bin ein absoluter Nichtwisser, was VBA angeht".

Mit derart allgemeinen Antworten ist mir leider nicht geholfen.
Ich wäre froh über ein konkretes Beispiel das ich analysieren kann.

Hier mal mein aktueller Code

Option Explicit
Option Compare Text

' ******************************************************************************** ****************
' KONSTANTEN / PARAMETRISIERUNG
' ******************************************************************************** ****************

'Wie viele TextBoxen sind auf der UserForm platziert?
Private Const iCONST_ANZAHL_EINGABEFELDER As Integer = 2

Private Sub Label3_Click()

End Sub

'In welcher Zeile starten die Eingaben?
'Private Const lCONST_STARTZEILENNUMMER_DER_TABELLE As Long = 1


' ******************************************************************************** ****************
' EREIGNISROUTINEN DER USERFORM
' ******************************************************************************** ****************
Private Sub UserForm_Initialize()

' End Sub

' Private Sub Form_Load()

Worksheets("Gemeinden").Activate
UserForm2.ListBox1.RowSource = "A2:A20"
ListBox1.ListStyle = fmListStyleOption

Worksheets("Sparten").Activate
UserForm2.ListBox2.RowSource = "A2:A12"
ListBox2.ListStyle = fmListStyleOption

'Worksheets("Subventionen").Activate
'UserForm2.ListBox3.RowSource = "A2:A3"
'ListBox3.ListStyle = fmListStyleOption

Worksheets("Tabelle1").Activate
'Worksheets("Eingabeformular").Activate
End Sub

Private Sub ListBox1_click()
TextBox1 = ""

Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
' ausgewählte Einträge ermitteln ...
If .Selected(i) Then
' ... und in die TextBox schreiben
TextBox1.Text = TextBox1.Text & .List(i) '& vbCrLf
End If
Next i
End With
End Sub

Private Sub ListBox2_click()
TextBox2 = ""

Dim i As Integer
With ListBox2
For i = 0 To .ListCount - 1
' ausgewählte Einträge ermitteln ...
If .Selected(i) Then
' ... und in die TextBox schreiben
TextBox2.Text = TextBox2.Text & .List(i) '& vbCrLf
End If
Next i
End With


End Sub

 

Hallo,
Mach's den Leuten die Dir helfen wollen nicht so schwer, bitte die Datei hochladen.
Gruss, Wilhelm

 

ich habe mir dann wohl die falsche Datei angesehen.
Viel Erfolg noch, ich bin raus, da falsche Datei angesehen.

 

Mach ich doch gerne.
Ich hoffe es klappt.

Hansjürg

 

Hallo,
hier eine Lösung mit der Annahme das es nur 1 Anbieter gibt.
Gruss, Wilhelm

 

Hallo Wilhelm

Vielen Dank für Deine Antwort.
Du hast den Punkt bei mehreren Anbietern auch schon erkannt.
Ich inzwischen auch.

Mein Lösungsansatz:
- Bei mehreren Anbietern eine MSGBox einblenden "zum nächsten Anbieter"
- Bei Click den nächsten in Textbox 3 übertragen
- Das läuft dann halt rund herum (vom letzten wieder zum ersten)
was aber gar nicht so schlecht ist.

Hättest Du mir da auch einen Code ?

Zudem habe ich ab Zeile 105 etwas eingefügt was die TextBox 3 löscht
wenn in ListBox 1 keine Antwort erfolgt.
Witzigerweise reagiert da aber auch bei ListBox 2 ??? *boah


Im Anhang mein neues File

Gruss
Hansjürg

 

Hallo,
warum nicht alle Anbieter in einer Liste sammeln, also statt der Textbox eine Listbox? Wäre das nicht übersichtlicher?
Ich mache eine Version, dann kannst Du entscheiden.
Gruss, Wilhelm

 

Hallo,
hier die version für mehrere Anbieter. Zum Test habe ich in Zeile 13 einen neuen Datensatz eingefügt. Damit siehst Du in der Listbox beide Anbieter.
Natürlich ist Dein Ansatz mit fortgesetzten suchen auch möglich, ganz wie Du möchtest.
Gruss, Wilhelm

 

Hallo Wilhelm

Vielen Dank für Deinen Einsatz, das funktioniert wie ich es
mir gewünscht hatte.

Ich werde jetzt damit weitermachen (Internet & trial and error system).

Ich denke es wird nicht lange gehen, bis ich mich wieder melde
und auf Deine Unterstützung hoffe. *Smilie

Bis dann
Hansjürg

 

Hallo Wilhelm

Ich bin wieder so weit, dass ich Hilfe gebrauchen könnte.
In meinem aktuellen Arbeitsschritt geht es darum die Daten welche in der «lb-Anbieter» ausgegeben werden, anwählen zu können und die entsprechenden übrigen Daten in Textfiles anzuzeigen.
Im Internet habe ich eine entsprechende Vorlage gefunden.
Beim Übertragen in meine Struktur klemme der Code aber ziemlich rasch.

Zum Ersten mal bleibt es bei Exportdaten hängen
Wenn ich in der Vorlage an dieser Stelle auf Komplettnamen – rechte Maus / Quickinfo – wähle, wird «Implicit KOMPLETTNAME as Variant» ausgegeben.
In meiner Anwendung passiert da nichts….

Wenn die Z85 ausgeklammert wird ist der nächste Hänger bereits auf Z88
bei «LetzteZeile =…..»
Da habe ich dann den gestrigen Abend mit Recherche verbracht, leider ohne Resultat.
Könntest Du mich da wieder anschieben ?

Im Anhang beide Dateien
Besten Dank
Hansjürg

 

Hallo Wilhelm

Ich erlaube mir nachzufragen ob Du meine neuen Infos vom 26.2. gesehen hast. Wenn JA, es eilt nicht, ich kann warten.

Wenn Du aber nicht mehr mitmachen möchtest, auch OK aber teile es bitte mit.
Gruss, Hansjürg

 

Hallo Hansjürg,
leider hatte ich die Nachricht nicht gesehen, tut mit leid.
In solchen Fällen besser eine PN schicken, die ist besser zu sehen.
Ich schau's mir nachher an.
Gruss, Wilhelm

 

Hallo Hansjürg,
bitte IMMER den Compiler benutzen! Das ist manchmal lästig weil der immer zuerst alle Fehler behoben haben will bevor der Kode läuft aber es ist doch wirklich hilfreich.
Du hast ja schon die Option Explicit im Modul, sehr gut. Dadurch erwartet der Kompiler das jede Variable deklariert wird, d.h. sie muß mit einer Dim Anweisung bekannt gemacht werden. Das war bei mehreren Variablen nicht der Fall.
Das eigentliche Problem lässt sich einfach lösen. Du möchtest die Details für den gewählten Anbieter in den TextBoxen haben (Du hast zwar Textfiles geschrieben aber ich vermute Du meinst die bereits vorhandenen TextBoxen). Nun enthält doch die lb_Anbieter bereits alle Anbieter die die Kriterien erfüllen. Für eine erneute Suche bin ich zu faul, deshalb merke ich mir in welcher Zeile ich jeweils den Anbiete auf der Seite Tabelle1 gefunden habe. Diese Zeilennummer schreibe ich in eine Spalte in der lb_Anbieter. Weil diese Spalte die Breite 0 hat ist sie nicht sichtbar. Nach einer Auswahl in der lb_Anbieter habe ich also bereits die Zeile und kann so direkt die Daten von Tabelle 1 holen.
Noch ein Hinweis: Du hast schon einige GUI Elemente auf den Formularen. Es hilft sehr jeden Element einen sprechenden Namen zu geben anstatt sie mit einer laufenden Nummer anzusprechen.
Gruss, Wilhelm