Excel 2003 Datum Uhrzeit

  • #1
J

joergi78

Bekanntes Mitglied
Themenersteller
Dabei seit
17.08.2005
Beiträge
249
Reaktionspunkte
0
guten morgen an alle fleißigen,
kann ich es in Excel 2003 realisieren, dass wenn ich in Zelle A2 etwas eintrage, in Zelle A1 das Datum und die Uhreit der Eintragung steht?
Diesen Teil habe ich ja geschafft,
aber die Zelle A1 DARF nicht mehr verändert werden, auch wenn ich die Zelle A2 aktualisiere.
Hoffe ihr könnt mir helfen,

gruß joergi78
 
  • #3
sauber, dass klappt schon mal.
Welcher Teil muss den angepasst werden, wenn das Datum immer in Spalte A steht.
Also z.B. so:
A1 = Datum wenn B1 = Text
A2 = Datum wenn B2 = Text
A3 = Datum wenn B3 = Text
A4 = Datum wenn B4 = Text
 
  • #4
Hallo Joergi78,

dann versuchs mal damit ;)

(Der Code muß in der Code-Seite des überwachten Blattes liegen)

Gruß Matjes :)
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
->< < < A N P A S S E N > > >
 Const cZ_ERSTEZEILE = 1-> ab Zeile 1
 Const cSP_DATUM = 1  -> entspricht A
 Const cSP_UEBERWACHT = 2-> entspricht B
->< < < A N P A S S E N  E N D E > > >
 
 Dim Zelle As Range
 Dim dDate As Date
 
->datum bilden
 dDate = Now()
 dDate = dDate \ 1
 
 For Each Zelle In Target
 ->Änderung in Änderungsspalte ?
  If Target.Column = cSP_UEBERWACHT Then
   If Target.Row >= cZ_ERSTEZEILE Then
    With Target.Parent.Cells(Target.Row, cSP_DATUM)
     .NumberFormat = dd.mm.yy
     .Value = dDate
     .EntireColumn.AutoFit
    End With
   End If
  End If
 Next
AUFRAEUMEN:
 Set Zelle = Nothing
End Sub
 
  • #5
ja wunderbatr, nur die Uhrzeit wird noch nicht angezeigt.
Wenn ich NumberFormat = dd.m.yy auf NumberFormat = dd.m.yy h:mm ändere, schreibt der mir immer die Zeit auf 0:00.
 
  • #6
Tschuldige,

hab die Uhrzeit überlesen. Version mit Uhrzeit(s.unten)

Gruß Matjes :)
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
->< < < A N P A S S E N > > >
 Const cZ_ERSTEZEILE = 1-> ab Zeile 1
 Const cSP_DATUM = 1  -> entspricht A
 Const cSP_UEBERWACHT = 2-> entspricht B
->< < < A N P A S S E N  E N D E > > >
 
 Dim Zelle As Range
 Dim dDate As Date
 
->datum bilden
 dDate = Now()
 
 For Each Zelle In Target
 ->Änderung in Änderungsspalte ?
  If Target.Column = cSP_UEBERWACHT Then
   If Target.Row >= cZ_ERSTEZEILE Then
    With Target.Parent.Cells(Target.Row, cSP_DATUM)
     .NumberFormat = dd.mm.yy hh:mm
     .Value = dDate
     .EntireColumn.AutoFit
    End With
   End If
  End If
 Next
AUFRAEUMEN:
 Set Zelle = Nothing
End Sub
 
  • #7
ja, nur wenn ich die Zelle z.B. B1 ändere, ändert sich auch die Uhrzeit[br][br]Erstellt am: 13.07.07 um 09:49:18
[br]Danke, konnte mein Problem lösen. Die Zelle B2 wird ja mit einer Formel angesprochen. Wenn einmal was eingetragen wurde, wird sie ja nicht mehr geändert.
gruß joergi78
 
Thema:

Excel 2003 Datum Uhrzeit

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums

Themen
113.839
Beiträge
707.962
Mitglieder
51.491
Neuestes Mitglied
haraldmuc
Oben