Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro zur Formatierung von Dateien

Forumthread: 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.
Anzeige

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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige