Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo!

(...) Auf einmal fehlen mir die ganzen Editor-Icons oberhalb des Textfeldes (...)

Meinst Du bei der Schnellantwort? Dort fehlen sie bei mir auch. Das muss der Administrator richten, da haben wir Moderatoren keinen Zugriff. Wenn Du auf "Antworten" klickst kommst Du zum Editor, dort müsste alles zur Verfügung stehen.

Gruß, René

Hallo!

Indem Du nur Formeln einfügst, nicht die Inhalte und Formatierungen. Mit dem Ausfüllkästchen ist das aber nicht möglich. Also kopieren (STRG+C) und einfügen über Tab "Start", Gruppe "Zwischenablage", Menü "Einfügen".

Gruß, René

Nicht nur Anfänger übersehen manche Dinge. Das geht uns Fachwissenden auch nicht anders. Besonders wenn Microsoft mal wieder zuviel verschlimmbessert hat.

Hallo!

Mit Punkt natürlich. "Simone lächelte" ist eine Aussage die mit Simones Worten nichts zu tun hat.

Gruß, René

Hallo!

M.E. nur mit POP3 möglich. Bei IMAP m.E. nicht möglich, es sei denn der Server macht mit.

Gruß, René

Hallo!

Händler sind nicht an die Preise gebunden. IT-Dienstleister bekommen sicher Mengenrabatt. Mal davon abgesehen ist das auf der Microsoft-Seite sicher die normale Pro-Version, aber keine Pro-Plus und keine VL. Aber selbst 446,42 Euro sind noch zu teuer. Geht noch günstiger wenn Du nur eine Einzelplatzlizenz benötigst, z.B. http://www.future-x.de/microsoft-office-2016-professional-32-64-bit-download-win-multilingual-p-236192/

Gruß, René

P.S.: Bei future-x habe ich selber schon gekauft. Ist seriös.

Hallo!

Die Bildschirmaktualisierung muss immer am Ende des Codes wieder aktiviert werden. Nicht nur in Office 2016.

Gruß, René

Hallo!

Hattest Du diese Frage nicht schon gestellt? Hier geht es weiter => http://www.office-fragen.de/index.php/topic,38442.msg43574.html#msg43574

Gruß, René

(...) Doch dann überlasse ich dir das Feld!  (...)

Das wäre dann aber eine Auftragsarbeit (kostenpflichtig). Da sitzt man ein paar Stunden/Tage dran.

(...) und alles was darüber ist, doch unerheblich ist! (...)

Eben nicht. Wenn es so ist wie bei uns dann gibt es außer den 11 Stunden Mindestruhe nach dem ArbZG noch andere Regelungen. Bei uns z.B. gibt es noch eine 55-Stunden-Regel und eine 144-Stunden-Regel. Die 55-Stunden-Regel besagt dass innerhalb von 168 nur 55 Stunden gearbeitet werden dürfen. Wenn z.B. morgen um 13:30 die Schicht beginnt dann laufen ab dann die 168 Stunden, innerhalb derer nur 55 Stunden gearbeitet werden darf. Die 144-Stunden-Regel besagt dass nach einer bestimmten Anzahl an Schichten, die zusammen 144 Stunden ergeben, 48 bis 72 Stunden Ruhe sein müssen (je nach Anzahl der Nachtstunden). Ich habe eine solche Berechnungsdatei mal für einen 3-Wochen-Plan erstellt/erweitert. Die Formeln die man für eine solche Berechnung benötigt sind komplex.

Kleines Beispiel. Die Pausen werden immer gerechnet von "Ende" bis "Beginn", also z.B. von Ende in A2 bis Beginn in A3.

Arbeitsblatt mit dem Namen 'Tabelle1' A B C 1 Beginn Ende Ruhezeiten Tag (Schichtende bis Schichtbeginn) 2 13.30 00.22 23.38 3 00.00 00.00 24.00 4 04.35 13.30 15.05 5 04.35 13.30 10.30 6 00.00 00.00 24.00

Zelle Format Wert A1 [hh].mm Beginn B1 [hh].mm Ende C1 [hh].mm Ruhezeiten Tag (Schichtende bis Schichtbeginn) A2 [hh].mm 0,5625 B2 [hh].mm 1,52777777777778E-02 C2 [hh].mm 0,984722222222222 A3 [hh].mm 0 B3 [hh].mm 0 C3 [hh].mm 1 A4 [hh].mm 0,190972222222222 B4 [hh].mm 0,5625 C4 [hh].mm 0,628472222222222 A5 [hh].mm 0,190972222222222 B5 [hh].mm 0,5625 C5 [hh].mm 0,4375 A6 [hh].mm 0 B6 [hh].mm 0 C6 [hh].mm 1

Zelle Formel C2 =WENN(UND(A2=0;B2=0);"00:00"+"24:00";REST(A3-B2;1)) C3 =WENN(UND(A3=0;B3=0);"00:00"+"24:00";REST(A4-B3;1)) C4 =WENN(UND(A4=0;B4=0);"00:00"+"24:00";REST(A5-B4;1)) C5 =WENN(UND(A5=0;B5=0);"00:00"+"24:00";REST(A6-B5;1)) C6 =WENN(UND(A6=0;B6=0);"00:00"+"24:00";REST(A7-B6;1))

Problematisch wird es bei Monats- und Jahresübergang. Vor allem wenn für jedes Jahr eine neue Datei begonnen wird, da dann der letzte Arbeitstag vom Vorjahr fehlt.

Hallo!

Schau Dir mal meine an. http://www.rholtz-office.de/counters/getfile.php?id=2

Gruß, René

Hallo!

http://www.rholtz-office.de/outlook/email_auslesen_teil1

Gruß, René

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range)
   Dim DiffTage As Integer
   
   If target.Address = "$G$3" Then
      If Left(target.Value, 1) = "h" Then
         If Len(target) > 1 Then
            DiffTage = CInt(Right(target, Len(target) - 1))
         End If
         target.Value = Date + DiffTage
      End If
   ElseIf target.Address = "$C$5" Then
     Application.EnableEvents = False
       With target
           .Value = CDate(Left(Format(target, "0000"), 2) & ":" & Right(target, 2))
           .NumberFormat = "[hh]:mm"
       End With
    Application.EnableEvents = True
  End If
 
 
  If Sheets("Tabelle1").Range("U19").Value > 0 Then
     Sheets("Tabelle2").Visible = xlVeryHidden
  Else
     Sheets("Tabelle2").Visible = True
  End If
 
  If Sheets("Tabelle2").Range("Q31").Value > 0 Then
     Sheets("Tabelle1").Visible = xlVeryHidden
  Else
     Sheets("Tabelle1").Visible = True
  End If
 
End Sub


Hallo!

Auch hier kann man wieder mit Worksheet_Change arbeiten. Stellt sich jetzt die Frage in welcher der Tabellen Du den Code aus Deinem anderen Thread einsetzt. Wichtig dabei ist dass eine Tabelle immer sichtbar sein MUSS.

Gruß, René