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
|