Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
16.05.2024 19:06:22
Monatssumme / Zahlweise / Kalenderjahr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1948to1952
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
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle ausgewählten Texte aus Userform übertrageb

Alle ausgewählten Texte aus Userform übertrageb
15.10.2023 17:42:14
Sabbel
Hallo guten Tag,

Ich habe eine Frage .. ich muss die ausgewählten Texte der Checkboxen aus der geöffneten Userform in die Zellen C7 und weiter nach unten übertragen.

Kann mir jemand dabei helfen?

Hier eine Testdatei: https://www.herber.de/bbs/user/163454.xlsm

Liebe Grüße

Sabbel

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

Betreff
Datum
Anwender
Anzeige
AW: Alle ausgewählten Texte aus Userform übertrageb
15.10.2023 19:39:26
Alwin Weisangler
Hallo Sabbel,

das sollte so klappen: 


Option Explicit



Private Sub CommandButton1_Click()

    Dim i&

    For i = 1 To 8

        If Controls("CheckBox" & i) = True Then

            Tabelle1.Cells(i + 6, 3) = Controls("CheckBox" & i).Caption

        Else

            Tabelle1.Cells(i + 6, 3) = ""

        End If

    Next i

End Sub


Gruß Uwe
AW: Alle ausgewählten Texte aus Userform übertrageb
16.10.2023 17:46:32
Herbert Grom
Hallo,

schau dir mal meinen Vorschlag an:

https://www.herber.de/bbs/user/163483.xlsm

Servus
Anzeige
AW: Alle ausgewählten Texte aus Userform übertrageb
15.10.2023 20:38:57
Sabbel
Hallo Uwe .. schon mal vielen Dank.
So werden die Inhalte der CheckBoxen in der Datei ab Zelle C7 übertragen.
Allerdings sollte alle untereinander ohne leere Zeilen stehen.

Also ab Zelle C7 nach unten sollten keine Leerstellen sein.

Zum Beispiel wenn die Check Boxen 1, 3 und 5 angeklickt wurden

C7: Text1
C8: Text3
C9: Text5

Hat jemand eine Idee

Liebe Grüße
Sabbel
AW: Alle ausgewählten Texte aus Userform übertrageb
15.10.2023 20:44:52
onur 
Private Sub CommandButton1_Click()

    Dim i,ii as integer

    For i = 1 To 8

        If Controls("CheckBox" & i) = True Then Tabelle1.Cells(ii + 7, 3) = Controls("CheckBox" & i).Caption:ii=ii+1

    Next i

End Sub
Anzeige
AW: Alle ausgewählten Texte aus Userform übertrageb
15.10.2023 20:56:03
Alwin Weisangler
eine weitere Möglichkeit wäre dann so: 


Private Sub CommandButton1_Click()

    Dim i&, var

    For i = 1 To 8

        If Controls("CheckBox" & i) = True Then

            var = var & Controls("CheckBox" & i).Caption & "~~"

        End If

    Next i

    var = Split(Left(var, Len(var) - 2), "~~")

    With Tabelle1

        .Range("C7:C" & .Cells(Rows.Count, 3).End(xlUp).Row).ClearContents

        .Cells(7, 3).Resize(UBound(var) - LBound(var) + 1, 1) = WorksheetFunction.Transpose(var)

    End With

End Sub

Gruß Uwe
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige