VBA; Dynamische Summenbildung
16.08.2021 16:11:57
Andre
ich möchte per VBA eine dynamische Summenbildung generieren. Um meine Idee vereinfacht zu erklären: Es soll meine erste Zeile nach den Wörtern "KW1", "KW2" und "KW3" durchsucht werden, dann sollen von allen gefundenen Zellen die Spalten nach den Buchstaben "A", "B" und "C" durchsucht werden. Von den jetzt noch übrig gebliebenen Zellen sollen die Werte in einer Zelle aufsummiert werden. Am Ende soll dann in der Summenzelle die Summenformel mit den gefundenen Zellen stehen, beispielsweise '=Summe(A2;C2;G2)' wenn jetzt A2, C2 und G2 die gefundenen Zellen wären. Ist das irgendwie umsetzbar?
Mit meinen Kenntnissen komme ich gerade so weit die erste Zeile nach einem Begriff "KW1" zu durchsuchen und alle Einträge zu markieren, dafür sieht mein Code wie folgt aus:
Sub Test()
Dim a As Range
Dim firstAddress
Dim str
Dim Bereich As Range
Dim start As Double
str = "KW1"
With Worksheets("Tabelle1").Cells
Set a = .Find(str, LookIn:=xlValues)
If a Like str Then Set Bereich = a
If Not a Is Nothing Then
firstAddress = a.Address
Do
Set a = .FindNext(a)
If a Like str Then Set Bereich = Union(a, Bereich)
Loop While Not a Is Nothing And a.Address firstAddress
End If
End With
Bereich.Select
End Sub
Um von den aktiven Zellen die Spalten zu durchsuchen hatte ich mal sowas probiert:
str4= "A"
Set rngCell=ActiveCells.Columns.Find(str4, lookIn:=xlValues)
rngCell.Activate
Der Code führt aber nur zu einer Fehlermeldung.
Über Hilfen und Anregungen bin ich sehr dankbar.
VIele Grüße,
Andre