Wären um jeden Tipp dankbar!
Hier unsere Problemdarstellung:
Wir haben in mehreren Excel-Tabellen Optionsfelder (bis zu 12 Optionsfelder).
(bei den rot rausmarkierten Wörtern, gibt es eine Fehlermeldung: "Das Element mit dem angegebenem Namen wurde nicht gefunden")
Es gibt im
Sheet ("VertriebsCo_Sp_Gesamt") 10 Optionsfelder
Sheet ("VertriebsCo_Sp") 12 Optionsfelder
Sheet ("VertriebsCo_Kd_Gr") 8 Optionsfelder
Sub VertriebsCo_Sp_Gesamt()
'
' VertriebsCo_Sp_Gesamt Makro
' Makro am 21.03.2003 von Grundner Erich aufgezeichnet
'
Sheets("VertriebsCo_Sp").Select
Worksheets("VertriebsCo_Sp").Shapes("Optionsfeld 12").OLEFormat.Object.Value = True
Sheets("VertriebsCo_Kd_Gr").Select
Worksheets("VertriebsCo_Kd_Gr").Shapes("Optionsfeld 8").OLEFormat.Object.Value = True
Sheets("Datentabelle_KZ").Select
Range("BY98").Select
ActiveCell.FormulaR1C1 = "VertriebsCo_Sp_Gesamt"
Sheets("VertriebsCo_Sp_Gesamt").Select
Range("A1").Select
End Sub
Sub VertriebsCo_Sp()
'
' VertriebsCo_Sp Makro
' Makro am 21.03.2003 von Grundner Erich aufgezeichnet
'
Sheets("VertriebsCo_Sp_Gesamt").Select
Worksheets("VertriebsCo_Sp_Gesamt").Shapes("Optionsfeld 10").OLEFormat.Object.Value = True
Sheets("VertriebsCo_Kd_Gr").Select
Worksheets("VertriebsCo_Kd_Gr").Shapes("Optionsfeld 8").OLEFormat.Object.Value = True
Sheets("Datentabelle_KZ").Select
Range("BY98").Select
ActiveCell.FormulaR1C1 = "VertriebsCo_Sp"
Sheets("VertriebsCo_Sp").Select
Range("A1").Select
End Sub
Sub VertriebsCo_Kd_Gr()
'
' VertriebsCo_Kd_Gr Makro
' Makro am 21.03.2003 von Grundner Erich aufgezeichnet
'
Sheets("VertriebsCo_Sp_Gesamt").Select
Worksheets("VertriebsCo_Sp_Gesamt").Shapes("Optionsfeld 10").OLEFormat.Object.Value = True
Sheets("VertriebsCo_Sp").Select
Worksheets("VertriebsCo_Sp").Shapes("Optionsfeld 12").OLEFormat.Object.Value = True
Sheets("Datentabelle_KZ").Select
Range("BY98").Select
ActiveCell.FormulaR1C1 = "VertriebsCo_Kd_Gr"
Sheets("VertriebsCo_Kd_Gr").Select
Range("A1").Select
End Sub
Was machen wir hier falsch?!
Vielen Dank für deine weitere Hilfe.
Grüsse
Christian