ich habe folgendes Problem:
Zahlen werden automatisch in ein Excel Sheet eingetragen
und als Zahl formatiert. Excel erkennt die Zellen aber erst als Zahl an wenn man sie einmal aktiviert.. danach ist die Zahl dann auch rechtsbündig.
An was liegt das?
Gibt es eine elegantere Lösung als in jede Zelle einmal "reinzuklicken"?
Danke!
Gruss
Torben
Sub FormatAsZahl()
Dim i As Integer
Dim j As Integer
Dim iMax As Integer
i = 1
Do While ActiveSheet.Cells(i, 1) <> ""
i = i + 1
Loop
iMax = i
For j = 4 To 11
For i = 2 To iMax
If IsNumeric(ActiveSheet.Cells(i, j)) And ActiveSheet.Cells(i, j) <> "" Then
ActiveSheet.Cells(i, j) = (ActiveSheet.Cells(i, j) + 1) - 1
End If
Next i
Next j
End Sub