Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CheckBox-Auswahl in If-Abfrage

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

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige