Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl über Userform

Forumthread: 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

Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

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