sitze hier schon eine Weile vor folgendem Problem:
Ich bekomme aus einer Datenbank relativ ungeordnete Daten. Nun möchte ich in bestimmten Bereichen das Wort Endkontrolle zählen. Das Zählen funktioniert soweit auch, nur weiss ich nicht wie ich den Range variabel gestalten kann.
Mein Ansatz:
Ich markiere die Bereiche:
Sub beziffern()
Dim i As Long, m As Long
m = 1
For i = 2 To 500
If Cells(i, 3) "" Then
Cells(i, 7) = "Bereich" & m
m = m + 1
End If
Next i
End Sub
Nun will ich von Bereich1 bis Bereich2, von Bereich2 bis Bereich3, von Bereich3 bis Bereich4 usw. in Spalte I die Häufigkeit des Wortes "Endkontrolle" zählen und in eine neue Tabelle einfügen.
Ansatz:
For Each Zelle In Sheets(1).Range("I" & x, "I" & y)
If Zelle.Value = "Endkontrolle" Then i = i + 1
Next Zelle
Sheets("Tabelle2").Cells(s, 4) = i
s = s + 1
die Frage: wie kann ich x="Bereich1" und y="Bereich2" (Bezeichnung kann natürlich verändert werden) bestimmen und in die Schleife einbauen?
Ich hoffe, es ist halbwegs verständlich formuliert, ansonsten einfach nachfragen.
Danke vielmals