Office: (Office 2019) Checkliste-VBA nur unter Bedingung

Hallo,

ich habe hier eine Checkliste mittels Makrorekorder, VBA Codes aus dem Netz und meinen geringen Kenntnissen zusammengewürfelt.

Das Abhaken, Sortieren usw. funktioniert auch alles nach meinen Wünschen.
Eine Auswertung findet auf einem weiteren Tabellenblatt statt. Die angehangene Datei enthält nur einen minimierten Teil der Liste.

Mein Problem:
Der VBA Code „Private Sub Worksheet_BeforeDoubleClick“ soll bei leeren Zellen der jeweiligen Zeile in den Spalten „I,Q,Y usw.“ nicht ausgeführt oder besser mit einer MsgBox „Zelle leer“ beendet werden. Da fehlt mir wohl eine Zeile mit Exit Sub im Code.

Mit Datenüberprüfung oder bedingter Formatierung hat es nicht geklappt…

Bitte habt etwas Nachsehen mit mir, ich beschäftige mich eher selten mit Office und habe auch äußerst wenig Ahnung vom programmieren.

Wäre nett wenn jemand helfen könnte, die Sache lässt mir einfach keine Ruhe.

Danke und Gruss, Steffen!

 

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("e4:e27,m4:m27,u4:u27,ac4:ac27,ak4:ak27")) Is Nothing Then
        If Target <> "" Then
            Me.Unprotect
            If Target = "" Then
                Target.Formula = "ý"
            ElseIf Target = "ý" Then
                Target.Formula = "o"
            ElseIf Target = "o" Then
                Target.Formula = "þ"
            ElseIf Target = "þ" Then
                Target.Formula = ""
            End If
            Cancel = True
        Else
            MsgBox "Zelle leer"
        End If
    End If
End Sub

 

Hallo Hajo_Zi,
danke für die rasche Antwort!
Ist leider nicht das was ich suche. Wahrscheinlich habe ich mich nicht ausreichend ausgedrückt.
In E,M, und U sollen die Checkboxen in Abhängigkeit von I,Q und Y (leer oder ausgefüllt) per Doppelklick checken.

Z.B. bei Doppelklick auf E11 und I11 leer dann MsgBox. Bei Doppelklick auf E11 und I11 ausgefüllt dann checken.
Gruss Steffen!

 

@Hajo_Zi

schon mal was von Select Case gehört??

fragt sich ...

 

Hallo,
hat denn keiner ein paar ergenzende Zeilen für den Code?
Zu Select Case hab ich mich jetzt belesen, raffe es aber nicht.
Ich bekomme es irgendwie nicht auf die Reihe.

 

ich bin dann raus, siehe Beitrag von vom d'r Basler.
Es war auch der falsche Code in Der Datei, da war nichts von Checkboxen?

Gruß Hajo

 

Hallo,
ok, Schade Hajo!
Der Code ist der Richtige, nur meine Ausdrucksweise wieder falsch.

In E,M, und U sollen die Zellen in Abhängigkeit von I,Q und Y per Doppelklick ausgefüllt werden.
Wenn I,Q oder Y leer dann MsgBox, wenn I,Q oder Y ausgefüllt dann Code ausführen.

Z.B. bei Doppelklick auf E11 dabei I11 leer dann MsgBox. Bei Doppelklick auf E11 dabei I11 ausgefüllt dann ausführen.
Gruss Steffen!

 

Hi Steffen,

versuche es mal so (ungetestet):

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("e4:e27,m4:m27,u4:u27,ac4:ac27,ak4:ak27")) Is Nothing Then
        If Target.Offset(0, 4) = "" Then
            MsgBox "Zelle leer"
        Else
            Me.Unprotect
            If Target = "" Then
                Target.Formula = "ý"
            ElseIf Target = "ý" Then
                Target.Formula = "o"
            ElseIf Target = "o" Then
                Target.Formula = "þ"
            ElseIf Target = "þ" Then
                Target.Formula = ""
            End If
            Me.Protect
        End If
        Cancel = True
    End If
End Sub

---

 

Hallo Karin,
vielen Dank!
Der Code funktioniert, der Blattschutz hat jedoch ein Sortieren mit Laufzeitfehler quittiert.
Durch entfernen von Me.Unprotect und Me.Protect ging es dann ohne Probleme.

Nochmals Danke für die Hilfe
LG Steffen!

 

Hallo Stefen,
also trifft diese Ausage von Dir
"In E,M, und U sollen die Checkboxen in Abhängigkeit von I,Q und Y (leer oder ausgefüllt) per Doppelklick checken."
nicht mehr zu.

Gruß Hajo

 

Hallo Hajo,
trifft zu. Mit dem Wort "Checkboxen" meinte die Zelle welche durch Doppelklick den VBA Code ausführt und optisch eine Checkbox erscheinen lässt. Sorry für den falschen Ausdruck.
Gruss Steffen!