Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If Bedingung zusammen setzen

If Bedingung zusammen setzen
04.09.2003 18:34:06
Holger
Hallo,

Ist es Moeglich sich eine If Bedingung zusammen zu setzen?
Ausgangslage:
Habe eine sehr lange if Bedingung:

if (a = 'wert1') or (a = 'wert2) or (a = wert3) or (...) then
(...)
end if

Ich habe die Bedingungen auf einem extra Sheet in einer spalte stehen (wuerde diese spaeter auch gerne erweitern koennen). Ist es moeglich sich aus den "Bedingungswerten" in dieser Spalte eine if-Bedingung zusammenzustellen, d.h dass ich nur in die Spalte einen 'wertx' in die naechste Zeile schreibe und mein script mir automatisch beispielsweise:

if (a = 'wert1') or (a = 'wert2) or (a = wert3) or (...) or (a = 'wertx') then
(...)
end if

meine if Bedingung zusammen schustert?

Gruss
Holger

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Bedingung zusammen setzen
04.09.2003 20:07:51
ChrisL
Hi Holger

Wenn du in Spalte A, der Tabelle 1 Deine möglichen Werte einträgst...

Option Explicit


Sub Holger()
Dim a As String
a = "X"
If Application.WorksheetFunction.CountIf(Worksheets("Tabelle1").Columns("A:A"), a) > 0 Then
MsgBox "Bedingung erfüllt"
Else
MsgBox "Bedingung nicht erfüllt"
End If
End Sub


Gruss
Chris

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige