Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1404to1408
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
1404to1408
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl über Userform

Auswahl über Userform
05.02.2015 14:37:21
NoPa
Hallo,
ich möchte gerne mit mein UserForm einigen Auswahlmöglichkeiten treffen!
Nur das was ausgewählt wurde soll nun in Range(„A1“) eingetragen werden!
wenn ich nun nicht alle Felder auswähle schreibt er es mir nicht so rein, wie ich will!
die Schreibweise habe ich schon mal in meinen Code geschrieben!
Wie geht das?!
https://www.herber.de/bbs/user/95581.xlsm
Bitte um Hilfe
Danke
Gruß
Norbert

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahl über Userform
05.02.2015 16:32:26
Christian
hallo Norbert,
so zB: 

Option Explicit
Private Sub CommandButton1_Click()
Dim cntr As Control
Dim strRes As String
For Each cntr In Me.Controls
If TypeName(cntr) = "ComboBox" Then
If cntr.Value  "" Then
strRes = strRes & cntr.Value & ", "
End If
End If
Next
If Len(strRes) Then
strRes = Left(strRes, Len(strRes) - 2)
If InStr(strRes, ",") Then
strRes = Left(strRes, InStrRev(strRes, ",") - 1) & " und" & _
Right(strRes, Len(strRes) - InStrRev(strRes, ","))
End If
End If
ThisWorkbook.Sheets("Tabelle1").Cells(1, 1) = "Angezeigt: " & strRes
Unload Me
End Sub
Private Sub UserForm_Activate()
Dim vntNames As Variant
Dim i As Long
vntNames = Array("Hans", "Petra", "Franz", "Michi", "Simone")
For i = 1 To 5
Me.Controls("ComboBox" & i).List = vntNames
Next
End Sub
kommst du damit klar?
Gruß
Christian

Anzeige
AW: Auswahl über Userform
09.02.2015 06:14:48
NoPa
Hi Christian,
sorry, dass ich mich erst jetzt melde!
Ich war am freitag nicht in der Arbeit!
Vielen Dank. So habe ich mir das vorgestellt!
Klasse, danke.
Schönen Gruß
Norbert

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige