Hallo,
habe den Befehl etwas angepasst:
Sub StyleChange(strFile As String, SheetName As String)
Dim bk As Workbook
Dim sh As Worksheet
Set bk = Application.Workbooks.Open(strFile)
Set sh = bk.Worksheets(SheetName)
Application.FindFormat.NumberFormat = "@"
Application.ReplaceFormat.NumberFormat = "0.00"
sh.Range("A").Replace What:="", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
bk.Close True
End Sub
Im neuen Parameter SheetName muss nun der Name des Tabelle übergeben werden.
Ich vermute mal, dass in der ersten Tabelle keine Tabelle ist.
Der Aufruf des Befehls muss nun natürlich auch angepasst werden:
Statt ...
StyleChange Ziel
... muss ...
StyleChange Ziel, "[Name der Tabelle]"
... aufgerufen werden. Statt [Name der Tabelle] muss der tatsächliche Name eingetragen werden.
LG, BigBen
|