mit einem Code von Hans will ich in Abhängigkeit ob OptionButton1 oder 2 True ist den Range festlegen. Aber ich bekomme dabei immer die Fehlermeldung das Variable nicht definiert ist. Was ist da falsch?
Option Explicit
'Code von Hans (053399)
Sub MehrBereichsDruck() 'Druckt Mehrbereich aus 1 TB
Dim rng As Range, rngAct As Range
Dim iRow As Integer, iCounter As Integer
Application.ScreenUpdating = False
'Set rng = Range("A1:E20,A25:E26")
If OptionButton1 = True Then Set rng = Range("A1:E20,A25:E26")
If OptionButton2 = True Then Set rng = Range("A1:E20,A27:E35")
Workbooks.Add 1 'TB einfügen
For Each rngAct In rng.Areas
iCounter = iCounter + 1
If iRow > 0 Then
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 2
Else
iRow = 1
End If
'Cells(iRow, 1).Value = iCounter & ". Bereich:"
rngAct.Copy Cells(iRow + 1, 1)
Next rngAct
ActiveSheet.PrintPreview
ActiveWorkbook.Close savechanges:=False 'löscht eingefügtesTB
Application.ScreenUpdating = True
End Sub