Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MultiSelectExtended

MultiSelectExtended
05.05.2005 23:38:59
Helmut
Moin Moin,
ich möchte eine Mehrfachauswahl aus der ListBox1 in der ListBox2 oder direkt in einem bestimmten Bereich im Excel-Tabellenblatt anzeigen/ausgeben lassen. Der Code, der über die VBA-Hilfe vorgeschlagen wird, funktioniert nicht. Es kommen ständig Fehlermeldungen. Kann mir da jemand helfen?
Gruß
Helmut

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

Betreff
Datum
Anwender
Anzeige
AW: MultiSelectExtended
06.05.2005 00:00:07
Herbert
Hi,
wie lautet der Code und die Fehlermeldung?
mfg Herbert
AW: MultiSelectExtended
06.05.2005 21:20:08
Helmut
Moin Herbert,
hier der Code:
Dim i As Integer

Private Sub CommandButton1_Click()
ListBox2.Clear
For i = 0 To 9
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
End Sub



Private Sub OptionButton1_Click()
ListBox1.MultiSelect = fmMultiSelectSingle
End Sub



Private Sub OptionButton2_Click()
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub



Private Sub OptionButton3_Click()
ListBox1.MultiSelect = fmMultiSelectExtended
End Sub



Private Sub UserForm1_Initialize()
For i = 0 To 9
ListBox1.AddItem "Choice " & (ListBox1.ListCount + 1)
Next i
OptionButton1.Caption = "Single Selection"
ListBox1.MultiSelect = fmMultiSelectSingle
OptionButton1.Value = True
OptionButton2.Caption = "Multiple Selection"
OptionButton3.Caption = "Extended Selection"
CommandButton1.Caption = "Show selections"
CommandButton1.AutoSize = True
End Sub

Und die darauf folgende Fehlermeldung:
"Laufzeitfehler. Eigenschaft Selected konnte nicht abgerufen werden. Ungültiges Argument."
Die Auswahlmöglichkeit über die Option.Buttons muß nicht sein. Es wäre schön, wenn die ausgewählten Zeilen in einen anderen Bereich des Tabellenblatts übergeben werden könnten.
Gruß
Helmut
Anzeige
AW: MultiSelectExtended
06.05.2005 06:26:03
Hajo_Zi
Hallo Helmut

For LoI = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(LoI) Then
' Beispiel nur Spalte 1
.Cells(Loletzte + 1, 1) = ListBox1.List(LoI, 0)
Loletzte = Loletzte + 1
End If
Next LoI

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: MultiSelectExtended
06.05.2005 21:27:33
Helmut
Moin Hajo,
irgendwie bin ich nicht in der Lage, Deinen Code einzubauen. Es kommt die Fehlermeldung:
"Fehler beim Kompilieren: Unzulässiger oder nicht ausreichend definierter Verweis."
Was mach ich falsch (grübel, grübel)?
Gruß
Helmut
AW: MultiSelectExtended
07.05.2005 08:13:53
Hajo_Zi
Hallo Helmut,
das sehne ich nicht. Ich lehne es ab über das Internet auf fremde Rechner zu schauen.
Der Code ist in der Userform?
Die Variablen hat Du definiert?
Die Steuerelementenamen stimmen überein?
Du hast mit With vorher eine Tabelle festgelegt? Ansonsten entferne den Punkt vor Cells.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige

Links zu Excel-Dialogen

OptionButton UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige