sorry mir hats den code bisel verrupft

das ist "das Markierte"

Sheets(">35€ brutto").Select Range("A1").Select Selection.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(10, 11, 12 _ ), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Hoffe jetzt erkennt man es besser

...zur Antwort

so sollte es aussehen

ChDir "C:\Dokumente und Einstellungen\BENUTZER\Desktop"

(brauche ich die Zeile überhaupt oder reicht die untere?)

Workbooks.Open Filename:="C:\Dokumente und Einstellungen\BENUTZER\Desktop\DATEI.xls"

...zur Antwort

burnout ist ausgeschlossen, bullshit bingo geht leider nicht das seltsame ist, dass es nur in dieser situation ist, deshalb vermute ich, dass es auch kein gesundheitliches problem ist

...zur Antwort