Name für Schaltfläche
29.09.2008 08:55:00
Reinhardt
Mit der u.a.
Sub möchte ich eine bestimmte Zelle anwählen.
Aber ich möchte diese
Sub auch mit anderen Optionsfeldern ausführen können.
Also Optionsfeld 32, Optionsfeld 33....
Wie kann ich das erreichen?
Sub Einzeldruck()
Dim a As Integer
a = Sheets(2).Shapes("Optionsfeld 31").TopLeftCell.Row 'Name: Einzeldruck
Range("D" & a - 2).Select
End Sub
Gruß Reinhardt.
Anzeige