VBA: Tabellenname aus Zelle
14.03.2013 20:02:36
WalterK
bräuchte eine kleine Hilfe bei folgendem Code. Hier kommt der Fehler: Laufzeitfehler 9 - Indes außerhalb des gültigen Bereichs!
Der Code bleibt bei Set wksQ stehen und ich komm nicht auf den Fehler.
Option Explicit
Sub AuswertungErstellen()
Dim wksQ As Worksheet 'QuellBlattName steht im aktiven Sheet in B1
Dim wksZ As Worksheet 'Zieldatei ist das aktive Sheet
Set wksQ = Worksheets(ActiveSheet.Cells(1, 2) & "!")
Set wksZ = Worksheets(ActiveSheet)
wksQ.Range("A2").Copy wksZ.Range("D6")
End Sub
Danke im voraus uns Servus, Walter