Die Datei https://www.herber.de/bbs/user/71693.xls wurde aus Datenschutzgründen gelöscht
Sub xxxx()
Rows.AutoFit
End Sub
Sub Optionsfeld1_BeiKlick()
' keine Ahnung warum Rows("Tabelle2!E8")
Worksheets("Tabelle3").Rows(14).EntireRow.AutoFit
End Sub
Gruß Hajo