ich brauche mal wieder etwas Hilfe.
Ich muß bei vielen Dateien immer wieder das gleiche ausführen und würde das gerne je Datei automatisieren.
1. Datei Speichern
2. Markierte Tabellen in Werte umwandeln (siehe Code)
3. Alle nicht markierten Tabellen löschen
4. Datei speichern unter und dann den aktuellen Dateinamen und hinten _Mail dranhängen
Den 2ten Teil habe ich schon zusammen:
Sub WerteAktTabellen()
Dim objSheet As Worksheet
For Each objSheet In ActiveWindow.SelectedSheets
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(1, 1).Select 'damit nicht die ganze Tbaelle markiert ist
Next
End Sub
Weiß jemand eine Lösung für den Rest?Vielen lieben Dank für Eure Hilfe und viele Grüße
Lutz