Office: Sichtbare Zellen kopieren auf ein anderes Tabellenblatt in der gleichen Arbeitsmappe

Bitte um Hilfe
Ich habe ein Makro erstellt, welches die gefilterten Sichtbaren Zeilen markiert und dann in ein
anderes Tabellenblatt kopiert.
Sub copysichtbare01()
'
' copysichtbare01 Makro
' Makro am 16.12.2011 von GROSS aufgezeichnet
'
'
Range("A11:O1000").Select
Selection.Copy
Sheets("Auf-Einr").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub


Wenn ich das Makro händisch starte funktioniert es auch.
Wenn ich den gleichen Code einem Button zuornde kommt folgende Fehlermeldung:

Die Select-Methode des Range Objektes konnte nicht ausgeführt werden.

Private Sub CommandButton2_Click()
'
'
' Makro am 16.12.2011 von GS aufgezeichnet
'
Range("A11:O1000").Select
Selection.Copy
Sheets("Auf-Einr").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Kann mir da bitte wer helfen was da auf einmal falsch ist.

Mfg.
Gery

 

Hallo Gerry,

auf select kann in VBA zu 99,9% verzichtet werden.
Sub copysichtbare01()
'
' copysichtbare01 Makro
' Makro am 16.12.2011 von GROSS aufgezeichnet
'
'
Range("A11:O1000").Copy
Sheets("Auf-Einr") .Range("A7").PasteSpecial Paste:=xlPasteAll, SkipBlanks:= False
End Sub

Gruß Hajo

 

Hallo Hajo,

danke für Dein Hilfe, hat sofort funktioniert.

mfg
Gery