Ein / Aus Schaltfläche

[tsw68]

Hallo

Ich möchte gerne eine Schaltfläche mit zwei Makros .
Ein mal geklickt Makro1 noch einmal geklickt makro2
Beim ersten mal Klicken der Schaltfläche sollte der Title der Schaltfläche = Ein sein und Aus beim zweiten Klick.

Ich hoffe auf eure hilfe
Bedanke mich jetzt schon 1000 mal Danke !

MFG tsw68

[TrueColor]

Nützt dir das etwas (siehe Anhang)?

Im Prinzip ist das eine Mehrfach_Fallunterscheidung (select case) anhand der Eigenschaften des Buttons (.tag, das ist das, was in Eigenschaften: Kontrollfeld > Allgemein > Zusatzinformation drinsteht).

Pro Fall werden die Eigenschaften des Buttons (Beschriftung und Tag) geändert und entsprechende Macros ausgeführt.

[tsw68]

hi !

Du hast den Nagel auf den Kopf getroffen.
Das ist was ich wollte, versuch aber schon die ganze zeit nur zwei Makros zum laufen zu bekommen.
Krige es aber nicht hin.
Meine Makross (Weiss u. Blau)

[F3K Total]

Hi,
wenn du nur Ein/Aus und blau/weiß brauchst, reicht dieses einfachere Makro:

Code: Alles auswählen

Sub S_switch_button (oEv)
    oCell = ThisComponent.Sheets.getbyName("Tabelle1").getCellrangebyName("A1")
    oButton = oEv.source.model
    if oButton.Label = "Ein" then
        oButton.Label = "Aus"
        oButton.BackgroundColor = 255
        oButton.TextColor = 16777215
        oCell.Cellbackcolor = -1
        oCell.String = "Ein"
    else
       oButton.Label = "Ein"
       oButton.BackgroundColor = 16777215
       oButton.TextColor = empty
       oCell.Cellbackcolor = 255
       oCell.String = "Aus"
    endif
End Sub

Schreibe Ein oder Aus auf die Schaltfläche und binde das Makro an das Ereignis "Aktion ausführen".
Gruß R

[tsw68]

Super so möchte ich es haben.

möchte das aber gerne auf verschiedenen Tabellen nutzen ohne das ich den Tabellenname immer ändern muss.

Bei ( Ein ) soll ein Makro gestartet werden und bei ( Aus ) auch.

[Karolus]

Hallo

Code: Alles auswählen

oCell = ThisComponent.CurrentController.ActiveSheet.getCellrangebyName("A1")

[tsw68]

Bei ( Ein ) soll ein Makro gestartet werden und bei ( Aus ) auch.

und wo kann ich meine zwei Makros eintragen ?

[Karolus]

Da wo du möchtest das sie ausgeführt werden schreibst du <deinMakroName> hin.

WTF: das sollte selbst einem blutigen Anfänger aus den hier im Thread gegebenen Beispielen sonnenklar sein.

[tsw68]

Hi

Jetzt ist alles Klar, und ich habe alles so hinbekommen wie ich es wollte.

Alles Super gut !!!!!

Vielen Dank für die hilfe

Thema gelöst !!

[TrueColor]

Bei ( Ein ) soll ein Makro gestartet werden und bei ( Aus ) auch.

und wo kann ich meine zwei Makros eintragen ?

Deshalb hatte ich dir genau diese Datei angehängt, weil man da gut sieht, wo welche Macros aufgerufen werden (--> Call MacroName).
Und das ganze von 4 (rot, gelb, grün, off) auf 2 (ein, aus) Fälle/Schaltpositionen zu kürzen, sollte kein Akt sein. An welcher Stelle hast du ein Problem?

In F3K's Code muss du deine Calls im IF- und ELSE-Bereich eintragen (Du musst auch nicht zwingend deinen Knopf bunt machen )

[Ergänzungen von TrueColor]

Code: Alles auswählen

Sub S_switch_button (oEv)
    oCell = ThisComponent.Sheets.getbyName("Tabelle1").getCellrangebyName("A1")
    oButton = oEv.source.model
    if oButton.Label = "Ein" then
        oButton.Label = "Aus"
        oButton.BackgroundColor = 255
        oButton.TextColor = 16777215
        oCell.Cellbackcolor = -1
        oCell.String = "Ein"
        Call DeinMacro1 '<-- Der Aufruf deines ersten Macros (Ergänzung TrueColor)
    else
       oButton.Label = "Ein"
       oButton.BackgroundColor = 16777215
       oButton.TextColor = empty
       oCell.Cellbackcolor = 255
       oCell.String = "Aus"
       Call DeinMacro2 '<-- Der Aufruf deines zweiten Macros (Ergänzung TrueColor)
    endif
End Sub

Sub DeinMacro1 '<-- Dein erstes Macro (Ergänzung TrueColor)
	[Dein Macro-Code]
End Sub


Sub DeinMacro2 '<-- Dein zweites Macro (Ergänzung TrueColor)
	[Dein Macro-Code]
End Sub

[Jörg]

hallo Fachleute,
vielen Dank für Eure Anregungen. So erspart man sich eine Reihe von Schaltfläche. (bei mir jedenfalls )

Code: Alles auswählen

Sub Wechsel_Preislisten (oEv)
    oCell = ThisComponent.Sheets.getbyName("Eingabemaske Abr_Rechnung").getCellrangebyName("I13")
    oButton = cmd
   cmd= oEv.source.model
    if cmd.Label = "Neue Preisliste aktivieren" then
        cmd.Label = "Alte Preisliste aktivieren"
       ' oButton.BackgroundColor = 255
        'oButton.TextColor = 16777215
        'oCell.Cellbackcolor = -1
        oCell.String = "Achtung! Neue Preisliste aktiv"
        neue_Preisliste ' Makro 
    else
       cmd.Label = "Neue Preisliste aktivieren"
       'oButton.BackgroundColor = 16777215
       'cmd.TextColor = empty
       'oCell.Cellbackcolor = 255
       oCell.String = "Achtung! Alte Preisliste aktiv"
       alte_preisliste ' Makro
    endif
End Sub

[TrueColor]

So erspart man sich eine Reihe von Schaltfläche. (bei mir jedenfalls )

.. wenn du deine Macros in einer bestimmten Reihenfolge durchgehen willst/musst, oder wenn's egal ist, ob du ein Macro "umsonst" ausführst, weil's kaum Performance kostet. Andernfalls kannst du auch ein Listenfeld/Kombinationsfeld (die Pulldowns) verwenden. Vom Code ist das im Prinzip das gleiche:

Code: Alles auswählen

Sub AuswahlSortieren (oEvent)
    Dim oSheet As Object
    Dim oBereich As Object
    Dim sName As String
    
    oSheet = ThisComponent.CurrentController.ActiveSheet
    oBereich = oSheet.getCellRangeByPosition(0,0,GetLastUsedCol(oSheet),GetLastUsedRow(oSheet))

    'sName = oEvent.Source.SelectedText 'Verwendung bei KomboBox
    sName = oEvent.Source.SelectedItem 'Verwendung bei Listenfeld
    
    Select Case sName
      Case "Sortierung: Termin Kunde"
        SortBy_TKunde (oBereich)
      Case "Sortierung: Termin Prod."
        SortBy_TProd (oBereich)
      Case "Sortierung: Fertigstellung"
        SortBy_Fertig (oBereich)
      Case "Sortierung: Status"
        SortBy_Status (oBereich)
      Case "Sortierung: Bauvorhaben"
        SortBy_BV (oBereich)
    End Select
End Sub

[tsw68]

Hallo !

habe es geschaft.
Super gut

vielen Dank !

MFG tsw68