Hallo Forum,
ich habe eine kurze Frage zur Übergabe von Range-Objekten an eine Sub.
Ich nutze VBA unter Excel 2003.
Mein Code:
PstrDestSheet = SheetAdd
Set rSource = Workbooks(PstrAufrufer). _
Sheets(Vorlage_Zusammenfassung).Range("A1:F4")
Set rDest = Workbooks(PstrAufrufer). _
Sheets(Sheets.Count).Range("A1:F4")
Call CopyRangeValues(rSource, rDest, 0)
"PstrDestSheet" ruft die Funktion "SheetAdd" auf, die einen Sheet hinzufügt und den Namen zurückgibt.
"PstrAufrufer" enthält den Namen des makroaufrufenden Workbooks. An die Sub "CopyRangeValues" sollen die Range-Objekte übergeben werden.
Fehler: Beim ersten "Set rSource..." erhalte ich den Laufzeitfehler 9, Index außerhalb desgültigen Bereichs.
Kann mir jmd. sagen was ich hier falsch mache?
|