Sub Test()
Workbooks.Open Filename:=GetDataFileName()
'wird erfolgreich geöffnet (ist getestet)
DataWB = ActiveWorkbook.Name
dataSheet = Left(DataWB, Len(DataWB) - 4)
' Autoformat der Daten
Cells.Columns.AutoFit
Range("A1:K1").Font.Bold = True
Columns("I:I").Style = "Comma"
Range("I2").End(xlDown).Offset(rowOffset:=2, columnOffset:=1).FormulaR1C1 = "=SUBTOTAL(9,C[-1])"
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen