befehlsbutton
08.12.2004 17:33:11
mayk
ich habe folgendes Problem, ich habe einen macro über den recorder erstellt und dieser läuft. soweit so gut. nun kopiere ich diesen Befehl auf eine Befehlsschaltfläche und dort läuft er nicht durch, nämlich genau bei... Range("E5").Select bleibt er stehenkann mir jemand helfen bei bedarf kann ich die mappe auch hochladen.
mfG mayk
Private Sub CommandButton1_Click()
Range("E5:I32").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\nitze-m\Desktop\datenblatt.xls"
Range("E5").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False _
, Transpose:=False
Range("E5").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("E5:I32").Select
Selection.ClearContents
Range("E5").Select
End Sub