Funktion "Case" - Blätter zusammenfassen
25.06.2006 11:42:31
Ralf
im Modul "Diese Arbeitsmappe"
-----------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(0, 0) = "C1" Then
Select Case Sh.Name
Case "002", "003", "004"
Sh.Range("Q1").Select
Case Else
End Select
End If
End Sub
-----------------------------
Zur einfacheren Darstellung habe ich bei der Zeile "Case" nur 3 Blätter dargestellt - in der Datei geht's weiter bis "145". Leider ist dann Schluß - man kann einfach keine weiteren Blätter hinzuschreiben. Kann man dort irgendwie eine Art Gruppe angeben oder gibt es sonst eine Lösung um die Funktion auf alle Blätter zu erweitern?
Danke im voraus,
Ralf
Anzeige