Thema Datum  Von Nutzer Rating
Antwort
26.07.2022 13:00:44 Ernst
NotSolved
26.07.2022 19:58:15 xlKing
NotSolved
30.07.2022 11:59:46 Gast71668
NotSolved
Blau Makro auslösen durch rechts oder links Klick auf Form
 30.07.2022 16:02:54 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
30.07.2022 16:02:54		 Views:
749		 Rating:
     
Antwort:
  Ja
Thema:
Makro auslösen durch rechts oder links Klick auf Form

Hallo Ernst,

klar geht das auch. Hatte nicht gedacht, dass es so viele sind. Führe einfach den folgenden Code einmal aus. Das Blatt mit den Kreisen muss aktiv sein und das Makro aus meiner letzten Nachricht bereits in einem Standardmodul existieren.

Sub Massenzuweisung()

    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
      If sh.Type = msoAutoShape Then
        If sh.AutoShapeType = msoShapeOval Then
          sh.OnAction = "FormFuellen"
          sh.Line.ForeColor.RGB = vbBlack 'macht die Linie von vornherein schwarz
          sh.Fill.ForeColor.RGB = vbWhite 'macht die Fläche von vornherein weiß
        End If
      End If
    Next sh
    
End Sub

Danach kannst du beliebig drauf klicken um die Füllung schwarz und wieder weiß zu machen.

Gruß Mr. K.

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
26.07.2022 13:00:44 Ernst
NotSolved
26.07.2022 19:58:15 xlKing
NotSolved
30.07.2022 11:59:46 Gast71668
NotSolved
Blau Makro auslösen durch rechts oder links Klick auf Form
 30.07.2022 16:02:54 xlKing
NotSolved