Hallo Ros,
wenn vari keinen Inhalt hat wird nun die Fehlermeldung ausgegeben, bin aber nicht sicher ob es dann auch weiter gehen soll dann müsste man noch einen Abbruch einbauen.
For Zeile = 4 To 47
vari = Cells(Zeile, 2) & " = "
If vari = "" Then
Meldung = MsgBox("Zelle: 'B" & Zeile & "' enthält keinen Wert", vbCritical, "Meine Fehlermeldung...")
End If
If Tabelle1.OptionButton1 = True Then txt = " " & vari & """" & Cells(Zeile, Spalte) & """"
If Tabelle1.OptionButton2 = True Then txt = " " & vari & """" & Cells(Zeile, 4) & """"
If Tabelle1.OptionButton3 = True Then txt = " " & vari & """" & Cells(Zeile, 5) & """"
If Tabelle1.OptionButton4 = True Then txt = " " & vari & """" & Cells(Zeile, 6) & """"
If Tabelle1.OptionButton5 = True Then txt = " " & vari & """" & Cells(Zeile, 7) & """"
If Tabelle1.OptionButton6 = True Then txt = " " & vari & """" & Cells(Zeile, 8) & """"
If Tabelle1.OptionButton7 = True Then txt = " " & vari & """" & Cells(Zeile, 9) & """"
Print #1, txt
Next Zeile
Gruß Detlev
|