ich möchte die Spalten eines Sheets als Zahl innerhalb einer for next Schleife formatieren:
for i = 1 to 10
Columns(i:i).Select
Selection.NumberFormat = "0"
next i
Hat jemand eine Idee?
Danke für Hilfe.
Heinz
Sub Test()
Columns(9).NumberFormat = "0"
End Sub
meinst Du so?
Gruß Sonnenpeter
Sub tst()
Dim i As Long
For i = 1 To 10
Columns(i).Select
Selection.NumberFormat = "0"
Next i
' besser ohne Select:
For i = 1 To 10
Columns(i).NumberFormat = "0.00"
Next i
' noch besser ohne Select und ohne Schleife:
Range(Columns(1), Columns(10)).NumberFormat = "0.0000"
' oder auch so:
Columns(1).Resize(, 10).NumberFormat = "0.000000"
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort