1-52 Tabellenblatt A1 markieren
04.12.2003 09:49:42
Markus H.
(sorry wenn ich hier so rumspamme.. aber .. zeitdruck..^^)
Werner hat mir das script geschrieben
Sub Markus()
Dim i As Byte
Application.ScreenUpdating = False
Sheets("1.KW").Range("C3:N22").Copy
For i = 2 To 52
Sheets(i & ".KW").Range("C3:N22").PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
jetzt soll nach jedem kopieren die Zelle A1 markiert werden.. (jetzt ist der bereich C3:N22 markiert)
nach möglichkeit das obrige script umschreiben.. oder noch mal ein zusätzliches welches ich seperat drüber laufen lasse.
(sorry noch mal für spamm)
MfG
Markus!
Anzeige