Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1724to1728
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

Makro zur Auswertung einer ganze

Makro zur Auswertung einer ganze
04.12.2019 13:32:06
Bastian
Moin zusammen,
ich müsste das folgende Makro so geändert bekommen das es nicht nur den Bereich A2 und B2 vergleicht sondern A2 bis A100 und B2 bis B100 Mein Ansatz hat nicht funktioniert. Kann mir jemand den Befehl nennen mit das Funktioniert?
Vielen Dank im Voraus
Sub Auswertung()
With ThisWorkbook.Sheets("Tabelle2")
If .Range("A2") = CDate("4466") And .Range("B2") > CDate("06:30:00") And .Range("B2")  CDate("9:15:00") And .Range("B2")  CDate("11:00:00") And .Range("B2")  CDate("15:00:00") And .Range("B2") 

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zur Auswertung einer ganze
04.12.2019 14:23:08
Torsten
Hallo Bastian,
mit einer Schleife von Zeile 2 bis Zeile 100:

Sub Auswertung()
Dim i As Long
For i = 2 To 100
With ThisWorkbook.Sheets("Tabelle2")
If .Range("A" & i) = CDate("4466") And .Range("B" & i) > CDate("06:30:00") And .Range(" _
B" & i)  CDate("9:15:00") And .Range("B" _
& i)  CDate("11:00:00") And .Range(" _
B" & i)  CDate("15:00:00") And .Range(" _
B" & i) 

Gruss Torsten
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige