Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Tabelle auswerten | Herbers Excel-Forum


Betrifft: Tabelle auswerten von: Rene
Geschrieben am: 16.12.2009 10:31:45

Hallo,

ich habe folgende Tabelle:

	Artikel1	Artikel2	Artikel3 ...
Name1	1	0	2
Name2	1	1	2
Name3	0	0	0
...
Ich habe in einer Userform eine Listbox mit den Name und möchte, wenn ein Name angeklickt wird, in zwei anderen Listboxen einmal die Artikel mit dem Wert 1 und in der anderen Listbox die Artikel mit dem Wert 2 angezeigt bekommen. 0 ist uninteressant.
Also wenn ich Name1 auswähle, soll in Listbox1 Artikel1 stehen und in Listbox2 Artikel3; bei Name3 sollen beide Listboxen leer sein.

Wie muss ich das machen?

Danke
Rene

  

Betrifft: verstehe gerade nicht den Zusammenhang. von: Tino
Geschrieben am: 16.12.2009 11:38:34

Hallo,

Vielleicht wäre eine Beispieldatei nicht schlecht.


Gruß Tino


  

Betrifft: Beispieldatei von: Rene
Geschrieben am: 16.12.2009 12:48:56

Hallo Tino,

vielleicht wird es so klarer:

https://www.herber.de/bbs/user/66628.xls

Danke
Rene


  

Betrifft: AW: Beispieldatei von: Tino
Geschrieben am: 16.12.2009 13:32:51

Hallo,
kannst ja mal testen.

https://www.herber.de/bbs/user/66633.xls

Gruß Tino


  

Betrifft: Vielen Dank Tino, passt prima owT von: Rene
Geschrieben am: 16.12.2009 13:36:25




  

Betrifft: AW: Beispieldatei von: Reinhard
Geschrieben am: 16.12.2009 13:38:56

Hallo Rene,

Private Sub ListBox1_Change()
Dim Zelle As Range, N As Long
Set Zelle = Columns(1).Find(ListBox1)
For N = 1 To 5
   If Zelle.Offset(0, N) = 1 Then
      ListBox2.AddItem Cells(1, N + 1)
   ElseIf Zelle.Offset(0, N) = 2 Then
      ListBox3.AddItem Cells(1, N + 1)
   End If
Next N
End Sub

Gruß
Reinhard


  

Betrifft: so kurz! Vielen Dank! Rene owT von: Rene
Geschrieben am: 16.12.2009 13:43:04




Beiträge aus den Excel-Beispielen zum Thema "Tabelle auswerten"