Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, ich habe ein excel sheet mit 60 tabellenblättern und würde jeweils gerne einen Zeitstempel haben sobald sich irgendwo auf den tabellenblättern was ändert... dieser soll in zelle A200 sein habe dann folgendes makro gefunden: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect(Target, Range("G:G")) Is Nothing Then Else If Target.Value <> "" Then Cells(Target.Row, 18) = Now End If End If End Sub und umgeschrieben in: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect(Target, Range("A:CZ")) Is Nothing Then Else If Target.Value <> "" Then Cells(200,1) = Now End If End If End Sub leider funktioniert das nicht... kann in der tabelle rumwurschteln wie ich möchte und es passiert gar nichts..... Bin für jede Hilfe dankbar! MfG Philipp

Ich versteh das nicht, das funktioniert bei mir prima, der Code muss in das Arbeitsblatt, in dem er ablaufen soll, hast Du ihn vielleicht woanders??

Oder schreib mal testweise:
Cells(1,1) = Now statt:
Cells(200,1) = Now

Vielleicht haste so weit unten nicht geschaut?? Oder Zeile und Spalte verwechselt??

Gruß Marie

hmmm also heute tut es... vielleicht war gestern der server überlastet oder sonstwas... bin schier verzweifelt weil ich zwar nicht sonderlich viel von VBA verstehe aber ein bisschen doch ^^

nun hab ich aber heute ein anderes problem entdeckt.
ich lösche die ganze tabelle...
und dann bringt er mir einen laufzeitfehler...
solang einzelne zellen gelöscht werden kein problem... aber sobald mehr als eine zelle markiert und der inhalt gelöscht wird, kommt ein fehler...

beim debuggen bekomme ich

If Target.Value <> "" Then

gelb unterlegt angezeigt

Hat jemand eine Idee wie ich das umgehen kann?


Mfg Philipp

Hallo Phillipp,

schreib al erste Zeile If Target.Count>1 Then Exit sub. Dann wird in dem Fall der Code nicht ausgeführt.

Gruß Hajo

Hallo Hajo,

vielen Dank. Nun läuft es.

viele Grüße

Philipp

• Hilfe für Hausarbeit..Drignend!!
• netzwerk dokumentieren
• Backup per vbscript
• Echoeffekte selbst am PC erzeugen