Hi liebe Helfer, wieder eine Frage:
Ich habe folgende Routine unter VBA:
Private Sub CommandButton3_Click()
Sheets("Tippliste").Select
Sheets.Add.Name = "Druck"
Sheets("Druck").Move After:=Sheets("Tippliste")
Sheets("Tippliste").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Druck").Select
ActiveSheet.Paste
Sheets("Tippliste").Select
Cells(3, 9).Select
Sheets("Druck").Select
Cells(3, 9).Select
End Sub
Das neue Tabellenblatt "Druck" wird problemlos angelegt, aber beim letzten Cells(3,9).Select bekomme ich eine Fehlermeldung. Woran liegt das und wie kann ich es richtig machen?
Liebe Grüße
peko