Office: Stundenberechnung

Hallo an alle,
ich benötige nochmals Hilfe für meine Datei.
Der Mustermonat ist der Februar

1. Spalte c15 und e15 dürfen nur einmal mit einem x belegt werden
2. Zellen g15:n15 sollen gesperrt sein, wenn in Zellen c15:d15 ein x enthalten ist.

Danke für eure Hilfe

 

das geht nur mit VBA.

Dein Vorhaben ist nicht möglich. Da eine XLSX Datei kein Makro enthält.

 

Hallo,

die Aussagen von Hajo sind nicht korrekt.

Es geht natürlich auch ohne VBA, nur ist es ohne dies keine ganz sichere Lösung.

zu 1. Dies hast Du ja prinzipiell schon selbst gelöst.
zu 2. dies geht analog in der Datengültigkeit für G15:N45 mit nachfolgender benutzerdefinierten Formel:
=(ZÄHLENWENN($C15:$D15;"x")=0)*ISTZAHL(G15)*(G15<1)

Und wenn wirklich ein Makro eingesetzt werden soll, dann muß die Datei damit eben als XLSM oder XLSB abgespeichert werden. Aber ausreichend wäre auch ohne VBA. Mit einer zusätzlichen bedingten Formatierung kann man da mit im Prinzip der gleichen Formel auf fehlerhafte Eintragungen (z.B. durch Einkopieren) visuell auf dadurch evtl. Fehleingabe hinweisen.

 

Hola,
die Datenüberprüfung hatte ich auch schon mal vorgeschlagen, ohne Reaktion.
Excel Stundenberechnung
Gruß,
steve1da

 

Hallo Steve1da,
du hattest von mir eine Reaktion erhalten

Gruß Dieter

 

Da ging es um das Thema Auftragsprogrammierung, nicht um meinen Vorschlag.

 

ok
Die Auftragsprogammierung war meine letzte Hoffnung, dieses Problem lösen zu können.
Du hast aber trotzdem eine Reaktion von mir bekommen.

 

Die Datei wurde nicht gspeichert, Ich lege Deine Datei 2x ab.

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Dies gilt für alle Ereignisse unter DieseArvbeitsmappe.
Der Code wirkt in der gesamten Datei.

Code:

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    '***********************************************
    '* H. Ziplies                                  *
    '* 18.11.23                                    *
    '* erstellt von HajoZiplies@web.de             *
    '* http://Hajo-Excel.de/                       *
    '***********************************************
    Dim RaZelle As Range                            ' Variable für Zelle
    Dim RaBereich As Range                          ' Variable für Zelle
    If ActiveSheet.Name <> "AZ Total" Then           ' in dieser Tabelle nich
        Application.EnableEvents = False            ' Reaktion Eingabe aus
        ActiveSheet.Unprotect ("Passwort")
        Set RaBereich = Range("C15:E15")            ' Bereich der Wirksamkeit
        ' noch mehr Bereiche
        'Set RaBereich = Union(Range("C11:AG11 , C13:AG13, C15:AG15 , C17:AG17"), _
        '    Range("C35:AE35, C37:AE37, C43:AG43, C45:AG45 , C47:AG47 , C49:AG49"), _
        '    Range("C67:AF67 , C69:AF69 , C75:AG75 , C77:AG77 , C79:AG79 , C81:AG81"), _
        '    Range("C99:AF99 , C101:AF101, C107:AG107 , C109:AG109 , C111:AG111"), _
        '    Range("C127:AG127 , C129:AG129 , C131:AG131 , C133:AG133 , C139:AF139"), _
        '    Range("C155:AG155, C157:AG157 , C159:AG159 , C161:AG161 , C163:AG163"), _
        '    Range("C179:AF179 , C181:AF181, C187:AG187 , C189:AG189 , C191:AG191"))
        ' ab Vesion XP braucht der Schutz nicht aufgehoben werden
        ' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
        ' Zelle die in dem Bereich liegen auf die Variable schreiben
        ' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
        ' jede Zelladresse ist einzeln angegeben
        If Not RaBereich Is Nothing Then
            For Each RaZelle In RaBereich
                With RaZelle
                    If Application.WorksheetFunction.CountIf(RaBereich, "X") > 1 Then
                        RaZelle.Delete
                    End If
                End With
            Next RaZelle
        End If
        If Application.WorksheetFunction.CountIf(RaBereich, "X") = 1 Then
            Range("g15:n15").Locked = True
        Else
            Range("g15:n15").Locked = False
        End If
        ActiveSheet.Protect ("Passwort")
        Application.EnableEvents = True                 ' Reaktion Eingabe ein
        Set RaBereich = Nothing                         ' Variable leeren
    End If
End Sub

Gruß Hajo

 

Danke an Hajo,
habe es ohne Programmierung hinbekommen.Du hast mir trotzdem sehr gut geholfen und deine Tipps waren überzeugend.
Das gleiche gilt für Steve1da und Neopa C
Danke an alle anderen, dass mir geholfen wurde.
Wer diese doch so komplizierte Datei gerne haben möchte, sollte sich melden.

Liebe Grüße
mfkathie

 

Hallo Kathie,

da du hier deine Datei für andere anbietest, kann ich es mir doch nicht verkneifen zum Aufbau derselben einige Anmerkungen zu machen:

• Spalten ohne Inhalte zusammenschieben, um zu breiteren Trennlinien zu kommen, ist ein typischer Anfängerfehler, denn solche Spalten unterbrechen für Excel die Liste. Wenn da jemand auf die Idee kommt, die Liste zu sortieren, und das nicht merkt, wird er alles zerschießen. (Spalten A, F, Q und T).
• Dann der Unfug mit den drei Spalten C, D und E um dort ein x für die jeweilige Abwesenheit zu setzen. Was machst du, wenn da weitere hinzukommen? Zum Beispiel Bildungsurlaub (!), Kinderbetreuung, Seminare, um nur ein paar zu nennen. Willst du da jedes Mal neue Spalten einfügen, mit allen Problemen, die das nach sich zieht?
• Zu den Monatsblättern hatte ich mich ja schon an anderer Stelle geäußert.

Sicher könnte man da noch viel mehr anführen, aber aus den beiden Beiträgen zum gleichen Thema, (warum das eigentlich?), und den vielen Vorschlägen, auf die du zum Teil gar nicht eingegangen bist, kann man nur auf eine ausgeprägte Beratungsresistenz schließen. Dann musst du eben weiter wursteln, aber dann biete doch deine Machwerke nicht zur weiteren Verwendung an. Was mit einer schönen Oberfläche daherkommt, muss nicht gut sein.

 

Hallo Kathie,

hab dir mal deine U , K, und KK als Dropdown in einer Spalte eingefügt.

Mit der bedingten Formatierung wird dann die Zeile rot markiert wenn sowohl Arbeitszeit und ein Eintrag vom Dropdown getätigt werden.

Gruß
Roger

 

Hallo Klaus-Dieter,
danke für den Hinweis.
Diese Datei habe ich für einen Bekannten erstellt und er wollte diese Einstellungen. Trotzdem danke.
Ich werde morgen bei dem Gespräch darauf eingehen: a) mit den breiten Spalten und b) mit den Spalten C, D, E

Gruß
mfkathie

 

Hallo Roger,
danke für deinen Tip.
Werde ich morgen bei meinem Bekannten besprechen, der diese Datei gerne haben möchte

Gruß
mfkathie