Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm / ComboBox Change

UserForm / ComboBox Change
19.08.2003 07:31:56
Erich M.
Hallo zusammen,
habe eine neue Frage, die ich trotz mehrerer Versuche noch nicht ganz lösen konnte:
Wenn ich in einer ComboBox eine Auswahl anklicke, soll die ListBox2 entsprechend gefüllt werden. Ich habe zwar eine Lösung, die aber sicher verbessert (vereinfacht) werden kann:

Private Sub ComboBox1_Change()
Worksheets("Tabelle2").Activate
With Worksheets("Tabelle2")
If .[a65536] = "" Then
LoLetzte = .[a65536].End(xlUp).Row
Else
LoLetzte = 65536
End If
ListBox2.ColumnCount = 1
If ComboBox1.ListIndex = -1 Then Exit Sub
If ComboBox1.ListIndex = 0 Then
m = 1
For LoI = 1 To 10
ListBox2.AddItem Format(.Cells(LoI, m))
ListBox2.List(LoI - 1, m) = .Cells(LoI, m)
Next LoI
End If
If ComboBox1.ListIndex = 1 Then
m = 2
For LoI = 1 To 10
ListBox2.AddItem Format(.Cells(LoI, m))
ListBox2.List(LoI - 1, m) = .Cells(LoI, m)
Next LoI
End If
If ComboBox1.ListIndex = 2 Then
m = 3
For LoI = 1 To 10
ListBox2.AddItem Format(.Cells(LoI, m))
ListBox2.List(LoI - 1, m) = .Cells(LoI, m)
Next LoI
End If
If ComboBox1.ListIndex = 3 Then
m = 4
For LoI = 1 To 10
ListBox2.AddItem Format(.Cells(LoI, m))
ListBox2.List(LoI - 1, m) = .Cells(LoI, m)
Next LoI
End If
End With
End Sub


Code eingefügt mit: Excel Code Jeanie
Besten Dank für ine Hilfe!
mfg
Erich

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm / ComboBox Change
19.08.2003 08:20:31
Klaus-Dieter
Hallo Erich,
so geht es:
Option Explicit

Private Sub ComboBox1_Change()
Dim m As Integer
Dim LoI As Integer
ListBox2.Clear
m = ComboBox1.ListIndex + 1
For LoI = 1 To 10
With ListBox2
.AddItem Cells(LoI, m)
End With
Next LoI
End Sub


Private Sub UserForm_Initialize()
Dim r As Integer
Dim inh(4) As String
For r = 1 To 4
inh(r) = "Spalte " & Chr(r + 64)
With ComboBox1
.AddItem inh(r)
End With
Next r
End Sub

Gruß Klaus-Dieter

AW: UserForm / ComboBox Change
19.08.2003 14:38:23
Erich M.
Hallo Klaus-Dieter,
besten Dank - werds morgen früh probieren.
mfg
Erich

Anzeige
DANKE - Klaus-Dieter: funktioniert perfekt!! o.T.
19.08.2003 19:01:26
Erich M.
.

Danke für die Rückmeldung o.T. - Klaus-Dieter
19.08.2003 19:50:27
Klaus-Dieter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige