Urlaubsplaner

[Hobbit]

Moin,
vielen dank für das Feedback, aber ich habe jetzt auf meinem Rechner erst O365 bekommen.

Wenn es alles ohne VBA geht wäre natürlich toll, aber wenn ich mir so die Formeln angucke die da in so einer Tabelle hinterlegt sind, ist es ja schon Hammer.

Ich kenne mich leider mit O365 bis jetzt leider so gut wie gar nicht aus.

Mir ist halt auch wichtig da man den Urlaubsschein per Doppelklick als Seriendruck rausbekommt. 

Wie gesagt, wenn es ohne VBA geht, wäre Top.

Vielen dank für die Mühen.

MFG

[Egon12]

Hallo Jens,

Anbei, der fehlende Rest.

  Abwesenheitkalender mit kleiner Auswertung für Forum 2. Wahl.xlsx (Größe: 153,48 KB / Downloads: 7)

  Abwesenheitkalender mit kleiner Auswertung via VBA für Forum 2. Wahl.xlsm (Größe: 176,67 KB / Downloads: 8)

Mal sehen, ob da noch die PQ-Lösung kommt. Die würde zumindest mich auf jeden Fall interessieren.

Gruß Uwe

[Hobbit]

Moin,

vielen dank für die Tolle Hilfe.

MFG Jens

[Hobbit]

Moin nochmal,

ich habe mal ein Paar Daten eingegeben und da ist mir aufgefallen, das man oben im Verwalten Register nicht einen Tag eingeben kann.
Da kommt die Fehlermeldung: Das Startdatum liegt weiter in der Zukunft als das Enddatum.

Und es steht dort 2 mal Datum von: drin.

Wie kann man das bearbeiten?

Vielen dank für die Mühen.

[Egon12]

Hallo Jens,

da habe ich versehentlich >= statt > drin. Aber diese Datei mit dem Ausgabeschein, welche du hochgeladen hattest, enthielt Fehler. Diese machen sich durch Störung in der Ausführung von VBA bemerkbar. Bei der Datei ohne VBA hat es keine Auswirkung.

Daraufhin habe ich den Ausgabeschein in einer vorherigen Datei neu gezeichnet und gleich die vielen unsinnigen bedingten Formatierungen korrigiert. Nun sind da nur noch 2 drin Urlaub und Feiertage.

Anbei alles beiden Versionen:

  Abwesenheitkalender mit kleiner Auswertung für Forum 2. Wahl.xlsx (Größe: 151,45 KB / Downloads: 11)
  Abwesenheitkalender mit kleiner Auswertung via VBA repariert.xlsm (Größe: 180,92 KB / Downloads: 8)

Gruß Uwe

[Hobbit]

Moin,

vielen Dank für die Hilfe.

Wie bekommt man das Datum von im Verwalten Register geändert, weil es ja jetzt doppelt drin steht.
Also 2 mal Datum von.

   

Vielen Dank für die Mühen.

MFG

[Egon12]

Hallo Jens,

das hatte ich noch für die 2 Editboxen offen gelassen und lediglich zum schnellen Auffinden ' einlesen vermerkt.

Tausche im Modul Mdl_Ribbon:

Code:

'Callback for editBox1 getText
Sub editbox1_getText(control As IRibbonControl, ByRef returnedVal)
    returnedVal = ""
End Sub

und

Code:

'Callback for editBox2 getText
Sub editbox2_getText(control As IRibbonControl, ByRef returnedVal)
    ' einlesen
    returnedVal = ""
End Sub

und

Code:

'Callback for Button1 onAction
Sub Button1_Callback(control As IRibbonControl)
    Dim lz&
    If Not IsDate(arrZeile(1, 2)) Or Not IsDate(arrZeile(1, 3)) Then
        MsgBox "Es wurde mindestens ein ungütiges Datum eingegeben", vbExclamation, "Problem Datumsfehler"
        Exit Sub
    End If
    If arrZeile(1, 2) > arrZeile(1, 3) Then
        MsgBox "Das Startdatum liegt weiter in der Zukunft als das Enddatum", vbExclamation, "Problem Datumsfehler"
        Exit Sub
    End If
    arrZeile(1, 5) = Date
    With Tabelle2
        lz = .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(lz + 1, 1).Resize(1, 5) = arrZeile
    End With
    objRibbon.InvalidateControl "editBox1"
    objRibbon.InvalidateControl "editBox2"
End Sub

Gruß Uwe

[Hobbit]

Moin,

vielen dank dafür, aber es steht immer noch:
   

Wie kann man das ändern?

Vielen Dank

MFG

[Egon12]

lade dir dazu den Office RibbonX Editor (liegt auf github.com) runter. Darin kannst du das XML im Ribbon bearbeiten.
Den Editor kannst du auch auf deinen PC zu Hause installieren, wenn es auf Arbeit nicht zugelassen wird.

Gruß Uwe

[Hobbit]

Moin,
Auf der Arbeit hats natürlich nicht geklappt, aber dafür zuhause. 
Vielen Dank für die Mühen. 
Schönen Sonntag euch allen.