Tabelle

[tamara]

Hallo :)

ich kenne mich mit excel nicht so gut aus, so dass die frage vielleicht sogar einfach zu beantworten ist. danke auf jeden fall schonmal für die hilfe!

zu meinem problem:

-meine tabelle besteht im tabellenkopf aus den zahlen 1-30 für die tage des monats
-die linke tabellenspalte gibt namen der angestellten an

jetzt soll ich die urlaubstage immer eintragen. es ist so, dass jeder einmal die woche einen tag frei hat der sich zwischen montag und samstag bewegt. wenn man montag frei hat in woche 1, hat man in woche 2 dienstag, in woche 3 mittwoch frei.. usw. das alles aber jeden monat für jede person manuell einzutragen kostet extrem viel zeit  :s
ich hoffe jemand hat eine idee wie ich das leichter machen kann!

Lieben Dank 
tamara

[Gast 123]

Hallo tamara

so etwas laesst sich sicher per Vba einrichten.  Es waere gut eine Beispieldatei mi anonymen Daten wie Mustermann zu haben, denn ein Makro muss die Werte ja in der richtigen Spalte und Zeile zuordnen.  Das geht nicht mit ungenauen Angaben!  z.B. die Überschrift kann aus 1-3 Zeilen bestehen!

Dazu ein paar fragen:  
jeder bekommt einmal die Woche einen Tag frei, aber nicht alle Arbeiter am gleichen Tag!  Das muss verteilt werden. Schon deshalb ist eine Beispiel-datei von Nutzen, denn du siehst deine Datei auf dem PC , wir sehen diese Details aber nicht!  Und staendig rückfragen nervt!

In einem Beispiel kannst du die gewünschte Lösung vorgeben, dann erkennen wir deinen Logik Plan, sehen wie er aufgebaut ist. 

mfg  Gast 123

[Klaus-Dieter]

Hallo Gast 123,

die Überschrift kann aus 1-3 Zeilen bestehen!

wie kommst du darauf? Vermutlich leitet sich aus dieser Erkenntnis auch dein Nutzernamen ab!? :s

[Gast 123]

Hallo Klaus-Dieter

mit meinem Nutzernamen hat das nichts zu tun, praktische Erfahrung aus Forums Arbeit  Bei der Überschrift kann es den Monat als Gesamtüberschrift geben (verbundene Zellen)  Die Kalenderwoche (verbundene Zellen) und die einzelnen Tage.  Jeder macht das anders.

Manche Anwender fangen nicht mit Zeile 1 an sondern mit Zeile 2 oder 3.  Wenn man ein Makro schreiben will muss man schon exakt wissen wo Zeilen und Spalten anfangen, nach welchem System die Tabelle aufgebaut ist.  "ins blau programmieren" ist zu unbestimmt, kann klappen, muss aber nicht! 

Ausserdem kann ich ohne Beispieldatei nicht erkennen nach welchem System die Mitarbeiter ihre Freitage bekommen. (1 Tag pro Woche)
Ich kann nicht hellsehen, würde es aber gerne lernen!

mfg Gast 123

[lupo1]

Sub FreierRollierenderWerktag()
Workbooks.Add xlWorksheet
[A1:C1] = Array("Mon/Jahr", 8, 2017)
[D1].FormulaR1C1 = "=--(RC[-2]&-RC[-1])"
[E1:AH1].FormulaR1C1 = "=RC[-1]+1"
[D1:AH1].NumberFormat = "dd"
[D:AH].ColumnWidth = 3
[A3:A6] = WorksheetFunction.Transpose(Array("Jacky", "Sandy", "Chantal", "Sandra"))
[B3:B6] = WorksheetFunction.Transpose(Array(-6, -5, -4, 0))
[D1:AH6].FormatConditions.Add Type:=xlExpression, Formula1:="=REST(D$1;7)<2"
[D1:AH6].FormatConditions(1).Interior.Color = 15000000
[D3:AH6].FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(REST(NETTOARBEITSTAGE($D$1+$B3;D$1);6)=0)*(REST(D$1;7)>1)"
[D3:AH6].FormatConditions(2).Interior.Color = 14000000
[E2].Copy [D2] 'sonst gibt es einen seltsamen Bug in Zeile 2 bei Monatswechsel!
End Sub

Die Werte in B3:B6 bestimmen den Initial-Versatz der freien Tage.

[lupo1]

Sub FreierRollierenderWerktag()
Workbooks.Add xlWorksheet
[A1:C1] = Array("Mon/Jahr", 8, 2017)
[D1].FormulaR1C1 = "=--(RC[-2]&-RC[-1])"
[E1:AH1].FormulaR1C1 = "=RC[-1]+1"
[D1:AH1].NumberFormat = "dd"
[D:AH].ColumnWidth = 3
[A3:A6] = WorksheetFunction.Transpose(Array("Jacky", "Sandy", "Chantal", "Sandra"))
[B3:B6] = WorksheetFunction.Transpose(Array(6, 5, 4, 0))
[D1:AH6].FormatConditions.Add Type:=xlExpression, Formula1:="=REST(D$1;7)<2"
[D1:AH6].FormatConditions(1).Interior.Color = 15000000
[D3:AH6].FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(REST(NETTOARBEITSTAGE($B3;D$1);6)=0)*(REST(D$1;7)>1)"
[D3:AH6].FormatConditions(2).Interior.Color = 14000000
[A2] = [A2] 'sonst gibt es einen seltsamen bedF-Bug in Zeile 2 bei Monatswechsel!
End Sub

als Update (unterstrichene Zeilen korrigiert)