Select Sheets bei for each
11.01.2013 15:19:49
Jörg
ich möchte mit einer for each in allen Tabellen die ein Namen "Protokoll-Raum"
beinhalten ,einen Teil (Felder im gefunden Sheet) umkopieren.
Public Sub kopieren()
Dim wksraum As Worksheet
Dim sichtbar As Variant
'suchen um auf allen Protokollen die Formel umzukopieren
For Each wksraum In Worksheets
If InStr(1, wksraum.Name, sName("Protokoll-Raum")) Then
Sheets(wksraum).Select
Range(Cells(70, 2), Cells(80, 32)).Select
Selection.Copy
Range(Cells(16, 2), Cells(26, 32)).Select
wksraum.Paste
Range("a1").Select
End If
Next wksraum
End Sub
Aber ich bekomme es nicht hin, das ich das gefundene Sheet
mit select ansprechen kann.
Ich erhalten immer den Fehler 1004 und habe diesen auch schin gegooglet ,
aber ich komme nicht weiter.
Wie muss ich das gefundene Sheet deklarieren?
Gruß Jörg