Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
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
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

userform mehrfachauswahl übernehmen

userform mehrfachauswahl übernehmen
10.09.2015 17:30:51
bassi
Hallo liebe Exceler,
ich bin ein wenig am verzweifeln.
Mehrere Vorschläge habe ich nun durch. Jedoch komme ich auf keinen grünen Zweig.
Liegt es am Excel 2003?
In zwei Monaten soll auf Excel 2010 umgestellt werden. Ist dann mit Problemen bezüglich einer Konvertierung zu rechnen?
Aber fangen wir vorn an:
In einer Listbox (Tabelle 1) werden per Häckchen - Mehrfachauswahl also - bestimmte Werte markiert.
Diese ausgewählten Werte sollen in Tabelle 2 in Spalte A aufgelistet werden.
Das wars eigentlich schon...
Dachte ich jedenfalls... :-(
Hat jemand einen hilfreichen Tipp für mich?
Allerbesten Dank
bassi

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

Betreff
Datum
Anwender
Anzeige
AW: userform mehrfachauswahl übernehmen
10.09.2015 19:26:36
Hajo_Zi 

Dim LoLetzte As Long
LoLetzte = 4
For LoI = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(LoI) Then
.Cells(LoLetzte, 1) = ListBox1.List(LoI, 0)
LoLetzte = LoLetzte + 1
End If
Next LoI


AW: userform mehrfachauswahl übernehmen
11.09.2015 09:44:20
bassi
Guten Morgen Hajo.
Danke für deine schnelle Reaktion.
Ich habe den Code nun in meinem Laienhaften Excelwissen so in den button eingebaut.
Jedoch hätte ich wohl was anpassen müssen?
Es wird so die Stelle:
.Cells(Loletzte, 1)=
markiert und folgende Fehlermeldung ausgeworfen:
Fehler beim Kompilieren :
Unzulässiger oder nicht ausreichend definierter Verweis.
Auch fiel mir auf, dass die Stelle Loletzte wenn ich das klein eintippe nicht automatisch der Großschreibung angepasst wird.
Kannst du mir vielleicht noch einen Schubs geben?
Vielen Dank
bassi

Anzeige
AW: userform mehrfachauswahl übernehmen
11.09.2015 16:44:46
Werner
Hallo,
Versuch mal
Dim LoLetzte As Long
LoLetzte = 4
For LoI = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(LoI) Then
With Sheets("Tabelle2")
.Cells(LoLetzte, 1) = ListBox1.List(LoI, 0)
End With
LoLetzte = LoLetzte + 1
End If
Next LoI
Gruß Werner

AW: userform mehrfachauswahl übernehmen
14.09.2015 16:38:33
bassi
Hallo Werner,
grad getestet.
funktioniert tadellos!
super!
Allerbesten Dank
Einen tollen Restmontag :-)
viele Grüße
bassi

AW: Danke für die Rückmeldung. o.w.T.
14.09.2015 16:51:26
Werner

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige