Sub verteilen()
Dim i As Long
With Worksheets("Tabelle1")
  For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
    Select Case .Cells(i, 1).Value
      Case "1": .Range(.Cells(i, 1), .Cells(i, 3)).Copy Destination:=Sheets( _
        "Tabelle2").Range("A" & Sheets("Tabelle2").Cells(Rows.Count, 1).End( _
        xlUp).Row + 1)
     Case "2": .Range(.Cells(i, 1), .Cells(i, 2)).Copy Destination:=Sheets( _
     "Tabelle3").Range("A" & Sheets("Tabelle3").Cells(Rows.Count, 1).End( _
     xlUp).Row + 1)
End Select
  Next i
End With
End Sub

.Range(.Cells(i, 1), .Cells(i, 3))