Run Macro Problem-einzeln geht es - sonst nicht
01.06.2007 17:12:00
lobby007
ich lasse mehrere Macros hintereinander laufen:
Sub DatenübernahmeKomplett()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Run Macro:="UebernahmeausDaten"
Run Macro:="Datenuebernahmeklasse"
Run Macro:="DateninWerte"
Sheets("Klassenbeobachtungsbogen").Select
Range("b6:b6").Select
Run Macro:="SortierenNachname"
Sheets("Klassenbeobachtungsbogen").Select
Range("b6:b6").Select
Run Macro:="Einzeldatenübernahme"
Run Macro:="FormelraufKopieren"
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Sheets("Klassenbeobachtungsbogen").Select
Range("B5").Activate
end
Sub
Wenn ich die Macros manuell einzeln laufen lasse ist alles wunderbar.
Im "SortierenNachname" Macro wird sortiert und diese Sortierung klappt nicht richtig wenn die _
Macros hintereinander ausgeführt werden. Wie gesagt wann man alles manuell hintereinander macht geht alles. Die Select-Anweisungen habe ich schon aus Verzweiflung dazwischengefügt.
Wer weiß Rat ?
Gruß lobby007