Hallo Forum,
ich wuerde gerne, nachdem ich in ein Feld einen Wert eingetragen habe, in dem Feld daneben Datum & Uhrzeit des Eintrags erscheinen lassen. Ich hab es schon mit einer kleinen IF() Anweisung probiert und NOW(), aber dann wird das Datum nach jeder Bearbeitung der Datei wieder aktualisiert und das moechte ich ja grade nicht.
Vielen Dank im Voraus fuer Hilfe
Marius
Hallo,
ich arbeite, wenn es um die Überwachung eines Bereiches geht, in der Regel mit einem VBA-Code:
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 hh:mm"))
End If
End Sub
Hier wird der Bereich von A1 bis A10 überwacht, das musst du noch auf deine Verhältnisse anpassen, und in B1 bis B10 dann das aktuelle Datum eingetragen.
Der Code selbst gehört 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
Hallo,
Zitat:Der Code selbst gehört 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
Ergänzend aber wichtig:
... und dann das Ganze nicht mehr als *.xls
x sondern als *.xls
m oder *.xls
b speichern.
Sonst sind sie wieder futsch, die Makros.
jetzt sagt er mir Runtime Error 13 und markiert gelb:
Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
Hallo,
das kann ich nicht nachvollziehen - in der Beispielsmappe funktioniert das problemlos.
Hast du irgendwas am Code geändert? Steht der Code im richtigen Modul?
Hallo,
Zitat: Steht der Code im richtigen Modul?
wahrscheinlich schon, sonst wäre das Makro ja kaum angesprungen.
Aber Nachschauen schadet ja nicht.
bleibt die Frage:
Zitat:Hast du irgendwas am Code geändert?
... ansonsten brauchen wir die Datei
Ja das passt alles.
Hab den Code so uebernommen ins Richtige Modul gesteckt und auf meinen Bereich angepasst.
Hab dein Beispiel geoeffnet und der selbe Fehler ist aufgetreten ohne das ich was geaendert habe.
Aber ich sehe dass es funktioniert und das ist genau der Code den ich brauche
Jetzt muss er nur noch bei mir laufen :DDD
Hallo,
deine Beispielsdatei funktioniert bei mir ohne Probleme. Ich bekomme keine Fehlermeldung.
Ich habe nicht viel Ahnung von VBA deswegen kann ich dir bei der Fehlersuche nicht weiterhelfen wenn der nachfolgende Hinweise nicht hilft:
Was mir aufgefallen ist: Du hast anscheinend ein englisches Excel.
Teste mal ob es hilft wenn du in der bemängelten Zeile das dd.mm.yy duch dd.MM.yy ersetzt.
Ja das zwar nicht aber Fehler ist trotzdem behoben
Es muss dd/mm/yy anstatt dd:mm:yy heissen -.-
Jetzt noch eine Frage: was muss ich aendern, dass das Datum links neben meinem Eintrag erscheint ?
Gruss
Marius