Hallo Camillo,

nachfolgendes Makro addiert Dir alle Werte, die zu dem Suchbegriff in Tabellenblatt "Tabelle1" Zelle A1 gehören. Die gesuchten Werte stehen in Spalte A, die zu addierenden Werte stammen aus der Spalte rechts neben des gefundenen Begriffs.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]Option Explicit

Sub Suchen_und_berechnen()
Dim strSuch As String
Dim iSheet As Integer
Dim iVergleich As Integer
Dim varSum As Variant
Application.ScreenUpdating = False
strSuch = Range("A1")
For iSheet = 1 To Worksheets.Count
    If Sheets(iSheet).Name <> "Tabelle1" Then
        For iVergleich = 1 To Sheets(iSheet).Range("A65536").End(xlUp).Row
            If strSuch = Sheets(iSheet).Cells(iVergleich, 1) Then
                 varSum = varSum + Sheets(iSheet).Cells(iVergleich, 1).Offset(0, 1)
            End If
        Next
    End If
Next
MsgBox varSum
End Sub
[/b]

Ich hoffe, Du kommst klar.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}