Will kein Select....
07.02.2004 20:25:00
MichiM
ich möchte den Bereich a1-aj42 aus der tabelle x in das Blatt Entwirf kopieren.
Ich habe auch einen wunderbar funktionierenden Code - allerdings mit Select!
Dim X As String
X = Sheets("Dateneingabe").[u27].Text
Sheets(X).Select
Range("A1:AI42").Select
ActiveWindow.SmallScroll Down:=-17
ActiveWindow.ScrollColumn = 7
ActiveWindow.SmallScroll Down:=-5
Range("A1:AJ42").Select
Selection.Copy
Sheets("Dienstplan-Entwurf").Select
ActiveSheet.Paste
Wie muss der Code aussehen, wenn ich ohne select arbeiten möchte?
Danke und Gruss
MichiM