Fehlermeldung

Bild

Betrifft: Fehlermeldung
von: Rix
Geschrieben am: 30.07.2015 16:05:30

Hallo Zusammen,
ich bekomme bei der Ausführung dieses Codes:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Worksheets("Updated-View").Range("C1").Value = Format(Now, "dd.MM.yyyy hh:mm")
End Sub

beim erstmaligen Editieren einer Zelle immer diese Fehlermeldung:
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen
Kann mir jemand mit Rat bitte weiterhelfen, wie ich die Fehlermeldung weg kriege?
Gruß
Rix

Bild

Betrifft: AW: Fehlermeldung
von: anna
Geschrieben am: 30.07.2015 16:21:30
Hallo Rix,
ich weiß nicht, ob du das wolltest und ob es dir weiterhilft:
(Leider bin ich in VBA eine kleine Pflaume ;) )

Sub test()
   Worksheets("Updated-View").Activate
   Cells(1, 3).Value = Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
End Sub

Liebe Grüße,
Anna

Bild

Betrifft: AW: Fehlermeldung
von: Rix
Geschrieben am: 30.07.2015 16:29:41
Hallo Anna,
vielen Dank erstmal für Deine Antwort.
Leider trifft das nicht ganz mein Problem.
Ich versuche mit dem Code-Schnipsel Excel dazu aufzufordern in Zelle C1 das aktuelle Datum + Uhrzeit einzutragen, sobald eine Änderung in der Arbeitsmappe vorgenommen wird.
Das klappt auch gut, nur eben mit dem Schönheitsfehler, dass die Fehlermeldung erscheint, wenn man die Arbeitsmappe erstmalig öffnet und editiert.
Lieben Gruß
Rix

Bild

Betrifft: AW: Fehlermeldung
von: Luschi
Geschrieben am: 30.07.2015 18:49:30
Hallo Rix,
mit Deinem bisherigen Vba-Code erzeugst Du eine Endlos-Schleife, da das Schreiben in eine Zelle per Vba immer wieder das selbe Change()-Ereignis aufruft und das dann in die Krise führt.
Deshalb mache es so:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
        ThisWorkbook.Worksheets("Updated-View").Range("C1").Value = _ 
Format(Now, "dd.MM.yyyy hh:mm")
    Application.EnableEvents = True
End Sub
Infos zu 'Application.EnableEvents' siehe Vba-Hilfe: F1-Taste!
Gruß von Luschi
aus klein-Paris

Bild

Betrifft: AW: Fehlermeldung
von: Luschi
Geschrieben am: 30.07.2015 18:54:22
Hallo Rix,
mit Deinem bisherigen Vba-Code erzeugst Du eine Endlos-Schleife, da das Schreiben in eine Zelle per Vba immer wieder das selbe Change()-Ereignis aufruft und das dann in die Krise führt.
Deshalb mache es so:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
        ThisWorkbook.Worksheets("Updated-View").Range("C1").Value = _ 
Format(Now, "dd.MM.yyyy hh:mm")
    Application.EnableEvents = True
End Sub
Infos zu 'Application.EnableEvents' siehe Vba-Hilfe: F1-Taste!
Gruß von Luschi
aus klein-Paris

Bild

Betrifft: AW: Fehlermeldung
von: Rix
Geschrieben am: 31.07.2015 09:19:25
Hallo Luschi,
klasse, vielen vielen vielen Dank, funtzt perfekt!!!!!
Lieben Gruß & ein schönes Wochenende nach klein-Paris ;o)
Rix

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung"