OptionButton GroupName variabel festlegen

Hallo Forum,
ich habe ein Arbeitsblatt mit mehreren OptionButtons, die über die GroupName Funktion in verschiedene Gruppen (Gruppe A, Gruppe B ...) eingeteilt wurden. Dieses Arbeitsblatt soll als Vorlage für weitere Arbeitsblätter dienen.
Nun möchte ich dieses Arbeitsblatt kopieren und anschließend das neue Arbeitsblatt umbenennen. Der GroupName sollte dabei aus dem Arbeitsblattnamen + dem Gruppennamen gebildet werden.
Wie kann ich den GroupName im Originalarbeitsblatt so variabel gestalten, dass er beim Kopieren des Arbeitsblattes automatisch angepasst wird?
Beispiel: Originalarbeitsblatt heißt "TAB00", der jeweilige GroupName heißt "TAB00A", "TAB00B" ...
Kopiertes und umbenanntes Arbeitsblatt heißt "TAB01", der jeweilige GroupName soll dann
heißen: "TAB01A", "TAB01B", .....
Vielen Dank für Eure Hilfe.
Gruß jueho

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SetGroupNames() Dim shp As Shape Dim sNew As String, sOld As String, sGroup As String sOld = ActiveSheet.Name sNew = "NewTable" ActiveSheet.Copy For Each shp In ActiveSheet.Shapes If InStr(shp.Name, sOld) Then sGroup = Replace(shp.Name, sOld, sNew) shp.Name = sGroup End If Next shp ActiveSheet.Name = sNew End Sub

Hallo Hans,
nochmals vielen Dank für Deine Hilfe. Habe das Problem (mit Hilfe eines weiteren Spezis) wie folgt gelöst (ist vielleicht auch für andere interessant):


Sub GName()
Dim MyObject As OLEObject
Dim MyNewTableName As String
MyNewTableName = InputBox("Bitte geben Sie den Namen des Tabellenblattes ein...", "Eingabe") _
If (MyNewTableName  "") Then
Sheets(1).Copy After:=Sheets(Sheets.Count)                      ' Kopieren des ersten  _
Tabellenblattes hinter das letzte Tabellenblatt
'        ActiveSheet.Name = "Blatt" + CStr(Sheets.Count - 1)             ' Umbenennen des neuen  _
Tabellenblattes. Format: Text + Zählindex (hier: Anzahl der Tabellenblätter - 1)
ActiveSheet.Name = MyNewTableName
For Each MyObject In ActiveSheet.OLEObjects                     ' Suche nach allen auf  _
dem Tabellenblatt platzierten Objekten....
If TypeName(MyObject.Object) = "OptionButton" Then          ' Auswahl der  _
Optionsfelder
' Zuweisen des  _
Gruppen-Namens. Format: "Name des Tabellenblattes" + Alter Gruppenname, mit Bindestrich verbunden
MyObject.Object.GroupName = ActiveSheet.Name + "-" + MyObject.Object.GroupName
End If
Next MyObject                                                       ' ... nächstes  _
Objekt
End If
End Sub

Gruss
jueho

Beliebteste Forumthreads (12 Monate)

OptionButton GroupName variabel festlegen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

130 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

OptionButton GroupName variabel festlegen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

130 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread