hier ist mein ansatz...ich weiss nur noch nicht wie ich die radiobuttons integrieren kann
Private Sub CommandButton1_Click()
Dim Datei As String, Text As String
Dim Zeile As Long
Dim zeigen
On Error GoTo Fehler
Datei = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt"
Open Datei For Output As #1
For Zeile = 3 To 47
Print #1, Cells(Zeile, 2) & " = " & Cells(Zeile, 3)
Next Zeile
Close #1
zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)
Exit Sub
Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub