Thema Datum  Von Nutzer Rating
Antwort
30.01.2015 12:32:16 Nils
NotSolved
Blau Problem, Function zu verallgemeinern
 30.01.2015 14:59:47 Gast96067
NotSolved
30.01.2015 15:02:41 Gast94795
***
NotSolved
30.01.2015 15:16:18 Gast16134
NotSolved
30.01.2015 15:52:10 Gast98816
NotSolved

Ansicht des Beitrags:
Von:
Gast96067		 Datum:
30.01.2015 14:59:47		 Views:
766		 Rating:
     
Antwort:
  Ja
Thema:
Problem, Function zu verallgemeinern

Hm, gibt es einen Grund warum du nicht einfach

Tabelle11.Shapes("Schloss12.1").Visible = True

schreibst?

ich würde dann auch kein ActiveX-Control nehmen, sondern ein Form-Control und jedem davon ein und das selbe Makro zuweisen.

'Tabelle11
Option Explicit

Sub CheckBox_Click()
  
  If TypeName(Application.Caller) <> "String" Then Exit Sub
  
  Dim shp As Excel.Shape
  
  On Error Resume Next
  Set shp = Shapes(Application.Caller)
  On Error GoTo 0
  
  If shp.Type <> msoFormControl Then Exit Sub
  If shp.FormControlType <> xlCheckBox Then Exit Sub
  
  'Bsp: shp.Name = "12.1"
  'Tabelle11.Shapes("Schloss" & shp.Name).Visible = True
  
End Sub

Noch bissl Fehlerbehandlung dazu (falls ein Shape unter nem Namen nicht vorhanden sein sollte, dann einfach ne Meldung ausgeben) und fertig.

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.01.2015 12:32:16 Nils
NotSolved
Blau Problem, Function zu verallgemeinern
 30.01.2015 14:59:47 Gast96067
NotSolved
30.01.2015 15:02:41 Gast94795
***
NotSolved
30.01.2015 15:16:18 Gast16134
NotSolved
30.01.2015 15:52:10 Gast98816
NotSolved