If auf zellwert
Einzel
habe folgendes Makro
Private Sub CommandButton7_Click()
Dim Lesen1 As String
Lesen1 = Range("C18")
If Lesen1 = "A" Then 'Prüfen ob Angebot
[Q6].Value = [Q6].Value + 1
Else
If Lesen1 = "G" Then 'Prüfen ob Gutschrift
[Q8].Value = [Q8].Value + 1
Else
End If
If Lesen1 = "L" Then 'Prüfen ob Lieferschein
[Q10].Value = [Q10].Value + 1
Else
End If
End If
'Call Vorlageöffnen
End Sub
Wird nach dieser Formel =WENN(C18"";WENN(UND(E17>=5000;E17=6000;E17=7000;E17 Je nachdem was darin steht, soll das Makro Q6, Q8 oder Q10 um 1 erhöhen.
Es funktioniert aber leider nicht. Was ist falsch?
MfG
Stephan
Anzeige