Auszug Quellcode
21.01.2003 13:58:46
Marc
Das erste Blatt enthält Zellen mit wahr/falsch, die ihren Inhalt/Wert über diese Formel aus einem anderen Blatt (Personaldatenbank) beziehen :=INDEX(Personaldatenbank!$D$26:$GU$391;$AS41+P$5;$N$3)
Ich denke, daß die Bedeutung der genannten Zellen halb so wichtig ist, denn es wird genau der richtige Wert aus "Personaldatenbank" angezeigt.
Der Inhalt dieser Zelle wird dann mit folgendem Makro in ein drittes Blatt kopiert:
Dim Pwd
Sheets("#").Select
Pwd = Cells(900, 3).Value
Sheets("Urlaubskalender").Select
ActiveSheet.Unprotect Password:=Pwd
Sheets("#").Select
Range("M8:AQ41").Select
Selection.Copy
Sheets("Urlaubskalender").Select
ActiveWindow.SmallScroll ToRight:=30
Range("BA8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("#").Select
Range("D90:D90").Select
Selection.Copy
Sheets("Urlaubskalender").Select
ActiveWindow.SmallScroll ToRight:=30
Range("AJ26:AJ26").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C7").Select
Application.CutCopyMode = False
Range("N4").Select
Application.CutCopyMode = False
ActiveSheet.Protect Password:=Pwd
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Der Krempel mit Pwd ist nur wegen dem Passwort-Blattschutz.
Die Blätter:
Urlaubskalender hier sind die Checkbuttons und die
Zellen, mit denen sie verknüpft sind
Personaldatenbank hier liegen (für jeden Mitarbeiter) die
WAHR-/FALSCH-Werte (Wahr=Urlaubstag)
# "Zwischenblatt" zum rumrechnen
Hier ist ein Abbild der WAHR-/FALSCH-
Werte des ausgewählten Mitarbeiters (über
die besagte Index-Formel werden die Werte
hier aufgelistet). Der Inhalt DIESER
Zellen wird dann über das oben genannte
Makro in das Blatt "Urlaubskalender"
kopiert.
Ist alles etwas kompliziert (ich weiß). Versuche es schon zu vereinfachen.
Thx!
Ciao
Marc