wie werde ich die Select los?
14.03.2005 12:15:12
Peter
ich habe mir ein Makro aufgezeichnet und werde nun die SELECTS nicht los.
Excel behauptet immer es unterstütze die Methode nicht.
Wer beseitigt die Selects für mich?
Für eure Hilfe bereits vielen Dank im voraus.
Gruß Peter
Sub Shapes_transferieren()
'
' Shapes_transferieren Makro
' Makro am 14.03.2005 von Peter Feustel aufgezeichnet
'
Application.CommandBars("Control Toolbox").Visible = True
Sheets("Images").Select
ActiveSheet.Shapes("Image1").Copy
Sheets("Tabelle5").Select
Range("F15").Select
ActiveSheet.Paste
Sheets("Images").Select
ActiveSheet.Shapes("Label1").Copy
Sheets("Tabelle5").Select
Range("F21").Select
ActiveSheet.Paste
Sheets("Images").Select
ActiveSheet.Shapes("Label2").Copy
Sheets("Tabelle5").Select
Range("H15").Select
ActiveSheet.Paste
Sheets("Images").Select
ActiveSheet.Shapes("Label3").Copy
Sheets("Tabelle5").Select
Range("E15").Select
ActiveSheet.Paste
Sheets("Images").Select
ActiveSheet.Shapes("Label4").Copy
Sheets("Tabelle5").Select
Range("F8").Select
ActiveSheet.Paste
Application.CommandBars("Control Toolbox").Visible = False
Range("A1").Select
End Sub