Ohne Activate funktioniert es nicht *seufz*
31.01.2006 15:48:34
Maike
Mein gutes Excel verwirrt mich mal wieder
Ich möchte auf Wunsch des Benutzers eine Programmausführung rückgängig machen und eine Art Startzustand wieder herstellen.
Dabei wird das Diagramm-Blatt ("Motorkennfeld") gelöscht.
Die anderen unten im Code aufgeführten Blätter sollen nur "geleert" werden.
Dabei soll die erste Zeile stehen bleiben, alle anderen sollen weg.
Aufgrund des Programmes ist es bei einigen nur nötig die ersten 4 Spalten zu löschen.
Wenn ich den unten angegebenen Code ausführe, funktioniert das nun auch.
Wenn ich die Activate-Zeilen weglasse, aber nicht mehr.
Da ich bei euch gelernt habe, dass man Activate so weit wie möglich vermeiden sollte, würde ich das auch hier gerne tun. Ich weiß aber nicht, warum es nicht ohne Activate funktioniert und wie ich es umgehen kann.
Gibt es da vielleicht Lösungsvorschläge?
Sub MotorKennlinieRückgängig()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Motorkennfeld").Delete
Application.DisplayAlerts = True
Sheets("Volllast").Activate
Sheets("Volllast").Range(Cells(2, 1), Cells(65536, 4)).ClearContents
Sheets("Kennlinien").Activate
Sheets("Kennlinien").Range(Cells(2, 1), Cells(65536, 255)).ClearContents
Sheets("untere_Begrenzung").Activate
Sheets("untere_Begrenzung").Range(Cells(2, 1), Cells(65536, 4)).ClearContents
Sheets("Messwerte_Original").Activate
Sheets("Messwerte_Original").Range(Cells(2, 1), Cells(65536, 4)).ClearContents
Application.ScreenUpdating = True
End Sub
Vielen Dank
Gruß Maike