Sub Makro1()
    Dim MyString As String
    Dim ZahlA As Single
    Dim ZahlB As Single
 
    MyString = "Test"
    ZahlA = 23.4
    ZahlB = 6.9
 
    Worksheets("Tabelle1").Range("B3").Value = MyString
    'folgende Zeile bewirkt das gleiche Ergebnis
    'Worksheets("Tabelle1").Cells(3, 2).Value = MyString
 
    Worksheets("Tabelle1").Cells(1, 4).Value = ZahlA
    Worksheets("Tabelle1").Cells(2, 4).Value = ZahlB
    Worksheets("Tabelle1").Cells(3, 4).Formula = "=SUM(D1:D2)"
    Range("D1:D3").Select
    Selection.NumberFormat = "0.00"
    Range("D3").Select
    Selection.Borders(xlEdgeTop).LineStyle = xlDouble
    Range("A1").Select
End Sub