VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Hey	Datum: 15.11.2017 14:21:20	Views: 1039	Rating:	Antwort:
Thema: Disable Button
Hey alle zusammen, ich habe ein kleines VBA Problem und hoffe ihr könnt mir helfen. Ich will einen CMD (ich habs mit Active X versucht) sperren wenn in Zeile A1 oder A2 oder A3 etwas steht, also sobald eine der drei Zeilen befüllt ist soll der Button gesperrt sein. Ich habe zwei Ansätz in gefunden kann diese aber leider nicht auf mein Problem umschreiben da mein Kenntnisstand was VBA angeht nicht sehr hoch ist. Ansatz 1: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then If ActiveSheet.Range("A1").Value = "" Then CommandButton1.Enabled = True Else: CommandButton1.Enabled = False End If End If End Sub Ansatz 2:'Dieses Makro in das Klassenmodul des Tabellenblattes (z.B. "Tabelle1") kopieren : Private Sub Worksheet_Change(ByVal Target As Range) Dim rngButton1 As Range Set rngButton1 = [A1,B1,C1] 'Zellen, die gefüllt sein müssen 'Vergleicht Anzahl gefüllter Zellen mit Anzahl zu überprüfender Zellen 'Wenn in ALLEN relevanten Zellen ein Wert steht, CommandButton1 aktivieren : CommandButton1.Enabled = Application.CountA(rngButton1) = rngButton1.Count = False End Sub Hoffe einer von euch hat mir einen guten Ansatz. Greez

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