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
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
Hallo Gast 123,
Zitat:die Überschrift kann aus 1-3 Zeilen bestehen!
wie kommst du darauf? Vermutlich leitet sich aus dieser Erkenntnis auch dein Nutzernamen ab!? :s
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
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.
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)