Thema Datum  Von Nutzer Rating
Antwort
Rot Dynamisches Inaktivieren von CommandButtons
10.09.2020 09:43:54 staeme
NotSolved
10.09.2020 12:14:12 ralf_b
NotSolved
10.09.2020 16:30:01 Gast24363
NotSolved
10.09.2020 22:31:11 ralf_b
NotSolved
14.09.2020 08:56:47 staeme
NotSolved
14.09.2020 12:39:48 ralf_b
NotSolved
14.09.2020 15:17:12 staeme
Solved

Ansicht des Beitrags:
Von:
staeme
Datum:
10.09.2020 09:43:54
Views:
97
Rating: Antwort:
  Ja
Thema:
Dynamisches Inaktivieren von CommandButtons

Guten Tag zusammen

Ich habe in einem Excelfile ein Button, welcher beim anklicken ein Makro starten soll und danach unsichtbar (und dadurch nicht erneut anklickbar) werden soll.

Im Makro werden zum Einen Daten aus Sheets in Sheet2 kopiert und zum anderen in Sheet1 von oben eine neue Zeile eingefügt inklusive neuem Button, der mit dem selben Makro verknüpft ist. 

Mein Problem ist, dass ich leider nur jeweils einen Knopf mit dem Makro unsichtbar/inaktivieren kann, da ich dazu den spezifischen Namen angeben muss. Gibt es eine Möglichkeit, das dynamisch zu machen, in einem Makro?

Besten Dank schon im Voraus

staeme

PS: So sieht bis jetzt mein Code aus.

Sub Schaltfläche1_Klicken()
'
' Schaltfläche1_Klicken Makro
'

'
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("L2").Select
    
    ActiveSheet.Shapes("Schaltfläche 3").Visible = False
    
    Dim rng As Range
    Dim btn As Button
    With Worksheets("New Balance intern")
    Set rng = .Range("L2")
    Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
    
    With btn
    .OnAction = "Schaltfläche1_Klicken"
    .Characters.Text = "Übertragen"
    With .Characters(Start:=1, Length:=10).Font
        .Name = "Calibri"
        .FontStyle = "Standard"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    End With
    End With
        
    
   ' ActiveSheet.Buttons.Add(727.5, 17.25, 42, 10.5).Select
   ' Selection.OnAction = "Schaltfläche1_Klicken"
    Sheets("New Balance").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("New Balance intern").Select
    Range("D3:G3").Select
    Selection.Copy
    Sheets("New Balance").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("New Balance intern").Select
        
    'Dim b1 As Button
    'Set b1 = ActiveSheet.Buttons("Schalfläche1")
    'b1.Visible = False
    'CommandButton("Schaltfläche1").Visible = False
    
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Dynamisches Inaktivieren von CommandButtons
10.09.2020 09:43:54 staeme
NotSolved
10.09.2020 12:14:12 ralf_b
NotSolved
10.09.2020 16:30:01 Gast24363
NotSolved
10.09.2020 22:31:11 ralf_b
NotSolved
14.09.2020 08:56:47 staeme
NotSolved
14.09.2020 12:39:48 ralf_b
NotSolved
14.09.2020 15:17:12 staeme
Solved