Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei Code UDF/ComboBox/ListBox!

Forumthread: Hilfe bei Code UDF/ComboBox/ListBox!

Hilfe bei Code UDF/ComboBox/ListBox!
Thomas
Hallo Excelforum,
ich steh mal wieder voll daneben. Ich habe eine UserForm mit einer Combo1 und einer ListBox1.
Die Combo1 zeigt mir Wohnungen an und nun würd ich die ListBox1 mit den jeweiligen Bereichen Füllen.
Anbei mein Codeansatz.
Option Explicit
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Whg1"
.AddItem "Whg2"
.AddItem "Whg3"
With Me.ListBox1
'If ComboBox1 = "Whg1" Then
.ColumnCount = 6
.ColumnHeads = True
.RowSource = "Liste!B4:G54"
'End If
With Me.ListBox1
If ComboBox1 = "Whg2" Then
.ColumnCount = 6
.ColumnHeads = True
.RowSource = "Liste!B55:G100"
End If
With Me.ListBox1
If ComboBox1 = "Whg3" Then
.ColumnCount = 6
.ColumnHeads = True
.RowSource = "Liste!B110:G155"
End If
End With
End With
End With
End With
End Sub
Die Combo wird wie gewünscht gefüllt aber die ListBox wird gar nicht gefüllt, Fehlermeldung kommt auch nicht.
Was mach ich falsch? :((
Vielen Dank schon mal.
Gruß Thomas aus Stuttgart
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hilfe bei Code UDF/ComboBox/ListBox!
28.04.2012 12:24:17
Hajo_Zi
Hallo Thomas,
siehe Dir mal diese Datei an.
http://hajo-excel.de/chCounter3/getfile.php?id=105
Das bekommst Du auch auf eine Listbox geändert an zweiter Stelle.

Anzeige
AW: Hilfe bei Code UDF/ComboBox/ListBox!
28.04.2012 12:38:30
Thomas
Hallo Hajo,
ich war schon auf Deiner Seite und im Forum bin ich auch schon des öfteren über das Beispiel gestolpert. Wenn ich damit zurecht gekommen wäre meinst ich würde dann noch um hilfe bitten müssen?
Ich dank Dir dennoch.
Gruß Thomas aus Stuttgart
AW: Hilfe bei Code UDF/ComboBox/ListBox!
28.04.2012 12:52:08
Thomas
Hallo Hajo,
also wenn ich das richtig verstehe willst Du mir sagen es ist "egal" ob ich eine ComboBox oder eine ListBox füllen möchte?
Gruß Thomas aus Stuttgart
Anzeige
AW: Hilfe bei Code UDF/ComboBox/ListBox!
28.04.2012 13:33:28
Gerd
Hallo Thomas,
zum Landesjubiläum! :-)
Private Sub ComboBox1_Change()
With Me.ListBox1
.RowSource = ""
.ColumnCount = 6
.ColumnHeads = True
Select Case ComboBox1.ListIndex
Case 0:    .RowSource = "Liste!B4:G54"
Case 1:    .RowSource = "Liste!B55:G100"
Case 2:    .RowSource = "Liste!B110:G155"
End Select
End With
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
.Clear
.AddItem "Whg1"
.AddItem "Whg2"
.AddItem "Whg3"
.Style = 2
End With
End Sub
Gruß Gerd
Anzeige
AW: Hilfe bei Code UDF/ComboBox/ListBox!
28.04.2012 17:01:04
Thomas
Hallo Gerd,
ich dank Dir für deine Hilfe. Wünsch Dir und dem Forum ein schönes Wochenende.
Grüße aus dem sonnigen Stuttgart
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige