Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

festes Datum !

festes Datum !
06.10.2016 12:47:57
Erik
Hallo zusammen,
habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4")) Is Nothing And Target.Count = 1 Then
Cells(23, 4) = Format(Now, "dd.mm.yyyy")
End If
End Sub
Excel soll bei der ersten Eingabe in Zelle D4 einmal das Datum in Zelle 23, 4
anschließend soll das Datum bei Neueingabe nicht mehr verändert werden.
Ist das machbar ?
Gruß
Erik

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: festes Datum !
06.10.2016 12:50:37
Rudi
Hallo,
wenn vorher nichts in D23 steht: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4")) Is Nothing And Target.Count = 1 Then
if cells(23,4)="" then     Cells(23, 4) = Format(Now, "dd.mm.yyyy")
End If
End Sub
Gruß
Rudi
AW: festes Datum !
06.10.2016 13:00:14
UweD
Hallo
hab es eingebaut.
Die Fehlerbehandlung ist (nur) wichtig..
- da vor dem ändern der Zelle die Events ausgeschaltet werden.
- im Fehlerfall wird auf jeden Fall so wieder zurückgesetzt.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Target, Range("D4")) Is Nothing Or Target.Count = 1 Then
With Cells(23, 4)
If CDate(.Value)  Date Then
Application.EnableEvents = False
.Value = Format(Date, "dd.mm.yyyy")
End If
End With
End If
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige