Bereich mit Schleife kopieren
09.10.2013 15:08:58
Lutz
ich komme ohne Hilfe nicht mehr weiter.
Ich möchte mir einem Code einen Bereich in bestimmte Tabellen kopieren.
Hier mal der Code:
Sub DrucktextTabellen()
Sheets("DruckKunde").Select
Range("J1:P63").Select
Selection.Copy
Dim i As Integer
Dim wks As Worksheet
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
.Calculation = xlCalculationManual
With ThisWorkbook
For i = .Sheets.Count To 1 Step -1
'Ist Tabellenname eine Zahl?
If IsNumeric(.Sheets(i).Name) Then
' Sheets("DruckKunde").Range("J1:P63").Copy Destination:=Sheets("i").Range(" _
J1")
Sheets(i).Paste
Application.Wait Now + TimeSerial(0, 0, 2)
DoEvents
End If
Next i
End With
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayAlerts = True
.ScreenUpdating = True
End With
On Error Resume Next
Set wks = Worksheets("(Leer)")
On Error GoTo 0
If Not wks Is Nothing Then
' Sheets("(Leer)").PrintOut
Else
Sheets("Eingabe").Select
End If
End Sub
Er bleibt bei
Sheets(i).Paste
hängen -wahrscheinich kann er das nicht einfügen.
Ich hatte mal das hier gegoogelt und angepasst aber das geht auch nicht:
' Sheets("DruckKunde").Range("J1:P63").Copy Destination:=Sheets("i").Range("J1")
Die Zeile beschreibt aber genau den Inhalt - er soll aus DruckKunde den Bereich J1:P63 kopieren und dann in jedes Sheet der Schleife (die geht damit vergebe ich auch einen Druckbereich und das funktioniert) reinkopieren.
Weiß jemand einen Rat?
Vielen Dank und viele Grüße Lutz