Ohne "select" Probleme
Holger
seit ich aus meinem Makro alle select...selection rausgeschmissen habe bekomme ich Probleme.
Die unten stehende Codezeilen (und auch andere) funktionieren nur vom Blatt s2a aus. Ist ein anderes Blatt aktiv, gibt es einen Fehler.
Wie muss ich diese Codezeilen ändern, damit sie von überall fehlerfrei ausgeführt werden können?
With Sheets(s2a)
.Range("A1:E1").End(xlDown).Sort Key1:=Range("B1"), _
Order1:=xlAscending, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Columns("D:E").NumberFormat = "#,##0.00"
End With
Gruß Holger