For
Zeile = 4
To
47
vari = Cells(Zeile, 2) &
" = "
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