Wenn-Formel in Makro packen

Forumthread: Wenn-Formel in Makro packen

09.03.2009 20:03:24

Elmar

Hallo zusammen,
ich bräuchte mal Hilfe...
Ich habe eine Tabelle, die in der Spalte "T" Uhrzeiten angibt (ca. 10000 Datensätze je Datei mit verschiedensten Uhrzeiten) und in Spalte "U" hole ich mir mit "=WOCHENTAG(S2;2)" den Tag (Montag bis Sonntag). Nun suche ich nach einem Makro, dass mir die Tabelle so durchsucht, dass immer wenn die Tagein Spalte "U" Montag bis Freitag (1 bis 5) sind, alle Uhrzeiten zwischen 00:00 Uhr und 14:00 Uhr gelöscht werden. Wenn der Tag = Samstag oder Sonntag ist, dann sollen alle Datensätze mit den Uhrzeiten 00:00 Uhr bis 11:00 Uhr gelöscht werden.
Übrig sollen also nur noch Datensätze bleiben für Mo - FR von 14:01 Uhr bis 23.59 Uhr und Sa und So von 11:01 Uhr bis 23:59 Uhr.
Kann mir jemand helfen?
Mein Problem ist auch noch, dass die ganze Tabelle noch im Format "Text" ist.
Danke schon mal
Grüße
Elmar

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn-Formel in Makro packen

09.03.2009 21:39:34

UweD
AW: Wenn-Formel in Makro packen

09.03.2009 21:58:05

UweD
AW: Wenn-Formel in Makro packen

09.03.2009 22:10:39

Elmar

AW: Wenn-Formel in Makro packen

09.03.2009 21:39:34

UweD

Hallo
hab mal was gebastelt:

	S	T	U
1	Datum	Zeit	Tag
2	10.03.2009	16:32	2
3	11.03.2009	17:32	3
4	12.03.2009	18:32	4
5	13.03.2009	19:32	5
6	14.03.2009	20:32	6
7	15.03.2009	21:32	7
8	16.03.2009	22:32	1
9	17.03.2009	23:32	2
10	29.03.2009	11:32	7
11	11.03.2009	14:32	3
12	12.03.2009	15:32	4
13	13.03.2009	16:32	5
14	14.03.2009	17:32	6
15	15.03.2009	18:32	7
16	16.03.2009	19:32	1
17	17.03.2009	20:32	2
18	18.03.2009	21:32	3
19	19.03.2009	22:32	4
20	20.03.2009	23:32	5

Formeln der Tabelle

U2 : =WOCHENTAG(S2;2)

Option Explicit
Sub Raus()
    On Error GoTo Fehler
    Dim TB1, i%, LR&
    Set TB1 = ActiveSheet
    LR = TB1.Cells(Rows.Count, 20).End(xlUp).Row 'letzte Zeile der Spalte
    Application.ScreenUpdating = False
    For i = LR To 2 Step -1
        If (TB1.Cells(i, 21) < 6 And CDate(TB1.Cells(i, 20)) < "14:00:00") Or _
           (TB1.Cells(i, 21) >= 6 And CDate(TB1.Cells(i, 20)) < "11:00:00") Then
                Rows(i).Delete Shift:=xlUp
        End If
    Next
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

Gruß UweD

AW: Wenn-Formel in Makro packen

09.03.2009 21:58:05

UweD

Hallo
Die Grenzen noch durch &lt= mit einbeziehen.
Du kannst auch die Formel in Spalte T weglassen und hier mit abfragen:

Option Explicit
Sub Raus()
    On Error GoTo Fehler
    Dim TB1, i%, LR&, TTag%, Zeit As Date
    Set TB1 = ActiveSheet
    LR = TB1.Cells(Rows.Count, 20).End(xlUp).Row 'letzte Zeile der Spalte
    Application.ScreenUpdating = False
    For i = LR To 2 Step -1
        TTag = Weekday(TB1.Cells(i, 19), vbMonday)
        Zeit = TB1.Cells(i, 20)
        If (TTag <= 5 And Zeit <= "14:00:00") Or _
           (TTag >= 6 And Zeit <= "11:00:00") Then
                Rows(i).Delete Shift:=xlUp
        End If
    Next
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

Gruß UweD

AW: Wenn-Formel in Makro packen

09.03.2009 22:10:39

Elmar

Hallo Uwe,
das läuft ja prima..... Bei 15000 Datensätzen braucht es zwar eine ganze Zeit, aber das stört nicht. Eine große Erleichterung....DANKE
Grüße vom Bodensee
Elmar

Beliebteste Forumthreads (12 Monate)

Forumthread: Wenn-Formel in Makro packen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread