möchte gern - immer wenn auf speichern gedrückt wird:
1.) alle Tabellen im Blatt auswählen und
2.) allen Blättern die Schriftart Calibri und -Größe 11 zuweisen.
3.) alle gesetzten Filter sollen auf alle anzeigen gesetzt werden (also keine DS mehr gefiltert sein.
4.) WICHTIG: zum Schluß soll keine Tabelle mehr markiert sein (sind sie bei mir aber immer noch)
(Ich habe das unten stehende Makro etwas "zusammengeschustert", funktioniert nicht richtig!!!)
Auf diesem Weg möchte ich verhindern, dass die Anwender mir da alle möglichen Schriftarten reinsetzen, wenn sie Daten eingeben oder reinkopieren.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
Cells.Select
With Selection.Font
.Name = "Calibri"
.Size = 11
End With
If wksBlatt.FilterMode Then wksBlatt.ShowAllData
Next wksBlatt
End Sub
Danke für Eure Hilfe!!