For Next Schleife
08.01.2021 09:56:44
Norbert
Kann mir Bitte wer helfen.
Ich suche in Tabelle1 im Bereich B3 - E3 nach einen Begriff der in Zelle B1 steht mit ZählenWenn und lass mir die Summe in Tabelle2 in die Zelle G3 schreiben.
Habe folgenden Code schon geschrieben und er Funktioniert auch.
Wie muss die Schleife aussehen, dass beim nächsten durchlauf der Bereich B4-E4 nach den selben Begriff durch sucht wird und das Ergebnis dann in der Tabelle2 in der Zelle G4 erscheint.
Danke für Eure Hilfe
Sub sum_K()
Dim rngBereich As Range
Dim strBegriff As String
Dim rngTreffer As Range
With Tabelle1
Set rngBereich = .Range("B3:E3")
strBegriff = .Range("B1")
If Len(strBegriff) 0 Then
Set rngTreffer = rngBereich.Find _
(what:=strBegriff, lookat:=xlWhole)
End If
With Tabelle2
.Range("G3").Value = WorksheetFunction.CountIf _
(rngBereich, strBegriff)
End With
End With
End Sub