Makro auf ausgeblendete Sheets
31.01.2015 11:28:40
Hans
Hallo Zusammen
Brauche Eure Hilfe bei folgenden Makro:
Sub Probe()
' Probe Makro
Sheets("ELFerrari").Cells.ClearContents
Sheets("ELAuer").Cells.ClearContents
Sheets("HBlatt").Select
ActiveSheet.Range("$C$1:$Q$104").AutoFilter Field:=4, Criteria1:="<>"
Range("C1:Q105").Copy
Sheets("ELFerrari").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Sheets("HBlatt").Select
ActiveSheet.Range("$C$1:$Q$104").AutoFilter Field:=4
Range("$C$1:$Q$104").AutoFilter Field:=5, Criteria1:="<>"
Range("C1:Q105").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ELAuer").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Sheets("HBlatt").Range("$C$1:$Q$104").AutoFilter Field:=5
Range("B1").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Ladeliste").Select
Range("A20").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Rows("15:45").RowHeight = 24
Range("C12").Select
End Sub
Makro funktioniert, aber was ich noch möchte ist, dass das Tabellenblatt "HBlatt" in der Arbeitsmappe ausgeblendet werden kann. Ist nur ein Hilfblatt zum berechnen der Werte und sollte vor unbeabsichtigtes Verändern nicht sichtbar sein.
Ich bekommen den Code einfach nicht hin, dass das Makro funktionier, auch bei ausgeblendeten Tabellenblatt "HBlatt".
Gruß