Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 10:40:53
Tabellen (formatiert) über VBA auswählen
17.05.2024 10:13:05
Excel Tabelle - Ort/Stadt nur einmal pro Kunde zählen?
17.05.2024 09:40:47
Warum geht das Fenster aktualisieren auf
17.05.2024 09:18:12
Autofilter mit Copy Funktion bei mehr als 158 Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1956to1960
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
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CheckBoxes auf UF mit Variable ansprechen

CheckBoxes auf UF mit Variable ansprechen
08.12.2023 18:45:13
reiner
Hallo Leute,

es gibt 12 ChkBoxes: chk01.value; chk02.value; chk03.value ... chk12.value auf der UF frmDiagrammDaten. Die Schreibweise der Nummer muss immer 2-stellig sein, "01", "02" ... "12". Damit die Programmierung nicht endlos lang wird will ich auf diese Möglichkeit: 

if chk01.value = true then

..

end if



if chk02.value = true then

..

end if



if chk03.value = true then

..

end if


verzichten und stattdessen die Nummerierung jeder chkbox durch eine Variable "Var" ersetzen die bei jedem Durchlauf der folgenden Schleife um "1" erhöht wird. Die Schleife wird verlassen wenn der Wert der Variablen auf "13" hochgezählt ist. 

Do until i =13

if frmDiagrammDaten.chk & Var & .value = true then

	..

end

var = var + 1

Loop

Meine Frage lautet: Wie muss der Programmcode korrekt formuliert werden?

mfG
reiner

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CheckBoxes auf UF mit Variable ansprechen
08.12.2023 19:03:54
Mullit
Hallo,

so iPr.: 
Dim i As Long

  For i = 1 To 13

      If frmDiagrammDaten.Controls("chk" & Format(i, "00")).Value Then

      

      End

  Next

Gruß, Mullit
AW: CheckBoxes auf UF mit Variable ansprechen
08.12.2023 19:06:32
Beverly
Hi reiner,

nach diesem Prinzip: 
    Dim chkBox As Control

    Dim intZaehler As Integer

    For intZaehler = 1 To 12

        If Me.Controls("chk" & Format(intZaehler, "00")) Then MsgBox "aktiviert"

    Next intZaehler


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: CheckBoxes auf UF mit Variable ansprechen
08.12.2023 19:09:28
GerdL
Hallo Reiner! 

For i = 1 to 12



If frmDiagrammDaten.Controls("chk" & Format(i,"00")) Then

'..........

End If



Next


Gruß Gerd
Danke Beverly, Mullit und Gerd
08.12.2023 19:51:16
reiner
Danke für eure Lösungsansätze, das hilft mir weiter
Noch ein Hinweis
08.12.2023 20:08:30
Beverly
Hi reiner,

bei meinem Code kannst du natürlich die Zeile Dim chkBox As Control weglassen. Ich hatte zuerst eine andere Codevariante und von der ist diese Variable übriggeblieben - hatte beim Kopieren einfach vergessen sie wegzulassen.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Noch ein Hinweis
08.12.2023 20:10:43
reiner
Danke Beverly

Links zu Excel-Dialogen

CheckBox Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige