'Video_028) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_028) start

Sub navigieren()

'--------------------------- 3 nach rechts laufen
Range("C4").Select
For i = 1 To 3
    ActiveCell.offset(0, 1).Select
Next i
read_1 = ActiveCell.Value
'--------------------------- 6 nach unten laufen
For i = 1 To 6
    ActiveCell.offset(1, 0).Select
Next i
read_2 = ActiveCell.Value
'--------------------------- 3 nach links laufen
For i = 1 To 3
    ActiveCell.offset(0, -1).Select
Next i
read_3 = ActiveCell.Value

ActiveWorkbook.Worksheets("blatt_N").Range("C16").Value = read_1 & " " & read_2 & " " & read_3

End Sub

'Video_028) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_028) ende