PDA

Vollständige Version anzeigen : Aktuellstes Datum in Arbeitsmappe finden und koieren


OAPlayer2306
27.06.2014, 14:46
Hallo,
ich muß in einer Mappe mit mehren Blättern das aktuellste Datum finden und anschließend in eine Zelle auf einem anderen Blatt kopieren.
Beispiel:
Die Mappe enthält die Blätter Daten1, Eingang2, Ausgang2, Report, usw.
Auf den Blättern Daten1, Eingang2, Ausgang2 befindet sich in Zelle E1 ein Datum. Das aktuellste Datum von diesen Blättern soll in Zelle B3 auf dem Blatt Report kopiert werden.
Wer kann mir mit einem Makro oder einer Formel helfen?

Vielen Dank,
OAPlayer2306

EarlFred
27.06.2014, 14:49
Hallo OAPlayer2306,

Report!B3:=MAX(Daten1!E1;Eingang1!E1;Eingang2!E1)
Die Ergebniszelle Report!B3 muss ggf. noch als Datum formatiert werden.

Bei Änderungen in den 3 Zellen ändert sich ggf. auch das Formelergebnis.

Grüße
EarlFred

OAPlayer2306
27.06.2014, 15:16
Hallo EarlFred,
das funktioniert gut. Aber leider habe ich nicht genau genug formuliert.
Es befinden noch mehr zu durchsuchende Blätter in der Mappe und in neuen Mappen ändern sich manchmal auch die Blattnamen.
Gibt es eine Möglichkeit, in der Mappe ohne Angabe der Blattnamen zu suchen?

Vielen Dank,
OAPlayer2306

EarlFred
27.06.2014, 15:31
Hallo OAPlayer2306,

ja, die gibt es.
Willst Du auch wissen wie? Dann beschreibe die Randbedingungen der Aufgabe so exakt und allgemeingültig wie möglich. Mit den Angaben bisher wird die Hilfe sonst auch wieder im Papierkorb landen - dafür ist mir meine Zeit zu schade.

Grüße
EarlFred

OAPlayer2306
27.06.2014, 16:08
Hallo EarlFred,
ich versuche es mal.

Hier ein Beispiel:
<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='3' style='font-family:Arial; color:#000000; background-color:#FFFFFF; font-size:10px; font-weight:bold; font-style:normal; '><colgroup><col width='28pt'><col width='156,75pt'><col width='102,75pt'></colgroup><tr style='background-color:#FAFAFA'><td align='middle' colspan='3'>Arbeitsblatt mit dem Namen 'Report'</td></tr><tr style='background-color:#cacaca'><td>*</td><td align='middle'>A</td><td align='middle'>B</td></tr><tr><td style='background-color:#cacaca' align='middle'>1</td><td align='left' >Bericht</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>2</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>3</td><td align='left' >Datum (Auswertung erfolgt bis):</td><td align='left' style='font-weight:normal; ' >TT.MM.JJJJ</td></tr><tr><td style='background-color:#cacaca' align='middle'>4</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>5</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>6</td><td align='left' style='font-weight:normal; ' >Name</td><td align='left' style='font-weight:normal; ' >Betrag</td></tr><tr><td style='background-color:#cacaca' align='middle'>7</td><td align='left' style='font-weight:normal; ' >…</td><td align='left' style='font-weight:normal; ' >…</td></tr><tr><td style='background-color:#cacaca' align='middle'>8</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>9</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr></table><table style='font-family:Arial; font-size:7pt'><tr><td style='color:#333333'>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>

<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='6' style='font-family:Arial; color:#000000; background-color:#FFFFFF; font-size:10px; font-weight:bold; font-style:normal; '><colgroup><col width='28pt'><col width='60pt'><col width='60pt'><col width='60pt'><col width='60pt'><col width='60pt'></colgroup><tr style='background-color:#FAFAFA'><td align='middle' colspan='6'>Arbeitsblatt mit dem Namen 'Tabelle_Typ1'</td></tr><tr style='background-color:#cacaca'><td>*</td><td align='middle'>A</td><td align='middle'>B</td><td align='middle'>C</td><td align='middle'>D</td><td align='middle'>E</td></tr><tr><td style='background-color:#cacaca' align='middle'>1</td><td align='left' >Abt.A</td><td align='right' >*</td><td align='right' >*</td><td align='left' >Datum</td><td align='right' >15.06.2014</td></tr><tr><td style='background-color:#cacaca' align='middle'>2</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>3</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>4</td><td align='left' style='font-weight:normal; ' >Posten</td><td align='left' style='font-weight:normal; ' >Betrag</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>5</td><td align='left' style='font-weight:normal; ' >…</td><td align='left' style='font-weight:normal; ' >….</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>6</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr></table><table style='font-family:Arial; font-size:7pt'><tr><td style='color:#333333'>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>

