ich habe ein kleines Problem welches für euch bestimmt nicht (hoffe ich) allzu schwer zu lösen ist, welches ich aber einfach nicht auf die Reihe bekomme. Folgendes: Ich habe ein Excelsheet in welchem per WENN Funktion in Zelle C24 und Zelle C25 (unabhängig voneinander) der Wert WAHR oder FALSCH eingetragen werden kann. Nun möchte ich falls C24 WAHR ist ---> =WENN(C24="WAHR";ZählenTeilmitDeckel();""), dass eine Function gestartet wird welche wiederum eine Sub startet welche einen Wert in Zelle C26 schreibt...Falls C25 WAHR ist, soll dieser Wert wieder auf 0 gesetzt werden...ich bekomme aber absolut nichts angezeigt. Beigefügt der Code welcher in Modul1 eingetragen ist.
Public Function ZählenTeilmitDeckel() As String
Call Zählen
End Function
Public Sub Zählen()
Dim a As Integer
Sheets("Tabelle1").Select
If Range("C24").Value = "WAHR" Then
a = a + 1
Range("C26").Value = a
ElseIf Range("C25") = "WAHR" Then
a = 0
Range("C26") = a
End If
End Sub
Ich hoffe mir kann jemand weiterhelfen da ich mich nicht wirklich auskenne...