Datum nach Eingabe automatisch in Zelle einfügen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Datum nach Eingabe automatisch in Zelle einfügen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

RalfMoeller
Newbie
Newbie

Anmeldedatum: 27.09.2008
Beiträge: 3

Verfasst am: 27.09.2008, 11:45

Hallo,

ich möchte Zellen so formatieren, dass wenn ich in die Zellen etwas eingebe, das aktuelle Datum in der Zelle nebendran eingefügt wird.

Ist bestimmt leicht zu lösen, jedoch funktioniert es bei mir nicht richtig.

Mfg

< Peter >
Schlauberger

Anmeldedatum: 30.08.2008
Beiträge: 230
Wohnort: Das schönste Land in Deutschlands Gaun

Verfasst am: 27.09.2008, 11:49

Hallo,

das könntest du mit dem folgenden VBA-Code machen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub

Bei diesem Code wird der Bereich von A1 bis A10 überwacht. Wenn in diesem Bereich etwas eingetragen wird, dann wird in der Spalte B das aktuelle Datum eingetragen.

Wenn im Bereich von A1 bis A10 der Eintrag gelöscht wird, dann wird auch das Datum in B gelöscht.

Der Code muss in das Modul des entsprechenden Tabellenblattes:

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

_________________
Gruß
Peter

RalfMoeller
Newbie
Newbie

Anmeldedatum: 27.09.2008
Beiträge: 3

Verfasst am: 27.09.2008, 12:01

ich wollte das ganze gerne einfacher ohne Makro,

als mit einer if Formel in der Zelle in der das Datum eingegeben wird.

Irgendewie: wenn in Zelle A1 dann Eingabe Datum.

so ungefähr

< Peter >
Schlauberger

Anmeldedatum: 30.08.2008
Beiträge: 230
Wohnort: Das schönste Land in Deutschlands Gaun

Verfasst am: 27.09.2008, 12:07

Hallo,

ohne VBA geht es so:

Als vorbereitende Massnahme musst du hier unter Menü Extras - Optionen - Berechnung - Iteration - die maximal Interationszahl auf 1 stellen.

Dann die folgende Formel in B1 (B1 musst du noch als Datum formatieren) die sich dann auf die Eingabe in A1 bezieht:

=WENN(A1="";"";WENN(B1="";JETZT();B1))

Eine Nebenwirkung hat das Ganze: Durch die Einstellungt der Interation werden Zirkelbezüge nicht mehr angezeigt.

_________________
Gruß
Peter

RalfMoeller
Newbie
Newbie

Anmeldedatum: 27.09.2008
Beiträge: 3

Verfasst am: 27.09.2008, 12:24

Super! Danke funktioniert!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Bei Änderung Datum automatisch einfügen	annewill1234	Microsoft Excel Hilfe	0	19.11.2008, 17:26
	Trennlinie automatisch	zubergoos	Microsoft Word Hilfe	0	19.11.2008, 14:51
	Zelleninhalte abgleichen nach Doppelten	Knuddl	Microsoft Excel Hilfe	7	19.11.2008, 10:42
	Tabelle nach Seitenumbruch in 2. Zeile	OmaWetterwachs	Microsoft Word Hilfe	0	19.11.2008, 09:43
	Fotoalbum automatisch einfügen - Über...	Snazooh	Microsoft PowerPoint Hilfe	0	15.11.2008, 11:45

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de