ich habe folgendes Makro:
Sub Makro3()
ActiveSheet.Unprotect Password:="Passwort"
ActiveSheet.Shapes("Bild 100").Select
Selection.Delete
Worksheets(Range("A3").Value).Shapes(Range("A1").Value).Copy ***
ActiveSheet.Paste Range("D16")
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
Selection.Name = "Bild 100"
Selection.ShapeRange.Left = 200
Selection.ShapeRange.Top = 200
ActiveSheet.Protect Password:="Passwort"
End Sub
Ich rufe dieses Makro wie folgt auf:
Private Sub CommandButton1_Click()
Makro3
End Sub
Funktioniert !!
Wenn ich nun in der *** markierten Zeile "Shapes(Range("A1").Value).Copy" ersetze durch
"Shapes(Bildname).Copy
und das Makro über
Private Sub CommandButton1_Click()
Makro3 (Range("A1").value)
End Sub
aufrufe, bekomme ich folgende Fehlermeldung:
Fehler beim Kompilieren
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft
Wo liegt der Fehler ?
Wer kann mir helfen
Gruß
John