|
Hallo Ros,
dann wäre das eine Lösung:
For Zeile = 4 To 47
vari = Cells(Zeile, 2) & " = "
For Spalte = 3 To 9
If Cells(Zeile, Spalte) = "" Then
Meldung = MsgBox("Die Spalte: " & Spalte & " in Zeile: " & Zeile & " enthält keinen Wert", vbCritical, "Meine Fehlermeldung...")
End If
Next Spalte
If Tabelle1.OptionButton1 = True Then txt = " " & vari & """" & Cells(Zeile, 3) & """"
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
|