Zur Frage, wie das geht:

Im VBA-Monitor eingeben:

Private Sub Workbook_Open()
Sheets(Month(Now)).Select
   With ActiveWorkbook.Sheets(Month(Now)).Tab
       .Color = 255 'rot
       .TintAndShade = 0
   End With
End Sub

und als Datei mit Makros (xlsm) speichern.

Gruß aus Berlin

...zur Antwort

Abgesehen von der nicht gerade logischen Forderung den Eintrag "anwesend/nicht anwesend" NICHT zu ändern wird man Dir hier nur helfen können, wenn die Strukrur der Datei (die Einträge in der XL-Datei) sichtbar bzw. beschrieben ist.

Also fertige eine Bildschirmkopie der relevanten Daten (bei einer lesbaren Größe) mit dem Windows-eigenem "SnippingTool" an und lade es in einer neuen Antwort hier hoch.

Gruß aus Berlin

...zur Antwort

"... die zweite Excel-Datei gar nicht erst geöffnet wird"
das ist ja wie:
Vergleiche den Inhalt zweier geschlossener Säcke, aber mach nur einen auf.

Wie soll das gehen? Schätzen, Wahrscheinlichkeit, Raten?

Gruß aus Berlin

...zur Antwort

Du markierst die Einträge (tag, halle, zeit) und drückst STRG+x
(das kopiert und löscht die Einträge),
wechselst in die andere Tabelle, markierst die Einfügestelle und drückst STRG+v
Fertig.

Gruß aus Berlin

...zur Antwort
Registerfarbe aufgrund von Zellwert einfärben (Excel)?

Ich arbeite grade für eine Kollegin an einer Excel-Tabelle (Excel 2010). Sie wünscht sich nun, dass sich unter einer bestimmten Bedingung die Farben der Registerblätter automatisch ändern. Ich habe dafür die gesamte Tabelle schon soweit vorbereitet, dass eine Formel mir bereits die entsprechende Bedingung ausliest und ausgibt.

Ich gehe dabei jetzt mal ins Detail: In allen Tabellenblätter gibt das Feld J19 mir einen Wert, der entweder =0 oder >0 ist. Bei =0 soll sich der Registername rot färben, bei >0 grün.

Natürlich habe ich Google dazu schon befragt, und mir ist mittlerweile klar, dass sich das mithilfe eines Makros machen ließe. Allerdings liegt genau hier das Problem: Ich habe noch nie mit Makros gearbeitet, schon gar nicht welche geschrieben. Ich weiß mittlerweile wie ich auf die Entwicklertools komme, und wie ich das "Makros"-Fenster öffne. Allerdings habe ich auch nach mehreren (Copy&Paste aus dem Netz) Versuchen es nicht geschafft, dass mir in dem entsprechenden Dialog ein Makro zum Ausführen angezeigt wurde.

Ich bräuchte also eine genaue Anleitung, wo ich was eintragen muss. Ich habe die Tabelle extra so gestaltet, dass der Wert mir in jedem Tabellenblatt im selben Feld ausgegeben wird.

Was ich bislang nicht rausgefunden habe: Läuft das Makro immer automatisch? Oder muss man es immer wieder neu aktivieren? Das wäre nämlich kontraproduktiv, denn die Tabelle soll weitergegeben werden und das Einfärben der Register soll eine "Kontrollfunktion für Dummies" darstelen. Wenn es also jedes Mal aktiviert werden muss, wäre es sinnlos.

Ich hoffe sehr, dass mir jemand helfen kann.

Vielen Dank im Voraus!

...zur Frage

Endlich... mal eine Frage, die vernünftig formuliert und frei von Rechtschreibfehlern ist. Bravo!

Hätten Professor Iamiam (DH) und Ninombre (DH) nicht schon so schön geantwortet, hätte sogar ich nachgedacht...

Nur nebenbei: bei Verwirklichung der Antworten darauf achten, dass die Datei anschließend als "...xlsm" (mit Makros) zu speichern ist.

Gruß aus Berlin

...zur Antwort

Wie Suboptimierer schon anmerkte, ist der Aufbau zur Auswertung geeignet.

Zu beachten ist allerdings: es sind zwangsläüfig negative Zeiten (Verschlechterung) zu erwarten. Da Excel damit nur um "1904"-Modus rechnen kann, ist VOR Einrichtung der Tabelle auf "1904" umzustellen:
Excel Optionen / Erweitert / Beim Berechnen dieser Arbeitsmappe / 1904-Datumswerte verwenden, hier den Haken setzen.

