Sub multi()
Dim intZeile As Integer
Const Faktor = 2

With Tabelle1

intZeile = 6
Do Until .Cells(intZeile, 5).Value = ""
  If .Cells(intZeile, 5).Value >= 4 Then

     Dim tmp as Integer
     tmp = intZeile * 2

     .Cells(intZeile, 6).Value = tmp

 End If
 intZeile = intZeile + 1
Loop

End With

End Sub