Problem beim Ausführen mehrerer Makros
26.12.2016 11:52:41
Peter
zuerst einmal wünsche ich noch allen schöne erholsame Weihnachtsfeiertage.
Nun zu meinem Problem.
Ich habe 60 Makros mit dazugehörendem Untermakro also insgesamt 120 Makros.
Mit dem 60 Makros wird geprüft, ob Wert in Zelle 0 ist oder grösser.
Ist Wert grösser wird das passende Untermakro ausgeführt, ist der Wert 0 wird das nächste Makro ausgeführt.
Im letzten Makro habe ich eingefügt, wenn Wert 0 dann exit Sub.
Wenn ich dieses Makro einzeln ausführe ist alles OK.
Ich habe jedoch die 60 Makros in ein Makro zusammengefasst und lasse diese Ausführen.
Jetzt entsteht das Problem: das Makro wird nicht beendet sondern läuft unendlich weiter.
Wer kann mir bitte helfen.
Anbei das Gesamtmakro und das letzte Makropaar:
Sub Drucken_Januar_gesamt()
Datumprüfung_Januar_Konto01
Datumprüfung_Januar_Konto02
Datumprüfung_Januar_Konto03
Datumprüfung_Januar_Konto04
Datumprüfung_Januar_Konto05
Datumprüfung_Januar_Konto06
Datumprüfung_Januar_Konto07
Datumprüfung_Januar_Konto08
Datumprüfung_Januar_Konto09
Datumprüfung_Januar_Konto10
Datumprüfung_Januar_Konto11
Datumprüfung_Januar_Konto12
Datumprüfung_Januar_Konto13
Datumprüfung_Januar_Konto14
Datumprüfung_Januar_Konto15
Datumprüfung_Januar_Konto16
Datumprüfung_Januar_Konto17
Datumprüfung_Januar_Konto18
Datumprüfung_Januar_Konto19
Datumprüfung_Januar_Konto20
Datumprüfung_Januar_Konto21
Datumprüfung_Januar_Konto22
Datumprüfung_Januar_Konto23
Datumprüfung_Januar_Konto24
Datumprüfung_Januar_Konto25
Datumprüfung_Januar_Konto26
Datumprüfung_Januar_Konto27
Datumprüfung_Januar_Konto28
Datumprüfung_Januar_Konto29
Datumprüfung_Januar_Konto30
Datumprüfung_Januar_Konto31
Datumprüfung_Januar_Konto32
Datumprüfung_Januar_Konto33
Datumprüfung_Januar_Konto34
Datumprüfung_Januar_Konto35
Datumprüfung_Januar_Konto36
Datumprüfung_Januar_Konto37
Datumprüfung_Januar_Konto38
Datumprüfung_Januar_Konto39
Datumprüfung_Januar_Konto40
Datumprüfung_Januar_Konto41
Datumprüfung_Januar_Konto42
Datumprüfung_Januar_Konto43
Datumprüfung_Januar_Konto44
Datumprüfung_Januar_Konto45
Datumprüfung_Januar_Konto46
Datumprüfung_Januar_Konto47
Datumprüfung_Januar_Konto48
Datumprüfung_Januar_Konto49
Datumprüfung_Januar_Konto50
Datumprüfung_Januar_Konto51
Datumprüfung_Januar_Konto52
Datumprüfung_Januar_Konto53
Datumprüfung_Januar_Konto54
Datumprüfung_Januar_Konto55
Datumprüfung_Januar_Konto56
Datumprüfung_Januar_Konto57
Datumprüfung_Januar_Konto58
Datumprüfung_Januar_Konto59
Datumprüfung_Januar_Konto60
End Sub
Sub Datumprüfung_Januar_Konto60()
Dim ws As Worksheet
Dim sSpalte1 As String 'für z.B. A
Dim sDatum1 As Date 'Monatsdatum Anfang
Dim sDatum2 As Date 'Monatsdatum Ende
sSpalte1 = "RE"
sDatum1 = Worksheets("Druckbereich").Range("B4").Value 'Januar
sDatum2 = Worksheets("Druckbereich").Range("C4").Value 'Januar
Call SpalteRE_markieren_zum_Convertieren
Set ws = Worksheets("Konten")
ws.Range("RN2").Value = WorksheetFunction.CountIfs(Range(sSpalte1 & "4:" & sSpalte1 & "3002"), " _
>=" & CLng(sDatum1), Range(sSpalte1 & "4:" & sSpalte1 & "3002"), "Sub Drucken_Konten_Bereich_Januar60()
Dim ws As Worksheet
Dim sSpalte1 As String 'für z.B. A
Dim sSpalte2 As String 'für z.B. B
Dim sSpalte3 As String 'für z.B. H
Dim sdatum As String 'Monatsdatum
Dim sZusatz1 As String 'Summe im
Dim sZusatz2 As String 'Gesamtsumme im
Dim sMonat As String 'Name Monat
sSpalte1 = "RE" 'später Userform1.TextBox71.value
sSpalte2 = "RL" 'spater Userform1.TextBox73.value
sSpalte3 = "RF" 'später Userform1.TextBox72.value
sdatum = Worksheets("Druckbereich").Range("B4").Value
sZusatz1 = Worksheets("Kontosalden").Range("R2")
sZusatz2 = Worksheets("Kontosalden").Range("R3")
sMonat = Worksheets("Druckbereich").Range("E4").Value 'E5 usw. für jeden Monat
Worksheets("Konten").Activate
Worksheets("Konten").Range(sSpalte3 & "3003") = sZusatz1 & " " & sMonat
Worksheets("Konten").Range(sSpalte3 & "3004") = sZusatz2 & " " & sMonat
Worksheets("Konten").Range(sSpalte1 & "3003") = sdatum
Worksheets("Konten").Range(sSpalte1 & "3004") = sdatum
Call SpalteRE_markieren_zum_Convertieren
Set ws = Worksheets("Konten") 'ActiveSheet
wsLR = ws.Cells(Rows.Count, 473).End(xlUp).Row
Range(sSpalte1 & "1:" & sSpalte2 & wsLR).Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$8").AutoFilter Field:=1, Criteria1:= _
xlFilterAllDatesInPeriodJanuary, Operator:=xlFilterDynamic
Set PrintA = ws.Range(sSpalte1 & "1:" & sSpalte2 & wsLR) 'Druckbereich wird hier _
bestimmt
ws.PageSetup.PrintArea = PrintA.Address(0, 0)
ws.PrintPreview 'Ansicht
'ws.PrintOut Copies:=1 'Ausdruck
'Druckbereich zurücksetzen
'ws.PageSetup.PrintArea = strDruckbereich
Selection.AutoFilter
End Sub