Hey Nighty,
hier ist er:
Sub Pal_ab_Jul_09()
'
' Makro1 Makro
' Makro am 02.06.2009 von bauer aufgezeichnet
'
'
Dim Monat
Monat = Array("", "Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
Name = ActiveSheet.Name
ActiveSheet.Unprotect Password:=""
Mon = Left(Name, 3)
Jah = Val(Right(Name, 2)) + 2000
For i = 1 To 12
If Mon = Monat(i) Then Mon_z = i
Next i
letzte_Zeile_a = Range("A65536").End(xlUp).Row
letzte_Zeile = Range("M65536").End(xlUp).Row 'geändert
If letzte_Zeile_a > letzte_Zeile Then letzte_Zeile = letzte_Zeile_a
Range("A4:V" & letzte_Zeile).Select 'geändert
Selection.Delete Shift:=xlUp
Datum_begin = DateSerial(Jah, Mon_z, 1)
Datum_ende = DateSerial(Jah, Mon_z + 1, 0)
Windows("Hst-Schenker_EuroPal.Pool_Daten.xls").Activate
Sheets("Pal.Ausgang").Select
letzte_Zeile = Range("A65536").End(xlUp).Row
Range("A3:L" & letzte_Zeile).Select 'geändert
Application.CutCopyMode = False
Selection.Copy
Workbooks("Mappe1").Worksheets(Name).Select
Range("A4").Select
ActiveSheet.Paste
letzte_Zeile_a = Range("A65536").End(xlUp).Row 'verschoben
Range("K4:K" & letzte_Zeile_a).Select 'Neu Anfang
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft 'Neu Ende
Windows("Hst-Schenker_EuroPal.Pool_Daten.xls").Activate
Sheets("Pal.Eingang").Select
letzte_Zeile = Range("A65536").End(xlUp).Row
Range("A3:L" & letzte_Zeile).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Name).Select
Range("M4").Select 'geändert
ActiveSheet.Paste
letzte_Zeile = Range("M65536").End(xlUp).Row 'geändert
If letzte_Zeile_a > letzte_Zeile Then letzte_Zeile = letzte_Zeile_a
For i = letzte_Zeile To 4 Step -1
If Range("A" & i).Value > Datum_ende Or Range("A" & i).Value < Datum_begin Then
Range("A" & i & ":K" & i).Select 'geändert
Selection.Delete Shift:=xlUp
End If
If Range("M" & i).Value > Datum_ende Or Range("M" & i).Value < Datum_begin Then 'geändert
Range("M" & i & ":x" & i).Select 'geändert
Selection.Delete Shift:=xlUp
End If
Next i
' Range("Y2").Select
' ActiveCell.FormulaR1C1 = "=SUMIF(R[39]C[-14]:K,""München"",R[39]C[-18]:G)"
' Range("Y2").Select
' ActiveCell.FormulaR1C1 = _
' "=SUMIF(R[39]C[-14]:R[398]C[-14],""München"",R[39]C[-18]:R[398]C[-18])"
' Range("Z2").Select
' ActiveCell.FormulaR1C1 = _
' "=SUMIF(R[39]C[-2]:R[398]C[-2],""MHM"",R[39]C[-7]:R[398]C[-7])"
' Range("Z3").Select
' ActiveWindow.SmallScroll ToRight:=-6
Range("A1:E1").Select
ActiveCell.FormulaR1C1 = "=SUMME-R[1]C[24]"
Range("A1:E1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[3]C[6]:R[399]C[6])"
Range("S1:V1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[3]C:R[399]C)"
Range("M2:V2").Select
ActiveSheet.Protect Password:=""
End Sub
Gruß Benjamin