Manipulate[
 Column[{
   Row[Text[Style[#, FontFamily -> "Helvetica",18]] & /@ {"Anzahl der Messpunkte: ",
   Length[Table[{phi/Pi*180, zR*Tan[phi] + z0}, {phi, -90 Degree,90 Degree, Schrittweite Degree}]]}],
   ListPlot[Table[{phi/Pi*180, zR*Tan[phi] + z0 + R1}, {phi, -85 Degree,85 Degree, Schrittweite Degree}],
    PlotStyle -> PointSize[Medium],
    LabelStyle -> Directive[FontFamily -> "Helvetica", 18],
    AxesLabel -> {"[Phi][[Degree]]", "z[mm]"},
    Ticks -> {Table[phi, {phi, -90, 90, 10}], Automatic},
    ImageSize -> 1000],
   Prepend[N[Table[{phi/Pi*180, zR*Tan[phi] + z0 +R1, zR*Tan[phi] + z0 + R2}, {phi, -85 Degree, 85 Degree, Schrittweite Degree}]], {"[Phi][[Degree]]", "z[mm]",
  "z[mm]"}] // MatrixForm}], {{zR, 20, "Rayleigh-Länge [mm]"}, 1, 100,1}, {{z0, 125, "Position Strahltaille [mm]"}, 0, 250,1}, {{Schrittweite, 2, "Schrittweite [[Degree]]"}, .5,5, .5}, {{R1, 200, "Radius_1 [mm]"}, 100, 1000,50}, {{R2, 500, "Radius_2 [mm]"}, 100, 1000, 50}]