Urlaubsliste erstellen
21.07.2014 20:29:40
Dominik
ich hab vor, die bestehende Urlaubsliste ein bisschen komfortabler zu gestalten. Da ich selbst eher ein "Hobbybastler" bin, benötige ich dringend eure Hilfe. Einiges konnte ich schon selbst zusammenbasteln, allerdings sind noch so ein paar Macken drin, die das Gesamtbild etwas unrund machen^^
Meine beiden Hauptprobleme sind das Einbinden einer Schaltjahrfunktion und zum anderen die automatische Änderung der Tabellennamen bzw. Reiter.
Zum Schaltjahr hab ich mir gedacht, dass sich die "Februar"-Tabelle um den 29. erweitert und _
beim darauffolgenden Jahr wieder zum 28. verkürzt. Die Formatierung sollte dabei erhalten _ bleiben. Am rechten Rand der Tabelle soll außerdem eine dickere Rahmenlinie als Abschluss sein. Ich hab probiert, mir das mittels Makro irgendwie zurecht zu biegen, allerdings bekomme ich keine dicken Randlinien und die Sache mit dem automatisch erweitern bzw. rückgängig machen erst recht nicht :/ sieht bei mir so aus:
Sub Schaltjahr_Makro()
Dim ws As Worksheet
For Each ws In Worksheets(Array(2))
ws.Activate
Columns(Range("A3").End(xlToRight).Row + 1).Insert Shift:=xlToRight
Next
End Sub
Sub Schaltjahr_Makro2()
Dim ws As Worksheet
Dim Zelle As Range
For Each ws In Worksheets(Array(2))
ws.Activate
For Each Zelle In Range("AF:AF")
With Zelle
If .Value "" Then
.EntireColumn.Delete
End If
End With
Next
Next
End Sub
Hier schiebt sich die Tabelle einfach nur nach rechts und die ersten beiden Eintragungen löschen den Inhalt :(
Was die Tabellennamen betrifft, wollte ich, wenn ich das Datum ändere, das sich die Reiter _
gleich mit aktualisieren, aber mit dem was ich im Internet gefunden habe
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Danke schonmal für jede Hilfe^^
https://www.herber.de/bbs/user/91611.xlsm