OptionButton limit?
11.08.2014 12:46:26
kreimer
https://www.herber.de/bbs/user/92014.xlsm
Sub CopySheets()
Dim i, j As Integer
For i = 2 To 255
Application.StatusBar = "Create POS" & i & " ..."
Debug.Print "Create POS" & i & " ..."
Pos1.Copy Before:=Pos1
Sheets("Pos1 (2)").Name = "Pos" & i
Sheets("Pos" & i).OptionButton1.GroupName = "A" & i
Sheets("Pos" & i).OptionButton2.GroupName = "A" & i
Sheets("Pos" & i).OptionButton3.GroupName = "A" & i
Sheets("Pos" & i).OptionButton4.GroupName = "B" & i
Sheets("Pos" & i).OptionButton5.GroupName = "B" & i
Sheets("Pos" & i).OptionButton6.GroupName = "B" & i
Sheets("Pos" & i).OptionButton7.GroupName = "C" & i
Sheets("Pos" & i).OptionButton8.GroupName = "C" & i
Sheets("Pos" & i).OptionButton9.GroupName = "C" & i
Sheets("Pos" & i).OptionButton10.GroupName = "C" & i
Next
End Sub
Sub DelSheet()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
Debug.Print ws.Name
If ws.Name = "Pos1" Then
Else
ws.Delete
End If
Next
Application.DisplayAlerts = True
End Sub