Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1240to1244
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
Inhaltsverzeichnis

CheckBox-Auswahl in If-Abfrage

CheckBox-Auswahl in If-Abfrage
Gregor
Guten Morgen
Mittels CheckBox-Auswahl definiere ich Auswahlkriterien:
Private Sub cmdStarten_Click()
Muster1 = ""
Muster2 = ""
Muster3 = ""
Muster4 = ""
Muster5 = ""
'usw. total 20 möglichkeiten
If chkAA = True Then Muster1 = "AA"
If chkBB = True Then Muster2 = "BB"
If chkCC = True Then Muster3 = "CC"
If chkDD = True Then Muster4 = "DD"
If chkEE = True Then Muster5 = "EE"
'usw. total 20 Abfragen
End Sub
Anschliessend will ich die gewählten Auswahlkriterien zB. "AA" und "DD" mittels einer For Next-Abfrage weiterbearbeiten:
For Start = 2 To intLastRow
If Cells(Start, Spalte) = "AA" Or Cells(Start, Spalte) = "DD" Then
usw.
Next
Wie eruiere ich die definierten Auswahlkriterien in die If-Abfrage?
Kann ich die Variablen Muster in einem Vorgang leeren?
Vielen dank und freundliche Grüsse
Gregor

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: CheckBox-Auswahl in If-Abfrage
15.12.2011 10:11:39
Rudi
Hallo,
ziemlich wirr.
Muster würde ich als Datenfeld(Array) definieren.
Dim Muster(1 to 20)
Dann weiter mit
If chkAA Then Muster(1)="AA"
If chkBB Then Muster(2)="BB"
etc.
Und dann
For Start = 2 To intLastRow
If Not IsError(Application.Match(Cells(Start, Spalte), Muster, 0)) Then
'Code
Next
Gruß
Rudi
AW: CheckBox-Auswahl in If-Abfrage
15.12.2011 12:05:48
Gregor
Hallo Rudi
Vielen Dank.
Bei der For-Next Abfrage bleibt Muster immer leer.
Ich habe nun vorgelagert eine zusätzliche For-Next-Abfrage gesetzt:
For Start1 = 1 to 20
If not isEmpty(Muster(Start1) Then
For Start = 2 to intlastRow
'Code
Next
End if
Next
Vielleicht nicht die eleganteste Methode, aber so geht es.
Vielen Dank und Gruss
Gregor
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige