Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makrofehler: Laufzeitfehler '1004' ???

makrofehler: Laufzeitfehler '1004' ?
14.11.2005 15:30:14
marius
hallo ihr alle
bin auf einen makrofehler gestossen, den ich leider nicht lösen kann:
ich habe eine tabelle mit 31 spalten und dem folgenden makro (auch ein produkt dieses forums :-)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 Then Exit Sub
Cells(Target.Row, 11).Value = Date
Cells(Target.Row, 12).Value = Time
End Sub

dieses makro schreibt mir in die spalte 11 das datum und in die spalte 12 die aktuelle zeit sobald in den spalten 1 - 8 ein eintrag vorgenommen wird.
das funktionierte bestens. damit mir die personen welche mit dieser tabelle arbeiten nichts in die spalten 11 und 12 schreiben können, wollte ich diese sperren. dazu habe ich die spalten 1-10 und die spalten 13-31 mittels "Zelle formatieren" - "Schutz" entsperrt und mit EXTRA - SCHUTZ - BLATT SCHÜTZEN den bereich der spalten 11 und 12 für eingaben gesperrt.
wenn ich nun in den spalten 1-8 einen eintrag vornehme erscheint die folgende fehlermeldung: Laufzeitfehler 1004 (Anwendungs- oder Objektdefinierter Fehler) und beim Debuggen wird mir die Zeile "Cells(Target.Row, 11).Value = Date" gelb markiert. wie kann ich dieses problem lösen?
für eine lösung zum voraus herzlichen dank.
marius

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

Betreff
Datum
Anwender
Anzeige
AW: makrofehler: Laufzeitfehler '1004' ?
14.11.2005 15:38:53
u_
Hallo,
kann ja auch nicht klappen wenn das Blatt geschützt ist.
Schutz vorher aufheben und dann wieder setzen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 Then Exit Sub
activesheet.unprotect "Passwort"
Cells(Target.Row, 11).Value = Date
Cells(Target.Row, 12).Value = Time
activesheet.protect "Passwort"
End Sub
Gruß
Geist ist geil!
AW: makrofehler: Laufzeitfehler '1004' ?
14.11.2005 15:46:32
marius
hallo u_
es funktioniert tadellos. vielen dank.
marius
Anzeige

239 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige