Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

von UserForm nach Sheet CheckBoxen

Forumthread: von UserForm nach Sheet CheckBoxen

von UserForm nach Sheet CheckBoxen
UserForm
Hallo, wieder einmal habe ich ein Problem :)
Ich habe ein Userform, dass ausgefüllt wird. Wenn man auf "Send" klickt, dann sollen die Werte des UserForms in ein Sheet übertragen werden. Das klappt soweit auch super. Nur habe ich ein Problem ;)
Ein Teil des Userforms sind 8 Checkboxen. Man kann ja entweder keine, eine oder mehrere Checkboxen anwählen. In meinem Sheet steht in Zelle B14 "Options" und in Zelle C14 sollen nun alle Namen der Checkboxen stehen, welche angewälht wurden. Wie mache ich das? Habs mit If versucht, aber das ist nicht allgemein genug...
Hier ein paar Auszüge aus meinem Code: 
Private Sub CB_SendRequest_Click()
'Sheet füllen
ActiveWorkbook.Sheets(2).Select
With Selection
Range("C4").Value = UserForm1.LB_RequestType.Value
Range("C6").Value = UserForm2.NameSelected.Caption
Range("C7").Value = UserForm2.MailSelected.Caption
Range("C8").Value = UserForm2.DatumSelected.Caption
Range("C9").Value = UserForm2.LandSelected.Caption
Range("C11").Value = UserForm2.CB_ServerType.Value
Range("C12").Value = UserForm2.TB_ServerName.Text
If OB_Yes.Value = True Then
Range("C13").Value = Right(OB_Yes.Name, 3)
Else
Range("C13").Value = Right(OB_No.Name, 2)
End If
'Hier kommt dann die Übertragung in die Zelle C14...
End With
'Sheet senden
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: von UserForm nach Sheet CheckBoxen
07.05.2012 10:46:55
UserForm
Uppsla, da war ich wohl zu schnell :)
Ja also, meine Frage: Wie kann ich mein Problem lösen?
Danke und liebe Grüsse
Ximena
Gelöst :D
07.05.2012 11:30:27
Ximena
Halli Hallo :)
Konnte es mit Hilfe meines Vaters lösen :) an alle die es interessiert, mein Code sieht nun so aus:
Private Sub CB_SendRequest_Click()
'Sheet füllen
ActiveWorkbook.Sheets(2).Select
With Selection
Range("C4").Value = UserForm1.LB_RequestType.Value
Range("C6").Value = UserForm2.NameSelected.Caption
Range("C7").Value = UserForm2.MailSelected.Caption
Range("C8").Value = UserForm2.DatumSelected.Caption
Range("C9").Value = UserForm2.LandSelected.Caption
Range("C11").Value = UserForm2.CB_ServerType.Value
Range("C12").Value = UserForm2.TB_ServerName.Text
If OB_Yes.Value = True Then
Range("C13").Value = Right(OB_Yes.Name, 3)
ElseIf OB_No.Value = True Then
Range("C13").Value = Right(OB_No.Name, 2)
End If
If CHB_Option1.Value = True Then
Range("C14").Value = CHB_Option1.Caption
End If
If CHB_Option2.Value = True Then
Range("C14").Value = Range("C14").Value & ", " & CHB_Option2.Caption
End If
If CHB_Option3.Value = True Then
Range("C14").Value = Range("C14").Value & ", " & CHB_Option3.Caption
End If
If CHB_Option4.Value = True Then
Range("C14").Value = Range("C14").Value & ", " & CHB_Option4.Caption
End If
If CHB_Option5.Value = True Then
Range("C14").Value = Range("C14").Value & ", " & CHB_Option5.Caption
End If
If CHB_Option6.Value = True Then
Range("C14").Value = Range("C14").Value & ", " & CHB_Option6.Caption
End If
If CHB_Option7.Value = True Then
Range("C14").Value = Range("C14").Value & ", " & CHB_Option7.Caption
End If
If CHB_Option8.Value = True Then
Range("C14").Value = Range("C14").Value & ", " & CHB_Option8.Caption
End If
If CHB_Option1.Value = False Then
mytempstring = Range("C14").Value
Range("C14").Value = Right(mytempstring, Len(mytempstring) - 2)
End If
Range("C15").Value = TB_Comment.Text
End With
'Sheet senden
End Sub
Liebe Grüsse
Ximena
Anzeige
AW: Gelöst :D
07.05.2012 11:47:34
Reinhard
Hallo Xinina, 
Private Sub CommandButton1_Click()
Dim N As Integer
Range("C14").Value = ""
For N = 1 To 8
Range("C14").Value = Range("C14").Value & _
IIf(Me("CHB_Option" & N).Value, ", " & Me("CHB_Option" & N).Caption, "")
Next N
If Range("C14").Value  "" Then Range("C14").Value = Mid(Range("C14").Value, 3)
End Sub

Gruß
Reinhard
Anzeige
AW: Gelöst :D
07.05.2012 13:24:47
Ximena
Hallo Reinhard
Ja ich denke, das ist ne elegantere Lösung :)
Danke vielmals.
Liebe Grüsse
Ximena
;

Forumthreads zu verwandten Themen

Checkboxen
Gordon

Moin,
ich habe auf einem Blatt 39 Checkboxen (CheckBox1 bis Checkbox40).
Der Code für Checkbox2 schaut so aus:
Private Sub CheckBox1_Click() With Worksheets("Neu") If CheckBox2.Value = True Then .Columns("I:K").ColumnWidth = 10.14 .Columns("L").ColumnWidth = 1.71 ElseIf CheckBox2....
17.09.2008 12:56:00
Thread-ID: 1010340
12 Beiträge
Anzeige
Variable Checkboxen
Gordon

Moin,
ich habe neulichst glaube ich schon mal eine ähnliche Frage gestellt, aber ich bin mir nun nicht sicher, ob es das selbe ist. Daher bitte ich um Verzweihung falls ich die selbe Frage stellen sollte. ;-)
Also ich habe 10 Checkboxen (1 bis 10). Kann man diese Boxen eigentlich Var...
22.09.2008 11:11:00
Thread-ID: 1011408
5 Beiträge
Werte von Checkboxen in Userform speichern
Checkboxen

Hallo liebe Forumleser,
ich habe in VBA Excel eine Userform mit Checkboxen erstellt. Ein "OK Button" in der Userform schreibt die Captions der angekreuzten Checkboxen in eine Tabelle:
Worksheets("BDaten").Range("D65:D67").Clear
If chkAKurzI1 = True Then
Worksheets("BDaten").Cell...
17.10.2008 16:39:00
Thread-ID: 1017214
8 Beiträge
Anzeige
Checkboxen in Userform
Sebastian

Hallo zusammen,
Dank Tino (https://www.herber.de/bbs/user/56484.xls
) konnte ich einen Teil meines Problems schon lösen. Aber leider noch nicht ganz. Kurz zu meinem eigentlichen Problem. Ich möchte in einer (flexiblen) Userform Textboxen aus einer Tabelle füllen. Diesen Teil konnte ich...
04.11.2008 15:22:00
Thread-ID: 1021663
4 Beiträge
Frage zu checkboxen auf userform
chris

Hallo und guten morgen,
habe eine frage hoffe ihr könnt mir helfen.
ich habe eine Userform auf dieser habe ich mehere checkboxen von Name
chb_1
bis chb_40
Wie kann ich im VBA code abfragen ob eine bestimmte checkbox value true ist ?
im string fehler steht drinnen:
W...
13.11.2008 09:04:45
Thread-ID: 1024049
3 Beiträge
Anzeige
Problem mit Checkboxen per Vba zu erzeugen
Reinhard

Hallo Wissende,
im Zuge meines Versuches jmdm. in einem anderen Forum dabei zu helfen in einer Spalte ca. 90 Checkboxen per Vba zu erstellen stiess ich auf sehr unerwartete Schwierigkeiten.
Ich bekam es hin, daß die ca. 90 Checkboxen erstellt werden, aber sie sind schon mit einem Häkche...
13.11.2008 23:45:36
Thread-ID: 1024386
7 Beiträge
Mit checkboxen Einträge in Liste färben
adrian

Hallo,
habe fogendes kleines/ bzw. großes Problem und keine Idee wie ich es am geschicktesten Lösen könnte.
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen) Supplier habe ich 3 Checkbo...
18.11.2008 16:54:24
Thread-ID: 1025705
2 Beiträge
Checkboxen!!
adrian

Hallo,
falls sich hier jemand gut mit "checkboxen" gut auskennt und mir helfen könnte folgendes Problem zu lösen wäre das echt super!
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen)...
24.11.2008 10:50:00
Thread-ID: 1027215
3 Beiträge
Checkboxen
Tim

Hi
Wie kann ich zwei Checkboxen verbinden. Die eine Checkbox ist auf Tabelle1 und die andere auf Tabelle2.
Wenn Checkbox1 auf Tab1 angeklickt ist, sollte auch Checkbox2 auf Tab2 angeklickt sein oder umgekehrt.
Danke für Eure Hilfe
Gruß
Tim
15.01.2009 08:24:00
Thread-ID: 1039889
3 Beiträge
Anzeige
Checkbox im Zusammenspiel mit anderen Checkboxen
Stefen

Hi Leute
Ich bin am Ende meines bescheidenen Wissen. Daher wende ich mich lieber an Euch bevor der PC brennt.
Wollte nur, dass wenn eines der Checkboxen 38 bis 41 true ist sollte CheckboxNr. 37 nicht true sein.
also angeklickt.
Was mache ich da bloß wieder falsch?
If CheckBo...
25.01.2009 21:07:40
Thread-ID: 1043685
3 Beiträge
Änderung von Checkboxen n. Druckansicht verhindern
Checkboxen

Hallo zusammen,
ich habe auf meinen Arbeitsblatt ein Rechteck eingefügt. Auf diesem Rechteck habe ich eine Textbox und drei Checkboxen platziert. Jedes dieser Objekte habe ich per Objekteigenschaften wie folgt formatiert:
Von Zellposition und -größe unabhängig
Den Haken bei Objekt d...
29.01.2009 08:31:00
Thread-ID: 1044782
3 Beiträge
Checkboxen bleiben nicht mit Hacken konstant
Leon

Hi Zusammen
Habe eine so tolle Datei erstellt mit einigen UF's und auch Checkboxen etc. und erst jetzt merke ich, daß
wenn ich von einer UF zur anderen gehe und zurück meine angeklickten Checkboxen nicht mehr angeklickt sind.
Kann man dieses Problem beheben?
Gruß
Leon
01.02.2009 00:12:54
Thread-ID: 1045803
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige