Ich benutze das unten stehende Modul um werte aus einer Zelle auszulesen und zu zählen. Im Prinzip funktioniert das auch, wenn ich jedoch On Error Resume Next entferne, kommt ein Debuggfehler bei Case"A"
Ich weissnicht woran das liegen könnte. Dadurch wird naturlich Case "A" auch nicht aufgezählt und meine berechnungen sind immer ungenau.
Weiss jemand Rat
Sub Zaehlen()
ActiveSheet.Unprotect Password:="1969"
Sheets("Bewertung in der Qualimatrix").Range("A14:H14").ClearContents
Dim ws As Worksheet
Dim strStartblatt As String
strStartblatt = "Bewertung in der Qualimatrix"
With Sheets(strStartblatt)
For Each ws In Worksheets
If Not ws.Name = .Name Then
On Error Resume Next
Select Case ws.Range("M4").Value
Case "A"
.Range("A14").Value = .Range("A14").Value +1
Case "B"
.Range("B14").Value = .Range("B14").Value + 1
Case "C"
.Range("C14").Value = .Range("C14").Value + 1
Case "D"
.Range("D14").Value = .Range("D14").Value + 1
Case "E"
.Range("E14").Value = .Range("E14").Value + 1
Case "F"
.Range("F14").Value = .Range("F14").Value + 1
Case "G"
.Range("G14").Value = .Range("G14").Value + 1
Case "H"
.Range("H14").Value = .Range("H14").Value + 1
End Select
End If
Next
End With
ActiveSheet.Protect Password:="1969", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Grüße Fred