Makro startet und bricht dann ab
24.10.2020 09:50:23
Susanne
ich sitze seit mehreren Tagen an einem Bericht und komme einfach nicht weiter. Ich habe ein
Template erstellt, dass ich in ein Datenexport-Tool hochlade. Dort werden bestimmte Daten
eingespielt und der Bericht wird dann z.B. monatlich in einem bestimmten Ordner abgelegt. Damit
der Bericht die korrekten Daten abbildet, habe ich verschiedene Makros, die nacheinander
durchlaufen. Das klappt mit den ersten Makros problemlos, aber bei einem Makro hält er an. Ich
erhalte keine Fehlermeldung. Wenn ich den abgelegten Bericht öffne und über Entwicklertools Visual
Basic in das Modul gehe und dann auf Play drücke, wird das Makro so ausgeführt wie ich es haben
möchte. Woran könnte das liegen? Das letzte Makro das Problemlos funktioniert, lautet:
Public Sub restoreFormulasIII()
Application.ScreenUpdating = False
'Formeln runterziehen
Sheets("Auswertung").Select
Range("AA8:AB8").Select
Selection.AutoFill Destination:=Range("AA8:AB150"), Type:=xlFillValues
Sheets("Auswertung").Select
Application.ScreenUpdating = True
End Sub
Danach kommt das Makro, dass nicht startet:Sub LöschenMandant()
Dim c, d As Integer
For c = 1 To 150
If Cells(c, 27).Value = "1"; Then
Range(Cells(c, 6), Cells(c, 26)).ClearContents
End If
Next c
End Sub
Mein erster Gedanke war, dass das Makro nicht weiß, auf welches Tabellenblatt es Anwendung
finden soll, aber auch mit
Sub LöschenMandant()
Dim c, d As Integer
Sheets("Auswertung").Select
For c = 1 To 150
If Cells(c, 27).Value = "1"; Then
Worksheets("Auswertung").Range(Cells(c, 6), Cells(c, 26)).ClearContens
End If
Next c
End Sub
Komme ich nicht zum Erfolg. Ich habe dann das Makro LöschenMandant in das Makro
restoreFormulasIII eingebaut, aber auch das funktioniert nicht. Folgende Punkte habe ich schon
ausprobiert:
- Ich hatte angenommen, dass ich im Template vielleicht versehentlich ein Makro ausgeführt habe und es deswegen nicht erneut durchgeführt wird, aber ich habe die Datei noch mal neu erstellt und das Problem besteht weiterhin.
- Ich habe aktuell 7 Module und gedacht, dass, wenn ich die gleichen Variablen nehme, es hier zu Problemen kommen kann, aber auch mit anderen Variablen bleibt das Problem.
- Add-Ins sind alle ausgeschaltet.
- Makro-Einstellungen sind so gewählt, dass ich beim Öffnen der Arbeitsmappe gefragt werde, ob das Makro ausgeführt werden soll.
Die Module sind alle einzeln geschrieben. Im Projekt-Ordner unter Arbeitsmappe ist folgendes Makro
für den Ablauf hinterlegt:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
restoreFormulas
restoreFormulasII
aktuelleStruktur
restoreFormulasIII
LöschenMandant
LöschenBereich
Sheets("Auswertung").Select
Application.ScreenUpdating = True
End Sub
Hat jemand eine Idee, was ich noch ausprobieren könnte? Vielen Dank vorab!