Hallo zusammen,
ich habe ein Excel-Sheet mit verschiedenen Kunden angelegt (sagen wir ein Kunde pro Zeile). Da es nun viele Kunden sind, wollte ich es den zuständigen Sachbearbeitern die Arbeit etwas erleichtern. Ich habe für jeden Sachbearbeiter einen Button mit Namen erstellt und dem Button das jeweilige Makro zugewiesen, um per Knopfdruck zu ermöglichen, dass alle Kunden zu einem bestimmten Sachbearbeiter angezeigt werden können und dieser nicht lange suchen muss.
Das Marko sieht wie folgt aus:
Sub ShowAll()
'
' Makro zum Anzeigen aller Kunden
'
'
Rows("1:900").Select
Selection.EntireRow.Hidden = False
End Sub
Sub Mustermann1()
'
' Mustermann1 Makro
'
'
Rows("1:900").Select
Selection.EntireRow.Hidden = False
Rows("5:29").Select
Selection.EntireRow.Hidden = True
Rows("50:900").Select
Selection.EntireRow.Hidden = True
End Sub
Sub Mustermann2()
'
' Mustermann2 Makro
'
'
Rows("1:900").Select
Selection.EntireRow.Hidden = False
Rows("30:900").Select
Selection.EntireRow.Hidden = True
End Sub
Sub Mustermann3()
'
' Mustermann3 Makro
'
'
Rows("1:900").Select
Selection.EntireRow.Hidden = False
Rows("5:49").Select
Selection.EntireRow.Hidden = True
Rows("75:900").Select
Selection.EntireRow.Hidden = True
End Sub
(Der ShowAll Button sollte alle Ausblendungen wieder aufheben)
(Die Kunden befinden sich in einem Zeilenbereich von 1 bis 900 - deswegen diese Begrenzung)
(Bei den Sachbearbeitern habe ich immer ein "Selection.EntireRow.Hidden = False" voran gesetzt, damit eventuell getätigte Ausblendungen erst mal wieder komplett eingeblendet werden und dann die jeweilig definierte Ausblendung vorgenommen werden kann.)
Am Anfang lief auch alles so wie gedacht. Nur dann auf einmal nur noch Abstürze sobald ich das Makro ausführe.
Ich hoffe Ihr könnt mir helfen und ich bedanke mich schon mal im Voraus.
|