Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfeee !! 3. Bedingungen abfragen - VBA ??????

Hilfeee !! 3. Bedingungen abfragen - VBA ?
11.11.2004 09:54:00
ralle
Hallo liebes Forum!
Hab mal wieder ein Problem, das ich ohne Euch wohl nicht lösen kann.
Habe folgendes Makro, mit dem ich 2 Bedingungen abfragen kann:

Sub Test()
Dim w As Integer
For w = 4 To Sheets.Count
If Sheets(w).[c9] = "j" Then
If Sheets(w).[c8] = "I a" Then
Sheets(w).[f5] = Sheets(3).[C22]
ElseIf Sheets(w).[c8] = "I b" Then
Sheets(w).[f5] = Sheets(3).[C22]
ElseIf Sheets(w).[c8] = "II a" Then
Sheets(w).[f5] = Sheets(3).[C22]
ElseIf Sheets(w).[c8] = "II b" Then
Sheets(w).[f5] = Sheets(3).[C22]
End If
End If
Next
End Sub

Nun möchte ich aber noch eine 3 Bedingungen mit abfragen
(If Sheets(w).[B8] = "Blau")
Geht soetwas überhaupt und wenn ja, kann mir jemand sagen wie?
Gruß
ralle

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfeee !! 3. Bedingungen abfragen - VBA ?
u_
Hallo,
so?

Sub Test()
Dim w As Integer
For w = 4 To Sheets.Count
With Sheets(w)
If .[c9] = "j" And .[B8] = "blau" Then
Select Case .[c8]
Case "I a": .[f5] = Sheets(3).[C22]
Case "I b": .[f5] = Sheets(3).[C22]
Case "II a": .[f5] = Sheets(3).[C22]
Case "II b": .[f5] = Sheets(3).[C22]
End Select
End If
End With
Next
End Sub

Deine ElseIf habe ich durch Select Case erstetzt. Ist erheblich übersichtlicher.
AW: Hilfeee !! 3. Bedingungen abfragen - VBA ?
u_
Hallo,
noch eine Verbesserung. habe ich übersehen.

Sub Test()
Dim w As Integer
For w = 4 To Sheets.Count
With Sheets(w)
If .[c9] = "j" And .[B8] = "blau" Then
Select Case .[c8]
Case "I a", "I b", "II a", "II b": .[f5] = Sheets(3).[C22]
End Select
End If
End With
Next
End Sub

Anzeige
Danke!!! klappt super!! :-))
11.11.2004 12:41:37
ralle
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige