Microsoft Office Tutorials and References
In Depth Information
3.2.3 Datentypen
Dim Sg As Single, Db As Double
DimDtAsDate
Dim St As String
By=200
Bo=True
It = 20000
Lg = 200000
Sg=1/7.1
Db=1/7.1
Dt = "15.03.2010"
St = "Zeichenkette"
ThisWorkbook.Worksheets("Tabelle1").Activate
Range("A1").Value = By
Range("A2").Value = Bo
Range("A3").Value = It
Range("A4").Value = Lg
Range("A5").NumberFormatLocal = _
"0,00000000000000000000"
Range("A5").Value = Sg
Range("A6").NumberFormatLocal = _
"0,00000000000000000000"
Range("A6").Value = Db
Range("A7").Value = Dt
Range("A8").Value = St
Range("A:A").Columns.AutoFit
End Sub
Abbildung 3.2 zeigt das Ergebnis.
Abbildung 3.2
Verschiedene Datentypen
Search JabSto ::




Custom Search