Hidden Worksheet

Legiat

Grünschnabel
Moin zusammen,

ich versuche gerade einen Satz Daten von Worksheets("1") in Worksheets("2") zu kopieren. Worksheets("2") ist jedoch hidden und als reiner Datenfänger gedacht.
Ich erhalte ständig die Meldung "Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden."
Das habe ich derzeit
Code:
Sub Makro1()
Range("W4:HM4").Select
    Application.CutCopyMode = False
    Selection.Copy
'Habe Worksheets & Sheets bzw. Range und Cells probiert!
    Sheets("2").Range("C5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("1").Select
    Range("B8").Select
Was mache ich falsch?

Desweiteren suche ich nach einer Möglichkeit ein Blatt gleich bei der Erstellung durch VB auf hidden zu setzen, damit es nicht zu sehen ist. Hintergrund : Die Datenfänger sind Monatsblätter. Der Anwender muss nicht wissen, wo die Daten herkommen.

Ich hoffe es gibt eine nicht zu schwere Möglichkeit dies zu realisieren.

Gruß Legiat
 
Zuletzt bearbeitet:
Habs gerade gefunden. Ist sowas von einfach !!
Hab den ganzen Sums durch folgende Zeile ersetzt. Schon sind bei start des Makros die Daten drin

Code:
Worksheets("2").Range("C5:GS5") = Range("W4:HM4").Value

In meinem Workbook hab ich anstelle "C5:GS5" eine Tagesvariable eingesetzt. So werden die erfassten Daten in der Zeile des entsprechenden Tages abgelegt. Das Auslesen mittels SVERWEIS funktioniert bei HiddenSheets auch prima.

Gruß Legiat
 
Zurück