Antwort
Genau so knapp wie die Frage hier die Antwort:
Ja
Gruß aus Berlin
Antwort
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
Antwort
Ich hab' da mal was gebastelt.
Gruß aus Berlin
Antwort
Seitenlayot > Seite einrichten > Papierformat > Erste Seitenzahl
hier statt des vorgegebenen "Automatisch" die gewünschte Seitenzahl "14" eingeben.
Gruß aus Berlin
Antwort
Mir ist das auslösende Ereignis für dieses "Zeitmakro" nicht ganz klar.
Die Zeit darf doch erst dann gesetzt werden, wenn ein neues Ereignis (z.B. Eintreffen am Einsatzort) stattfand. Dann ist aber die aktuelle Zeile mit dem Zeiteintrag zu versehen, und nicht eine Zeile tiefer (Offset 1, -1). --- Egal, danach ist ja nicht gefragt.
Die von Oubyi beschriebene Methode mit "...Now" ist die Richtige, weil ausbaufähig:
Mit der Formatierung "TT.MM.JJJJ hh:mm" sieht man "03.09.2017 05:39",
allerdings ist diese schreibweise zwar leserlich, aber im Katastrophenschutz (KatS-DV) nicht so zu verwenden, sondern so: "030539Sep17"
Diese Darstellung erreicht man mit der Formatierung: "tthhmmMMMJJ"
Du solltest also alle Zellen mit Datum/Zeit derartig formatieren.
Gruß aus Berlin
Antwort
so geht's:
Bedingte Formatierung
=A1-A2>-20
Gruß aus Berlin
Antwort
Nur mal so zu Klarstellung:
Zur Feststellung eines dreifachen Eintrages kannst Du
eine Hilfsspalte (im Bilschirmfoto Spalte B) mit der Formel von Sternenfleit "=WENN(ZÄHLENWENN(A:A;A1)>3;"zuviel";"3 oder weniger")
ODER/UND
die "Bedingte Formatierung" mit der Formel von PWolff benutzen:: =ZÄHLENWENN(A:A;A1)>3
Beide Varianten sind im Bildschirmfoto zu erkennen.
Gruß aus Berlin
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
Antwort
Hört sich etwas konfus an ...Dezimal, Prozentual, Bruch
Mach mal zwei Bildschirmkopieen (mit SnippingTool)
1. die interessanten Stellen incl. Spalten und Zeilenbeschriftung und
2. drücke dann STRG und # (Formeln werden angezeigt) und dann auch kopieren
und lade beide hier (als neue Antwort) hoch.
Wahrscheinlich kann man Dir helfen, wenn man das sieht.
Gruß ausBerlin
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
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
Antwort
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
Antwort
Wenn die Kommunikation mit agent888 erfolgreich war ist ja alles gut, aber ...
Ich vermute, dass der "zaehler" dauerhaft (und aktuell) im TabBl "Tabelle1" gespeichert werden soll?
Dann folgende Überlegung:
In Deinem Listing
- definierst Du "zaehler" mit "1",
- diese "1" schreibst Du in Zelle 3,1 (zaehler + 2, 1)
... jetzt passiert so einiges ...
- am Ende wird dem "zaehler" eine eins addiert,
- also steht der "zaehler" jetzt auf zwei.
Hier endet das Programm. Wozu also hast Du den Zähler erhöht?
Sollte der "zaehler" (jetzt: 2) nicht gespeichert werden?
Wenn doch, dann:
zaehler =ThisWorkbook.Sheets("Tabelle1").Cells(3, 1)
zaehler = zaehler +1
ThisWorkbook.Sheets("Tabelle1").Cells(3, 1) = zaehler
... jetzt fogen Deine Anweisungen ...
Die letzte Anweisung (zaehler=zaehler+1) wird gelöscht.
Damit wird als erstes der "alte zaehler" eingelesen, um eins erhöht und wieder in Cells(3,1) gespeichert. Alle weiteren Cells-Angaben enthalten dann nur noch den jetzt aktuellen "zaehler". Beispiel:
ThisWorkbook.Sheets("Tabelle1").Cells(zaehler, 2) = TextBox2.Text()
Jetzt steht in Cells(3,1) bei Neusart des Sub's immer der hochgezählte Wert zur Verfügung.
Gruß aus Berlin
Antwort
Ist Dir klar, dass bei einer derartigen Beschreibung Dir kaum jemand antworten wird?
Du redest von Dateien, Tabellen und Karten, die befühlt werden sollen.
Bei gutem Willen (raten) könnte man Spalten bis Spalte E erkennen, aber wo kommt jetzt "F2, G2 und J2" her?
Sind hier "A5, B2, B3, A7 und B7" und hier "E5, F2, F3, E7 und F7" die Zeilennummern richtig?
Kurzum, mir fehlt der Überblick und somit Dir evtl. eine Antwort.
Du solltest das Problem (ggf. mit Bildschirmkopie) besser/anders erläutern.
Gruß aus Berlin
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
Antwort
Da wirst Du wohl mit Makros arbeiten müssen...
Du kannst die Werte aus den 15 Tabellenblättern (TabBl, von Dir "Sheets" genannt) in eine dreifach indizierte Variable einlesen. z.B. "zD(TabBl,Spalte,Zähler)".
Bei der Ausgabe der Werte lässt Du dann die Indizies mit der Spalte (Schrott) aus und zeigst in der erforderlichen Reihenfolge (ID, Wert A, Wert B) die Werte an.
Ich lege mal ein Gedankengerüst als Grundlage bei (siehe Bild).
Gruß aus Berlin
Antwort
Noch eine Lösung, die Formeln neben den Berechnungen darzustellen:
Das Makro muss in den Zeilen- und Spaltenangaben angepasst werden.
Herzstück des Makros ist die Anweisung
ff = "'" & Cells(i, j).FormulaLocal in der der Variablen "ff" ein Hochkomma und die Formel zugewiesen wird.
Vier Spalten rechts daneben (...j+4...) wird die Variable eingesetzt.
Somit befindet sich im linken Teil die Rechnung mit den Zahlen, rechts daneben (als Text, in blauer Schrift) die Formeln.
So sollte das für einen Prüfer erklärlich sein.
Reicht das so ?
Gruß aus Berlin
Antwort
Die Einkleidung erfolgt nach Konfektionsgrößen (z.B. Hemd Kragenweite 39, Hose Größe 50, Jacke Größe 52, Schuhe Größe 45, usw.).
Die Einkleidungsartikel (MFA = Multifuntionsanzug) werden im Lager Heiligenhaus bestellt, die Ortsverbände, die eine "Kleiderkammer" betreiben, betreiben diese inoffiziell.
Die "Ausgehuniform" wird ebenfalls, aber nur bei Bedarf, in Heiligenhaus bestellt.
Zusätzlich besteht die Möglichkeit des privaten Erwerbes einer Tagesdienstkleidung.
Viel Spass beim Dienst im THW.
Gruß aus Berlin
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
Antwort
Wenn Dir hier seit drei Tagen niemand hilft, stimmt etwas nicht.
Vielleicht liegt es daran, dass Du als Lösung den SVERWEIS verlangst.
Dieser verlangt aber immer auf/absteigend sortierte Listen.
Gruß aus Berlin