Ich möchte gerne per Makro einen Begriff suchen und alle Zahlen, die in der darunter liegenden Spalte stehen addieren. Dieser Wert soll dann in eine andere Tabelle kopiert werden.
Kann mir jemand helfen?
Danke Max
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Const strSuchkriterium = "DeinSuchstring"
Set WS1 = Worksheets("Daten")
Set WS2 = Worksheets("Ergebnis")
WS2.Range("A1") = WorksheetFunction.Sum(WS1.Columns(Application.Match(strSuchkriterium, WS1.Rows(1), 0)))
End Sub
Private Function SucheSpezial(strSuchkriterium As String) As Currency
Dim WS As Worksheet
Set WS = Worksheets("Daten")
SucheSpezial = WorksheetFunction.Sum(WS.Columns(Application.Match(strSuchkriterium, WS.Rows(1), 0)))
End Function
Sub t()
With Worksheets("Ergebnis")
.Range("A1") = Format(SucheSpezial("DeinSuchstring1"), "#,##0.00")
.Range("A2") = Format(SucheSpezial("DeinSuchstring2"), "#,##0.00")
'etc.
End With
End Sub
Sub t()
With Worksheets("Ergebnis")
.Range("A1") = Format(SucheSpezial("DeinSuchstring1") + SucheSpezial("DeinSuchstring2"), "#,##0.00")
'etc.
End With
End Sub