Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro zur Formatierung von Dateien

Makro zur Formatierung von Dateien
16.04.2020 12:11:10
Dateien
Hallo zusammen,
ich muss regelmäßig eine ganze Reihe von .xls-Dateien öffnen, formatieren und als .xlsx-Datei abspeichern. Ich dachte, dass man das Ganze eventuell als Makro abbilden und als Batch-Datei im Explorer abspielen könnte? Leider habe ich von Makros überhaupt keine Ahnung, deshalb würde ich mich sehr über Eure Hilfe freuen.
Die Formatierung habe ich über den VBA-Recorder aufgenommen:
Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Columns("A:B").Select
Columns("A:B").EntireColumn.AutoFit
Range("B8").Select
ActiveWindow.FreezePanes = True
Range("B8:O507").Select
Selection.NumberFormat = "#,##0"
Range("O508").Select
Selection.End(xlUp).Select
Ist das irgendwie möglich? Liebe Grüße aus dem Home Office und bleibt gesund.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zur Formatierung von Dateien
16.04.2020 12:43:42
Dateien
Hier nochmal der Code:
Font
.Name = "TKTypeRegular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Columns("A:B").Select
Columns("A:B").EntireColumn.AutoFit
Range("B8").Select
ActiveWindow.FreezePanes = True
Range("B8:O507").Select
Selection.NumberFormat = "#,##0"
Range("O508").Select
Selection.End(xlUp).Select

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige