makros verbinden und turbo einbauen
14.08.2013 10:05:50
David
ich habe folgende makros:
Sub Zeilenausblenden1()
Dim iZeile As Long
For iZeile = 9 To 49
If Cells(iZeile, "AJ") = 0 Then
Rows(iZeile).EntireRow.Hidden = True
Else
Rows(iZeile).EntireRow.Hidden = False
End If
Next iZeile
End Sub
Sub Zeilenausblenden2()
Dim iZeile As Long
For iZeile = 52 To 132
If Cells(iZeile, "AJ") = 0 Then
Rows(iZeile).EntireRow.Hidden = True
Else
Rows(iZeile).EntireRow.Hidden = False
End If
Next iZeile
End Sub
Sub Zeilenausblenden3()
Dim iZeile As Long
For iZeile = 135 To 215
If Cells(iZeile, "AJ") = 0 Then
Rows(iZeile).EntireRow.Hidden = True
Else
Rows(iZeile).EntireRow.Hidden = False
End If
Next iZeile
End Sub
Diese möchte ich verbinden, weiß aber nicht wie. habe es mit ElseIf versuch und dann die Zeilen bezeichnung von i auf ii geändert. das ging aber nicht.
insgesammt gibt es 26 solcher makros, die alle zu einem makro umgebaut werden sollen.
hinzu kommt das es sich hier um ein sehr großes Tabellenblatt handelt, insgesammt 1500 zeilen müssen ein oder ausgeblendet werden. das dauert und der bildschirm flackert wenn ich den makro einschalte. es soll aber professionell aussehen und schnell gehen.
habe folgende befehle gefunden mit denen das möglich ist, kann sie aber nicht einbauen weil ich fehlermeldungen bekomme:
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
und am ende des makros wieder einschalten:
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
hat jemand eine ahnung wie ich die drei oberen makros zu einem makro verbinde und wie ich den turbo-befehl davor schalte?
hinzu kommt das die 3 bzw. 26 makros in einem submasterroutine hinterlegt sind. d.h. ich drücke in einem Tabellenblatt auf eine spezielle Taste und es werden die Makros in dem großen Tabellenblatt ausgelöst (mit den 1500 Zeilen) Muss der Turbo-BEfehl dann auch in den submasteroutine eingebaut werden oder reicht wenn ich es in den eigentlich Makro baue.
beste grüße, david