For Zeile = 4 To 47
vari = Cells(Zeile, 2) & " = "
If Tabelle1.OptionButton1 = True Then Spalte = 3
If Tabelle1.OptionButton2 = True Then Spalte = 4
If Tabelle1.OptionButton3 = True Then Spalte = 5
If Tabelle1.OptionButton4 = True Then Spalte = 6
If Tabelle1.OptionButton5 = True Then Spalte = 7
If Tabelle1.OptionButton6 = True Then Spalte = 8
If Tabelle1.OptionButton7 = True Then Spalte = 9
If Cells(Zeile, Spalte) = "" Then
Meldung = MsgBox("Die Spalte: " & Spalte & " in Zeile: " & Zeile & " enthält keinen Wert", vbCritical, "Meine Fehlermeldung...")
End If
txt = " " & vari & """" & Cells(Zeile, Spalte) & """"
Print #1, txt
Next Zeile