Hallo zusammen, vor dem Schreiben der Excel Zelle möchte ich die Zelle als Zahl formatieren. Mit .Value wird die Zelle wohl geschrieben, jedoch das Format bleibt falsch. Was mach ich falsch?
’ Zellen A2 bis mit betriebsnr schreiben
X = 2
Do Until xlsht.Cells(X, „B“) = „“
With xlsht.Cells(X, „A“)
.Select
.NumberFormat = „0“
.Value = CInt(betriebsnr)
’ MsgBox xlsht.Cells(X, „A“), , xlsht.Cells(X, „B“)
End With
X = X + 1
’ MsgBox xlsht.Cells(X, „B“)
Loop
xlWrkBk.Save
xlsht.Application.Quit
Set xlsht = Nothing
Set xl = Nothing