Worksheet_Activate
26.06.2005 14:15:03
Heinrich
Habe dies Makro mit dem Recorder aufgezeichnet und es läuft!
Nur wenn ich beim Aktivieren des Blattes, es laufen lassen will, habe ich einen Fehler bei Range ("C2:F501")
Es sollte nur die Daten bei Aktivierung des Blatt " Eingabe " erneut aus Blatt Projekt holen.
Kurzbeschreibung:
im Blatt Zeit Z21 bis AC521 löschen und im Blatt Projekt C2 bis F502 kopieren und in Blatt Zeit eintragen .
Private Sub Worksheet_Activate()
ActiveWindow.SmallScroll ToRight:=17
Range("Z21:AC522").Select
Selection.ClearContents
Range("Z21").Select
Sheets("Projekt").Select
Range("C2:F501").Select
Selection.Copy
Sheets("Eingabe").Select
Range("Z21").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-9
Range("A1").Select
Sheets("Projekt").Select
ActiveWindow.LargeScroll Down:=-16
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "5/14/2005"
Range("C2").Select
Sheets("Eingabe").Select
End Sub