Mit dieser Einstellung erstellte ich mit den von Dir vorgeschlagenen Angaben mal eine Mustertabelle (siehe angefügte Bildschirmkopie).

In den Spalten mit der Differenz wird der aktuelle Wert der linken Spalte vom vorhergendem abgezogen, also die Verbesserung/Verschlechterung dargestellt. Damit wären Deine Anforderungen erfüllt, eine Übersicht ist möglich.

Zur besseren Übersicht dienen in meinem Beispiel die Zeilen 1 und 2.
Es wird die Ober-Untergrenze der gesamten Spalte angezeigt:
Zeile 1, Beste Zeit (geringster Wert): = MIN(C4:C7)
Zeile 2, schlechteste Zeit (höchster Wert): =MAX(C4:C7)

Diese besten/schlechtesten Zeiten werden in der Tabelle (hier nur bis Zeile 7 ausgeführt, ist natürlich erweiterbar) in der "Bedingten Formatierung" mit grünem/rotem Hintergrund hervorgehoben, die Markierungen passen sich damit den Gegebenheiten an.
In den Differenzspalten werden Verschlechterungen mit rotem Hintergrund angezeigt, ebenfall mit der "Bedingten Formatierung" erstellt.

Die "Bedingten Formatierung" sind in der Bildschirmkopie zu sehen.

Kommst Du damit klar?

Gruß aus Berlin

...zur Antwort

Ich trau mich garnicht so richtig, Dir, der Du immer alles so elegant löst, folgende Vorgehensweise vorzuschlagen: per Makro 200 mal die Zelle A1 hochzählen und die Seite jeweils drucken

Bild 1: XL-Datei mit Makro
Zelle formatieren: Höhe 209, Breite 151, Schriftgröße 390
Generierung der zu druckenden Zahlen per Makro in Zelle A1, Cells(1,1)

Bild 2: Seitenansicht mit Randeinstellungen
Oben 3,4,, Links 0,5,, unten 0,8,, rechts 1,8,, Kopfzeile 0,3,, Fußzeile 0,3

Bei Gefallen im Makro den "Druckbefehl" aktivieren.

Gruß aus Berlin

...zur Antwort

Vorschlag:

Schalte dem Makro-Recorder ein
führe die benötigten Schritte händisch einmal aus (für die erste Lokalisierung, A4)
Beende die Aufzeichnung
Stelle uns (in einer neuen Antwort) dieses Makro zur Ansicht.

Gruß aus Berlin

...zur Antwort

Das erste Wort zu erkennen, gelingt Dir mit diesem Makro.
Nach dem ersten Wort kann ein Leerzeichen (32) oder ein Zeilenvorschub (10) folgen. Diese erste Wort wird dann "Fett".

Sub erstesWortFett()
Range("A1").Select 'A1 als aktive Zelle
Tester = Cells(1, 1) 'zu untersuchende Zelle (A1)

For i = 2 To Len(Tester) 'Länge
zz = Mid(Tester, i, 1) 'einzelnes Zeichen
If Asc(zz) = 32 Then Exit For 'wenn Leerzeichen
If Asc(zz) = 10 Then Exit For 'wenn Zeilenumbruch
bis = i 'Zähler (Leerstelle)
Next i
'
With ActiveCell.Characters(Start:=1, Length:=bis).Font
.Name = "Arial"
.FontStyle = "Fett"
End With

End Sub

Reicht das so?

Gruß aus Berlin

...zur Antwort

Hier mal nach MEINEM Verständnis.

Arbeitstage = Mo-Fr, Wochenende nicht in der gebührenfrei-Berechnung,
Achtung: Frei und Feiertage werden hier nicht berücksichtigt.

Mal so als Anregung, mach was draus.

Gruß aus Berlin

...zur Antwort

Vermerke in eine Hilfsspalte (hier: H) durch einen Eintrag von z.B. "x", ob der Fehlerwert dargestellt werden soll oder nicht.

Soll er nicht dargestellt werden (x in Spalte H) dann Formeln in Spalte E ergänzen mit einer WENN-Abfrage:

=WENN (H18="x";0;'Ausgelesene Daten FHL'!C18)

