Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Immer das letzte Datum des Vormonats anzeigen

Immer das letzte Datum des Vormonats anzeigen
28.08.2006 08:08:37
Thorsten
Hallo und ein schönen guten Morgen,
gibt es die Möglichkeit wenn ich in einer Zelle mit Strg und . das Datum eingebe, dass dann automatisch immer der letzte des Vormonats angezeigt wird.
Beispiel: 15.08.06 wäre dann der 31.07.06
17.12.06 wäre dann der 30.11.06
Viele herzliche Dank und eine schöne Woche

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Immer das letzte Datum des Vormonats anzeigen
28.08.2006 08:44:37
egres
Hi Thorsten
mit diesem VBA brauchst du nur die Zelle A1 anklicken dann kommt dein Ultimo-Vormat!

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row = 1 And Target.Column = 1 Then
ActiveCell.FormulaR1C1 = "=(DATE(YEAR(TODAY()),MONTH(TODAY()),1))-1"
End If
End Sub

Gruss Egres
AW: Immer das letzte Datum des Vormonats anzeigen
28.08.2006 09:03:12
ingUR
Hallo, Thorsten,
Die Tastenkombination [Strg][.] wird es wohl nicht werden können, doch wenn Du auf eine andere Buchstabentaste ausweichen kannst, dann kann dir auch dieses Modul-Makro die Aufgabe erfüllen:

Option Explicit
Sub EoMonth_Makro()
Dim Datum As Date
Datum = Format(Now - Day(Now), "DD.MM.YYYY ")
ActiveCell = Datum
End Sub

Unter Extras::Makro::Option dann noch die Tastenkombination festlegen, und die Funktion steht Dir in der Arbeitmappe zum Gebrauch zu Diensten, indem sie in der aktiven Zelle auf Tastenlombinationsdruck das gewünschte Datum einträgt.
Gruß,
Uwe
Anzeige
es gibt eine Funktion
28.08.2006 08:48:14
Mike
Hallo Thorsten,
es gibt dafür auch eine Funktion MONATSENDE
Gruß
Mike René
und ohne Analyse Add-In
28.08.2006 09:11:34
c0bRa
wäre das ihr los gewesen:
="1."&MONAT(HEUTE())-1 *g*
AW: es gibt eine Funktion
28.08.2006 09:41:18
ingUR
Hallo, René und @c0bRa,
ohne weitere Bearbeitung, wird dieses Datum beim Aufruf der Mappe in einem anderen Monat auch auf ein anderes Datum aktualisieren! Es kommt auf die Anwendung an ob das gewollt ist.
Gruß,
Uwe
AW: Immer das letzte Datum des Vormonats anzeigen
28.08.2006 09:03:19
EtoPHG
Hallo Thorsten,
Kopiere folgendes Makro in ein Modul und weise ihm eine Kontroll-Taste zu (z.B. Strg-Umsch-L). Befindet sich in der aktiven Zelle ein Datum, so wird dieses automatisch in den letzten Tag des Vormonats umgewandelt (Achtung auch Werte von Formeln !). Andernfalls kommt nur eine Fehlermeldung und er Zellwert bleibt gleich.
Public

Sub LetzerVormonat()
If IsDate(ActiveCell.Value) Then
ActiveCell.Value = ActiveCell.Value - Day(ActiveCell.Value)
Else
MsgBox "Wert der Zelle ist kein Datum!", vbOKOnly + vbExclamation, "Letzter des Vormonats"
End If
End Sub

Gruss Hansueli
Anzeige

26 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige