Beim Öffnen............If usw.. Codefehler
Peter
kann mir jemand helfen wo in dem Code der Fehler steckt?....alternativ nicht den ganzen Zellbereich: würde auch Spalte A genügen:
Sub Workbook_Open....
With Sheets("Daten").[A2:E150]
If .Value = "12" Then
.NumberFormat = ";;;"
End If
End With
End Sub
Danke
Peter S.