Ist in Sp E also ein x, ist in Sp E eine Null, sonst der Wert aus ..C18

Die Angaben der Spalte H können dann jederzeit wieder gelöscht werden, die Formel in Sp E ist unverändert.

Gruß aus Berlin

...zur Antwort

Noch ein Vorschlag:

=WENN(REST(A1;20)=0;"X";"")

Gruß aus Berlin

...zur Antwort

In zwei KatS-Organisationen tätig zu sein beinhaltet den gravierenden Nachteil, dass im Einsatzfall (z.B. Großschadensereignis) keine der beiden Organisationen mit Deinem Erscheinen rechnen kann, da Du ja noch woanders Verpflichtungen eingegangen bist.

Der "Reservehelfer" (ebenso Althelfer) ist abgeschafft. Es gibt "nur" noch Helfer.

Gruß aus Berlin

...zur Antwort

Ist zwar etwas eigenartig und nicht den Sicherheitsvorschriften entsprechend, aber wenn es nur ein paar Stunden halten soll:

Jeweils einen Kabelbinder durch die vorderen und hinteren beiden Lüftungslöcher fädeln und darin dann die Lampe einsetzen.

Gruß aus Berlin

...zur Antwort

Da hat sich Oubyi im Oktober 2014 schon mal sehr viel Mühe gegeben.
Siehe dort:
http://www.gutefrage.net/frage/excel---funktion--meistgenutzten-wert-finden

Da hast Du dann die perfekte Lösung.

Gruß aus Berlin

...zur Antwort

Eine (zumindest geistige) Verwandschaft zum Fragesteller "flodor" (Frage:

Excel Zeile kopieren wenn grösser als?) ist Dir nicht abzusprechen.

Siehe meine Antwort dort:

http://www.gutefrage.net/frage/excel-zeile-kopieren-wenn-groesser-als

(hast Du Dich evtl. unter zwei Namen angemeldet?)

Gruß aus Berlin

...zur Antwort

Jackies Lösung funzt bei mir (XL2007) nicht, aber ...

=WENNFEHLER(INDEX(FTAGE!$A$3:$A$14;VERGLEICH(A5;FTAGE!$B$3:$B$14;0));"")

Mach was draus.

Gruß aus Berlin

...zur Antwort

Eine Berechnung der "sichtbaren" Zellen erreichst Du mit
=TEILERGEBNIS(9;A2:A50)
Wobei die "9" Summe bedeutet (1=Mittelwert, 2=Anzahl,...)

Deine Frage mit dem Drucken scheint ja erledigt zu sein. Wie wäre es, in den dazugehörigen Antworten das mal zu erklären, sich zu bedanken, die beste Antwort auszuzeichnen, kurzum: Dich dort mal zu äußern?

Gruß aus Berlin

...zur Antwort

Unter
"Seitenlayout", " Drucktitel" erscheint "Seite einrichten"
Hier kann man "Wiederholungszeilen oben" oder Wiederholungsspalten links" angeben, die dann auf jeder zu druckenden Seite wiederholt werden.

Gruß aus Berlin

...zur Antwort

In solchen Fällen (Formel aufheben) nutze ich die Tatsache, dass Formeln immer mit dem "="-Zeichen beginnen. Ist das erste Zeichen ein Hochkomma oder eine Leerstelle, wird der Zellinhalt als Text behandelt.

Füge also Deinen Formeln durch "Ersetzen" ein Leezeichen an die erste Stelle hinzu.
(der Unterstrich"_" soll hier mal die Leertaste darstellen)
- Alle aufzubewahrenden Zellen markieren
- bei "Suchen und Auswählen": "Ersetzen..." anklicken
- suchen nach: = (Gleicheitszeichen)
- Ersetzen durch: _= (Leertaste und Gleichheitszeichen)
- "Alle ersetzen" anklicken

Damit sind alle Formeln als Text im Arbeitsblatt. Diese an eine nicht benutze Stelle unter die benutzten Zeilen kopieren.

Um die Originalformeln (oben) wieder zu Formeln zu machen, nochmals "Ersetzen..." wählen und "_=" durch "=" ersetzen lassen.

Jetzt befindet sich eine Kopie (als Text) der Formeln im unteren Teil und kann jederzeit wieder nach oben kopiert und angepasst (Ersetzen "_=" durch "=")  werden.

Hilft Dir das?

Gruß aus Berlin

...zur Antwort