Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA ToggleButton Teil 1 (Farbe ins Spiel bringen)
#21
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....
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#22
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
Antworten Top
#23
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...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#24
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
Antworten Top
#25
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...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#26
Hi Jörg,

heute mittags wäre auch in Ordnung. ;)

Bis dann, Uwe
Antworten Top
#27
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?
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#28
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Jockel
Antworten Top
#29
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(01)
    If 
rngV.Value <> 1 Then
      rngV
.Value 1
      
.Fill.ForeColor.RGB RGB(143170220)
    Else
      
rngV.Value 0
      
.Fill.ForeColor.RGB RGB(218227243)
    
End If
  
End With
End Sub 
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#30
Hi Jörg,

also gut, jetzt mit passendem Kommentar: Wink

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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Jockel
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste