Code auf mehrere Button anwenden

chris58 · 2024-05-10T12:12:08+00:00

Hallo ! Ich habe einen Code der mir auf einer Liste in der Spalte 2 (B) den höchsten Wert anzeigt. Gibt es die Möglichkeit das: 1. dieser Code für mehrere Buttons (also für Spalte 2 (B) - Spalte 5 (E) - Spalte 7 (G) - Spalte 9 (I)) den höchsten Wert anzeigt ohne für jeden Button den Code in ein Modul einzugeben und 2. das dann ein Sprung zu der Zeile erfolgt ? Danke für Eure Hilfe chris58 Hier der Code: Sub tt() Dim Spa As Long, MaxZeile As Long, MinZeile As Long Spa = 2 MaxZeile = Application.Match(Application.Max(Columns(Spa)), Columns(Spa), 0) Columns(Spa).Interior.ColorIndex = xlNone Cells(MaxZeile, Spa).Interior.ColorIndex = 36 End Sub Sub Farben() Dim Zei As Long For Zei = 1 To 10000 Cells(Zei, 1).Interior.ColorIndex = Zei Next Zei

Hallo,

bin mal einen ganz anderen Weg gegangen. So was kann man besser im Ribbon erschlagen.

ins Ribbon:



 	<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="rx_onLoad">

	 	<ribbon startFromScratch="false">

		 	<tabs>

             	<tab id="tab01" label="Dein Menü" insertBeforeMso="TabHome">

                 	<group id="grpCBX_2021" label="Spaltenauswaahl" >

                     	<checkBox id="cbx1" getLabel="Checkbox1_getLabel" 

                    onAction="Checkbox1_onAction" /> 

                    

                     	<checkBox id="cbx2" getLabel="Checkbox2_getLabel" 

                    onAction="Checkbox2_onAction" />

                    

                     	<checkBox id="cbx3" getLabel="Checkbox3_getLabel" 

                    onAction="Checkbox3_onAction" /> 

                    

                     	<checkBox id="cbx4" getLabel="Checkbox4_getLabel" 

                    onAction="Checkbox4_onAction" />  

                 	</group>

             	</tab>

         	</tabs>

	 	</ribbon>

 	</customUI>

in ein allgemienes Modul:



Option Private Module

Public objRibbon As IRibbonUI, aktiv As Boolean



Public Sub rx_onload(ribbon As IRibbonUI)

    Set objRibbon = ribbon

End Sub



' Spalte B

Public Sub Checkbox1_onAction(control As IRibbonControl, pressed As Boolean)

    If pressed = True Then

        aktiv = True

        TT 2

        objRibbon.Invalidate

    Else

        aktiv = False

        delTT 2

    objRibbon.Invalidate

    End If

End Sub



Public Sub Checkbox1_getLabel(control As IRibbonControl, ByRef label)

    If aktiv = True Then

        label = "Spalte B höchster Wert aktiv"

    Else

        label = "Spalte B höchster Wert inaktiv"

    End If

End Sub



' Spalte E

Public Sub Checkbox2_onAction(control As IRibbonControl, pressed As Boolean)

    If pressed = True Then

        aktiv = True

        TT 5

        objRibbon.Invalidate

    Else

        aktiv = False

        delTT 5

    objRibbon.Invalidate

    End If

End Sub



Public Sub Checkbox2_getLabel(control As IRibbonControl, ByRef label)

    If aktiv = True Then

        label = "Spalte E höchster Wert aktiv"

    Else

        label = "Spalte E höchster Wert inaktiv"

    End If

End Sub



' Spalte G

Public Sub Checkbox3_onAction(control As IRibbonControl, pressed As Boolean)

    If pressed = True Then

        aktiv = True

        TT 7

        objRibbon.Invalidate

    Else

        aktiv = False

        delTT 7

    objRibbon.Invalidate

    End If

End Sub



Public Sub Checkbox3_getLabel(control As IRibbonControl, ByRef label)

    If aktiv = True Then

        label = "Spalte G höchster Wert aktiv"

    Else

        label = "Spalte G höchster Wert inaktiv"

    End If

End Sub



' Spalte I

Public Sub Checkbox4_onAction(control As IRibbonControl, pressed As Boolean)

    If pressed = True Then

        aktiv = True

        TT 9

        objRibbon.Invalidate

    Else

        aktiv = False

        delTT 9

    objRibbon.Invalidate

    End If

End Sub



Public Sub Checkbox4_getLabel(control As IRibbonControl, ByRef label)

    If aktiv = True Then

        label = "Spalte I höchster Wert aktiv"

    Else

        label = "Spalte I höchster Wert inaktiv"

    End If

End Sub



Sub TT(Spa As Long)

    Dim MaxZeile As Long, MinZeile As Long

    MaxZeile = Application.Match(Application.Max(Columns(Spa)), Columns(Spa), 0)

    Columns(Spa).Interior.ColorIndex = xlNone

    Cells(MaxZeile, Spa).Interior.ColorIndex = 36

End Sub



Sub delTT(Spa As Long)

    Columns(Spa).Interior.ColorIndex = xlNone

End Sub

https://www.herber.de/bbs/user/169385.xlsm

Gruß Uwe

Hallo Chris

jetzt hast du ja einen gut funktionierenden Code von Ralf. Herzlichen Glückwunsch
Wenn du den für mehrer Spalten haben willst geht das am einfachsten über meinen Vorschlag.
Du musst nur wissen welche Endziffer jeder Button hat, dann kannst du mehrere Spalten zuweisen.
Im Code unten habe ich mal die Ziffern von 1 bis 4 genommen. Diese Zahlen musst du ggf. ändern.
Würde mich freuen wenn dir das auch noch weiterhilft.

mfg Piet

Sub Übersicht_Case_sortieren()

Dim Spa As String, Schfla As Variant

Dim x As Long, lz1 As Long, rng As Range

Schfla = Right(Application.Caller, 2)



Select Case Schfla

Case 1:  Spa = "J"

Case 2:  Spa = "K"

Case 3:  Spa = "L"

Case 4:  Spa = "M"

'usw.

End Select



    With Application

        lz1 = Cells(Rows.Count, Spa).End(xlUp).Row

        Set rng = Range(Spa & "22:" & Spa & lz1)

        x = .Match(.Max(rng), rng, 0)

        Application.Goto rng.Cells(x), True

        rng.Interior.ColorIndex = xlNone

        rng.Cells(x).Interior.ColorIndex = 33

    End With

End Sub

Forumthread: Code auf mehrere Button anwenden

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Code auf mehrere Button anwenden

Forumthread: Code auf mehrere Button anwenden

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread