Thema Datum  Von Nutzer Rating
Antwort
10.02.2023 15:06:30 Paabloo
NotSolved
10.02.2023 15:19:02 Gast1564
NotSolved
10.02.2023 15:33:24 Paabloo
NotSolved
11.02.2023 15:00:01 Gast98312
NotSolved
Rot Excel VBA Button Change
 13.02.2023 10:15:45 Paabloo
NotSolved
15.02.2023 13:27:17 Gast98312
Solved

Ansicht des Beitrags:
Von:
Paabloo		 Datum:
13.02.2023 10:15:45		 Views:
228		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA Button Change

Hi,

 

Sub SType101()
'
' SType101 Makro
'

'
    Dim objShape As Shape
With ActiveSheet
    For Each objShape In .Shapes
        If objShape.FormControlType = xlButtonControl And _
            Not objShape Is .Shapes(Application.Caller) Then _
             objShape.OLEFormat.Object.Font.Color = vbBlue
    Next
    .Shapes(Application.Caller).OLEFormat.Object.Font.Color = vbRed
End With

    ActiveSheet.PivotTables("PivotTable3").PivotFields("Storage Type"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Storage Type").CurrentPage _
        = "101"
    Benachrichtigung.Show
    Range("I2:M2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "Du bist grad bei Storage Type 101"
    Range("H5").Select
End Sub

 

Was habe ich hier falsch gemacht ? 

Vielen Dank & liebe Grüße
Erdil 

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
10.02.2023 15:06:30 Paabloo
NotSolved
10.02.2023 15:19:02 Gast1564
NotSolved
10.02.2023 15:33:24 Paabloo
NotSolved
11.02.2023 15:00:01 Gast98312
NotSolved
Rot Excel VBA Button Change
 13.02.2023 10:15:45 Paabloo
NotSolved
15.02.2023 13:27:17 Gast98312
Solved