Fehlersuche
18.04.2018 09:41:02
Daniel
ich habe folgenden Code geschrieben, welcher mir aus einer Auflistung von verschiedenen abgerechneten Rechnungen die Beträge der einzelnen Kunden raussucht und ihnen zuweist. Das Problem ist das der Inhalt der "Betragszelle" nicht der Variablen zugewiesen wird. Also die Schleifen funktionieren aber in der Variablen "a" ist einfach kein Inhalt vorhanden.
Code:
Sub Auswertung()
Dim Zeile As Long
Dim ZeileMax As Long
Dim Zeile_betragMax As Long
Dim a, b, c, z As Long
ZeileMax = 60
Zeile_tempMax = 30
z = 3
For Zeile = 37 To ZeileMax
For Zeile_betrag = z To Zeile_betragMax
If ActiveWorkbook.Worksheets(1).Cells(Zeile, 3).Value = ActiveWorkbook.Worksheets(1).Cells( _
Zeile_betrag, 1).Value Then
a = ActiveWorkbook.Worksheets(1).Cells(Zeile_betrag, 3).Value
b = ActiveWorkbook.Worksheets(1).Cells(Zeile, 4).Value
c = b + a
ActiveWorkbook.Worksheets(1).Cells(Zeile, 4).Value = a
End If
Next Zeile_temp
Next Zeile
End Sub