VBA ToggleButton Teil 1 (Farbe ins Spiel bringen)

[Jockel]

Hallo Uwe, na klar klappt das... Danke. Kann ich aber auch direkt eine ZellAdresse eingeben...? also E1 in Tabelle x... ... ich will ja auch selbst da werkeln, aber ich "verschlimmbessere" nur....

[Kuwer]

Hi Jörg,

ich kann Dir jetzt nicht ganz folgen,
da ja nicht nur ein Button auf dieses Makro "zugreift".
Also muss es Regeln geben, um die Buttons zu unterscheiden.

Beschreibe doch genauer, was Du letztendlich möchtest.

Gruß Uwe

[Jockel]

Hallo Uwe, ich möchte (ähnlich wie beim Datenschnitt bei PivotTable) (vier) gleiche Autoformen (nebeneinander) aufziehen. Wenn ich dann die erste Autoform anklicke soll in einer Zelle eine 1 stehen... ... bei nochmaligem Klick in der selben Zelle eine 0. Klicke ich die zweite Autoform soll in der Zelle drunter eine 1 stehen... Vergleichbar mit Kontrollaestchen... oops ich habe gerade die amerikanische Tastatur ... beim Schreiben... ... ist mir ja noch nie untergekommen ich kann u.a. keine Umlaute schreiben... wie kann ich die wieder umstellen. Sorry, wenn ich Fehler drin sind...

[Kuwer]

Hallo Jörg,

Shift-Alt

Dein Problem mit den Zellen habe ich nicht verstanden.
Die Unterscheidung ist die TopLeftCell, von der alle weiteren Aktionen abhängig sind.

Gruß Uwe

[Jockel]

Hallo Uwe, kurioser Weise kann ich in Excel Umlaute schreiben hier nicht mehr... Ich mach den Rechner mal aus... mehr yu meiner Anfrage dann wohl erst Morgen... ... vielleicht kann ich es dann auch besser erklaeren...

[Kuwer]

Hi Jörg,

heute mittags wäre auch in Ordnung. ;)

Bis dann, Uwe

[Jockel]

Halloechen, ich kann hier im Internet zwar immer noch nicht deutsch schreiben... grrrrr... in den Anwendungen schon... Komisch... aber ich versuchs trotzdem... Ich hatte doch im Beitrag 10 ne Datei gepostet. Da sind in J Kontrollkaestchen. In O wird je nachdem, ob aktiviert oder nicht, WAHR oder FALSCH ausgegeben. Ich haette gern vier Autoformen alle gleich gross, wie bei dem Datenschnitt... ... wenn ich hier eine oder mehrere Autoformen anklicke, also aktive, moechte ich das in einer korrespondierenden Zelle 1 oder 0 eben wie bei den Kontrollkaestchen...


... klingt immer noch Kacke, oder?

[Kuwer]

Hallo Jörg,

schreibe die Adresse der jeweils gewünschten Verknüpfungszelle
in das Feld für Alternativer Text jeder Autoform. Also einfach
H3 für die Zelle H3 im selben Blatt oder
Tabelle2!H3 für die Zelle H3 im Blatt Tabelle2.

Der Code sieht dann so aus:

Code:

Sub Rechteck_BeiKlick()
  Dim oShape As Shape
  Dim rngV As Range
  Set oShape = ActiveSheet.Shapes(Application.Caller)
  With oShape
    'Verweis auf linke obere Zelle unter Button um eine Spalte nach rechts versetzt
    Set rngV = Range(.AlternativeText) ' .TopLeftCell.Offset(0, 1)
    If rngV.Value <> 1 Then
      rngV.Value = 1
      .Fill.ForeColor.RGB = RGB(143, 170, 220)
    Else
      rngV.Value = 0
      .Fill.ForeColor.RGB = RGB(218, 227, 243)
    End If
  End With
End Sub

Gruß Uwe

[Jockel]

Hi Uwe, ich bin zu blöde..: (ö geht wieder ...) - das habe ich jetzt

PHP-Code:

Sub Rechteck_BeiKlick()
  Dim oShape As Shape
  Dim rngV As Range
  Set oShape = ActiveSheet.Shapes(Application.Caller)
  With oShape
    'Verweis auf linke obere Zelle unter Button um eine Spalte nach rechts versetzt
    Set rngV = Range("I2").Value ' .TopLeftCell.Offset(0, 1)
    If rngV.Value <> 1 Then
      rngV.Value = 1
      .Fill.ForeColor.RGB = RGB(143, 170, 220)
    Else
      rngV.Value = 0
      .Fill.ForeColor.RGB = RGB(218, 227, 243)
    End If
  End With
End Sub 


[Kuwer]

Hi Jörg,

also gut, jetzt mit passendem Kommentar:

Code:

Sub Rechteck_BeiKlick()
  Dim oShape As Shape
  Dim rngV As Range
  Set oShape = ActiveSheet.Shapes(Application.Caller)
  With oShape
    'Verweis auf Zelle mit der Adresse, die unter AlternativeText notiert ist
    Set rngV = Range(.AlternativeText)
    If rngV.Value <> 1 Then
      rngV.Value = 1
      .Fill.ForeColor.RGB = RGB(143, 170, 220)
    Else
      rngV.Value = 0
      .Fill.ForeColor.RGB = RGB(218, 227, 243)
    End If
  End With
End Sub

Gruß Uwe