Makro für die gesamten Tabellen in der Arbeitsmappe.! Wo ist denn der Fehler ?

Question

Hallo alle miteinander

Ich bin hier im Forum eh auch schon alle Beiträge die irgendwie mit meinen Problem zusammen hängen durch gegangen und getestet aber ich finde den Fehler einfach nicht

Kurzerklärung. Die Datei wird geöffnet -> mit UserForm1.Show -> mit "Ja" bestätigt und mit Sub Mail() soll er den ganzen Code auf jedes TB ausführen. Nur irgendwie macht er das nicht er macht es immer nur für das akutelle TB  wenn ich die Sub Mail() in jedem TB manuell aufrufe dann macht er es 

---

Private Sub Workbook_Open()
UserForm1.Show
End Sub

---

Private Sub CommandButton1_Click()
Application.Run "Mail"
End Sub

---

Private Sub Mail()

Dim Zeile As Long
Zeile = 1
Check (Zeile)  'Sprung in den Aufruf Check()

End Sub

Private Sub Check(ByVal Zeile As Long)
    Dim WS As Worksheet
    Dim Urgenz1 As String
    Dim Urgenz2 As String
    Urgenz1 = "x"
    Urgenz2 = "x"
    Dim i As Long
    
    For Each WS In ThisWorkbook.Worksheets 'alle Tabellenblätter durchlaufen
    
    Const xlUp As Long = &HFFFFEFBE
    Debug.Print CStr(Cells(Rows.Count, 1).End(xlUp).Row) 
      
    For i = Zeile + 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If (CDate(Cells(i, 7).Value) < DateTime.Date) And (CStr(Cells(i, 13).Value) = "x") Then ' Wenn Spalte "G" Datum = heutiges Datum & Spalte "M" auf "Leer" Dann
        'MsgBox "Email schon geschickt", vbInformation, "Fertig" 'Message Box als Hilfe stellung

        ElseIf (CDate(Cells(i, 7).Value) < DateTime.Date) And (CStr(Cells(i, 13).Value) = vbNullString) Then 'Wenn Spalte "G" Datum = heutiges Datum & Spalte "M" auf "Leer" Dann
            Cells(i, 13).Value = Urgenz1 'Füge Urgenz1 in Spalte M
            Call Send_Email(i)  'Aufruf Prozedur "Send_Email()"
        End If
        
        If (CDate(Cells(i, 8).Value) < DateTime.Date) And (CStr(Cells(i, 14).Value) = vbNullString) Then 'Wenn Spalte "H" Datum = heutiges Datum & Spalte "N" auf "Leer" Dann
            Cells(i, 14).Value = Urgenz2 'Füge Urgenz2 in Spalte N
            Call Send_Erinnerung(i)  'Aufruf Prozedur "Send_Erinnerung" 
        End If
    Next i
'    Call MsgBox("Fertig!", vbOKOnly)
    Next WS
End Sub

---

Kann mir bitte wer sagen was ich falsch mache und wo der verdammte Fehler ist . Bin echt schon am verzweifeln 

Über dringende Hilfe wäre ich sehr dankbar.

LG SnowWhite

Answer 1

Hallo M. O.

Ok ;-) Na dann hoffe ich nur das Sie nicht mit dem Punkt "Tabellen Blätter löschen" danach wieder an getanzt kommen 

Aber ich dank dir mal vorerst  und wünsch Dir mal ein schönes nicht alt zu heißes Wochenende.

GLG SnowWhite

Answer 2

Hallo SnowWhite,

rege dich vor dem Wochenende nicht unnötig auf. Auch ich wünsche dir ein schönes Wochenende.

Gruß

M.O.

Answer 3

Mahlzeit M.O.

Ich brauch wieder einmal Hilfe  :-( Hättest du vielleicht zeit ???

GLG

Answer 4

Hi snowwhite,

falls das eine neue Aufgabe wird, also keine Erweiterung deines ursprünglichen Problems, würde ich dich bitten eine neue Frage zu stellen. Das wird hier sonst zu unübersichtlich.

Wenn es nur eine erweiterte Fragestellung zu deinem Problem ist, dann kannst du es gerne hier fragen.

Gruß Fabian

Answer 5

Hi Fabian

Tut mir sehr leid hätte ich auch gemacht wenn es eine neue Aufgabe wäre. Aber in dem Fall ist es eine Erweiterung die noch dazu gehört 

LG SnowWhite