ich habe hier einen Code mit dem recorder zusammengestellt wobei ich ein problem bei select a4 habe.
Komisch ist nur das ich den Teilcode in einer anderen mappe getestet habe wo er auch lief nun lege ich ihn auf ein Befehlsbutton und ich erhalte eine fehlermeldung bei der selection.
ich weiß nicht warum kann mir evtl. jemand weiterhelfen?
mfg max
Private Sub CommandButton1_Click()
Dim zelle As Range
For Each zelle In Range("u1:u30")
If zelle.Value <> "" Then zelle.Offset(0, 1).Value = zelle.Value
Next
Range("B4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "1"
Range("E6:J6").Select
Selection.Copy
Range("E5").Select
ActiveSheet.Paste
Range("AA8:AF22").Select
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B4").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A8:B22").Select
Selection.ClearContents
Range("D8:E22").Select
Selection.ClearContents
Range("B4").Select
Range("B4").Select
Range("D25").Select
Selection.ClearContents
Range("B4").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = "1"
Range("B4").Select
ActiveCell.FormulaR1C1 = "1"
Range("B4").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = "1"
Range("B4").Select
ActiveCell.FormulaR1C1 = "1"
Range("E4:G4").Select
Range("G4").Activate
Selection.ClearContents
Range("E4:G4").Select
Selection.ClearContents
Range("D27,D31").Select
ab hier ist der Code ergänzt worden
'diesen code habe ich auf das Klickereigniss gelegt
'und ihn vorher in einer anderen Tabelle als Macro getestet wo er auch lief.
Selection.Copy
ChDir "P:\Servierschnitt"
Workbooks.Open Filename:="P:\Servierschnitt\Auflistung Extra-Zeiten.xls"
ab hier erhalte ich die fehlermeldung
Range("A4").Select
'Die Mappe wird geöffnet aber die selection scheitert
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close
Range("D27,E27,F27,G27").Select
Selection.ClearContents
Range("B4").Select
End Sub