Laufzeitfehler
Dennis
warum bekomme ich hier einen Laufzeitfehler?
===================
Private Sub CommandButton1_Click()
If Worksheets("Memo").Range("B1") = "3" Then
Sheets("Memo").Select
ActiveSheet.Shapes("Object 36").Select
Selection.Copy
Sheets("Druckausgabe").Range("A10").Select
ActiveSheet.Paste
End If
If Worksheets("Memo").Range("B1") = "4" Then
Sheets("Memo").Select
ActiveSheet.Shapes("Object 37").Select
Selection.Copy
Sheets("Druckausgabe").Range("A3").Select
ActiveSheet.Paste
End If
End Sub
==============================
Übrigens: Object 36 und Object 37 sind Textfelder...
Danke für Hilfe
Gruß aus Hessen
Dennis