<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='6' style='font-family:Arial; color:#000000; background-color:#FFFFFF; font-size:10px; font-weight:bold; font-style:normal; '><colgroup><col width='28pt'><col width='60pt'><col width='60pt'><col width='60pt'><col width='60pt'><col width='60pt'></colgroup><tr style='background-color:#FAFAFA'><td align='middle' colspan='6'>Arbeitsblatt mit dem Namen 'Tabelle_Typ2'</td></tr><tr style='background-color:#cacaca'><td>*</td><td align='middle'>A</td><td align='middle'>B</td><td align='middle'>C</td><td align='middle'>D</td><td align='middle'>E</td></tr><tr><td style='background-color:#cacaca' align='middle'>1</td><td align='left' >Standort A</td><td align='right' >*</td><td align='right' >*</td><td align='left' >Datum</td><td align='right' >05.04.2014</td></tr><tr><td style='background-color:#cacaca' align='middle'>2</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>3</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>4</td><td align='left' style='font-weight:normal; ' >Ein</td><td align='left' style='font-weight:normal; ' >Aus</td><td align='left' style='font-weight:normal; ' >Summe</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>5</td><td align='left' style='font-weight:normal; ' >…</td><td align='left' style='font-weight:normal; ' >….</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>6</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr></table><table style='font-family:Arial; font-size:7pt'><tr><td style='color:#333333'>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>

<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='6' style='font-family:Arial; color:#000000; background-color:#FFFFFF; font-size:10px; font-weight:bold; font-style:normal; '><colgroup><col width='28pt'><col width='74,25pt'><col width='60pt'><col width='60pt'><col width='60pt'><col width='60pt'></colgroup><tr style='background-color:#FAFAFA'><td align='middle' colspan='6'>Arbeitsblatt mit dem Namen 'Tabelle_Typ3'</td></tr><tr style='background-color:#cacaca'><td>*</td><td align='middle'>A</td><td align='middle'>B</td><td align='middle'>C</td><td align='middle'>D</td><td align='middle'>E</td></tr><tr><td style='background-color:#cacaca' align='middle'>1</td><td align='left' >Auswertung1</td><td align='right' >*</td><td align='right' >*</td><td align='right' >*</td><td align='right' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>2</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>3</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>4</td><td align='left' style='font-weight:normal; ' >Produkt</td><td align='left' style='font-weight:normal; ' >SN</td><td align='left' style='font-weight:normal; ' >Man.</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>5</td><td align='left' style='font-weight:normal; ' >…</td><td align='left' style='font-weight:normal; ' >….</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>6</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td><td align='right' style='font-weight:normal; ' >*</td></tr></table><table style='font-family:Arial; font-size:7pt'><tr><td style='color:#333333'>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>

Die Mappe besteht aus dem Blatt Report und aus mehreren Blättern des Typs 1 bis 3.
In Zelle E1 auf jedem Blatt ist entweder ein Datum oder nichts eingetragen.
Nun soll das aktuellste Datum in der ganzen Mappe gesucht werden und anschließend in B3 der Tabelle Report eingetragen werden.
Die Blattnamen sind nicht eindeutig, da ich diese Mappe öfters verwenden muß und die Blattnamen sich dann jedesmal ändern.

Ich hoffe, das ist deutlicher. Sorry, aber heute ist Freitag.

Vielen Dank,
und ein schönes Wochende,
OAPlayer2306

OAPlayer2306
03.07.2014, 09:26
Hallo zusammen,
leider habe ich noch keine Lösung für mein Datumsproblem.
Wer kann helfen?

Vielen Dank,
OAPlayer2306

Hasso
03.07.2014, 15:52
Hallo OAPlayer2306,

löse das mit diesem Code im Blatt "Report":Option Explicit

Private Sub Worksheet_Activate()

Dim wksBlatt As Worksheet

For Each wksBlatt In ActiveWorkbook.Worksheets
If wksBlatt.Name <> "Report" And wksBlatt.Range("E1") > Worksheets("Report").Range("B1") Then
Worksheets("Report").Range("B1") = wksBlatt.Range("E1")
End If
Next wksBlatt

End Sub

OAPlayer2306
04.07.2014, 10:37
Hallo Hasso,
das klappt perfekt.

Vielen, vielen Dank,
und ein schönes Wochenende,
OAPlayer2306