Sub IstSummierung()
Dim TnrSource As String, TnrSearch As String, SumTnr As String
Dim RowOneSource As Long, RowMaxSource As Long
Dim RowOneSearch As Long, RowMaxSearch As Long
RowMaxSource = 24
For RowOneSource = 12 To RowMaxSource
SumTnr = 0
TnrSource = Trim(Worksheets("Standard_AuftrNr").Cells(RowOneSource, 2))
For RowOneSearch = 1 To RowMaxSearch
TnrSearch = Trim(Worksheets("A-Bewegung Details").Cells(RowOneSearch, 2))
If TnrSource = TnrSearch Then
Sheets("A-Bewegung Details").Activate
SumTnr = SumTnr + Worksheets("A-Bewegung Details").Cells(RowOneSearch, 6)
End If
Next RowOneSearch
SumTnr = Worksheets("Standard_AuftrNr").Cells(RowOneSource, 5)
Next RowOneSource
End Sub