Datum

Titel

25.04.2024 23:47:55

Datum ausweisen, wenn definierte Summe erreicht ist

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1104to1108

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Mehrfachauswahl eines UF Listenfeldes übernehmen

Forumthread: Mehrfachauswahl eines UF Listenfeldes übernehmen
5 Beiträge zu diesem Forumthread
Anzeige
299 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

Boris

Hallo Forum
Ich habe eine Userform erstellt, um Datensätze einzugeben und in ein Datenblatt zu übernehmen.
Es besteht aus Textfelder, Comboboxen, und Listboxen mit Mehrfachauswahl.
Textfelder, Comboboxen
Cells(z, 5) = Me.ComboBox1.Value
Cells(z, 6) = Me.TextBox1
sind kein Problem aber
wie kann ich aus einem Userform Listenfeld (ca 30 Einträge) eine Mehrfachauswahl in eine Excelzelle übernehmen
Danke für Eure Hilfe
Gruss
Boris

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Mehrfachauswahl eines UF Listenfeldes übernehmen

Tino
AW: Mehrfachauswahl eines UF Listenfeldes übernehmen

Boris
AW: Mehrfachauswahl eines UF Listenfeldes übernehmen

Tino
AW: Mehrfachauswahl eines UF Listenfeldes übernehmen

Boris
ja genau, hab ich übersehen. oT.

Tino

AW: Mehrfachauswahl eines UF Listenfeldes übernehmen

21.09.2009 12:04:24

Tino

Hallo,
z. Bsp. so


Private Sub CommandButton1_Click()
Dim meAr()
Dim A As Long, B As Long
ReDim Preserve meAr(1 To ListBox1.ListCount)
For A = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(A) Then
B = B + 1
meAr(B) = ListBox1.List(A)
End If
Next A
ReDim Preserve meAr(1 To B)
'in Spalte einfügen
Range("B2").Resize(1, B) = meAr
'oder in Zeilen einfügen
Range("B2").Resize(B, 1) = Application.Transpose(meAr)
End Sub

Gruß Tino

AW: Mehrfachauswahl eines UF Listenfeldes übernehmen

21.09.2009 13:11:44

Boris

Hallo Tino,
danke funkioniert zwar, aber ich habe mehrere Listboxen;
deswegen müsste ich die Einträge in jeweils Eine Zelle übernehmen evtl mit ";" oder ","getrennt
Hast Du eine Idee?
Gruss
Boris

AW: Mehrfachauswahl eines UF Listenfeldes übernehmen

21.09.2009 13:30:04

Tino

Hallo,
meinst Du so?

Private Sub CommandButton1_Click()
Dim strText As String
Dim A As Long
Const Trennzeichen As String = ";" 'Dein Trennzeichen
'ListBox 1
For A = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(A) Then
strText = ListBox1.List(A) & Trennzeichen
End If
Next A
'ListBox 2
For A = 0 To ListBox2.ListCount - 1
If ListBox1.Selected(A) Then
strText = ListBox2.List(A) & Trennzeichen
End If
Next A
'usw...
If strText  "" Then 'String gefüllt?
Range("B2").Value = Left(strText, Len(strText) - 1)
Else
Range("B1").Value = ""
End If
End Sub

Gruß Tino

AW: Mehrfachauswahl eines UF Listenfeldes übernehmen

21.09.2009 14:12:16

Boris

Hallo Tino,
Super hat geklappt,
in deinem Beispiel muss nur
strText = ListBox2.List(A) & Trennzeichen durch
strText = strText + ListBox2.List(A) & Trennzeichen
ersetzt werden.
Danke
Boris

ja genau, hab ich übersehen. oT.

21.09.2009 14:21:42

Tino