Hallo Karin, ist es möglich diesen code in DieseArbeitsmappe einzufügen und nicht in Tabelle1, 2, 3 usw. da ich diesen code für mehrere Tabellenblätter brauche. Danke
Sub Nach_Datum_sortieren() ' Schaltfläche2_KlickenSieAuf Makro
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
Dim lngLetzte As Long
Dim lngLetzteF As Long
With Worksheets("Tabelle1")
.EnableOutlining = True 'für Gliederung
.EnableAutoFilter = True 'AutoFilter trotz Blattschutz
lngLetzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) 'Letzte nicht leere Zelle in Spalt A
.Cells(3, 6).Formula = "=F2+D3+E3" 'Formel nach unten kopieren
.Cells(3, 7).Formula = "=F3-$H$1" 'Formel nach unten kopieren
.Range("f3:g3").AutoFill Destination:=Range(Cells(3, 6), Cells(lngLetzte, 7)), Type:=xlFillDefault 'Formel nach unten kopieren
.Range("A3:n5000").Sort Key1:=.Range("A3"), _
Order1:=xlAscending
End With
Loletzte = Cells(Rows.Count, 6).End(xlUp).Row '+ 1
Cells(Loletzte, 6).Select 'das kann gelöscht werden
Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten
End Sub