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
Anzeige
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 19: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 21: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 22: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 22: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 22: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum