'Video_004) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_004) start


Sub zellenwert_einlesen_und_ausgeben()
Dim wert_in_H3 As String
Dim wert_in_H6 As Double
Dim wert_in_H9 As Integer

wert_in_H3 = ActiveWorkbook.Worksheets("page_A").Range("H3").Value
wert_in_H6 = ActiveWorkbook.Worksheets("page_A").Range("H6").Value
wert_in_H9 = ActiveWorkbook.Worksheets("page_A").Range("H9").Value

MsgBox "zuerst der String:"
MsgBox wert_in_H3
MsgBox "danach kommt die Komma-Zahl:"
MsgBox wert_in_H6
MsgBox "und zum Schluss die Ganzzahl:"
MsgBox wert_in_H9
End Sub

'Video_004) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_004) ende