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

Alle ausgewählten Texte aus Userform übertrageb

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

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
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
Anzeige
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
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)

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