ich wollte meine Liste soweit vereinfachen, dass zu jedem Mitarbeiter und Material die Rechnungsnummer anhand der Kostenstelle vergeben wird. Es gibt auch Kostenstellen mit mehreren Rechnungsnummern. Ist die Summe der 1. Rechnungsnummer aufgebraucht soll die nächste Rechnungsnummer angezogen werden. Zudem soll bei einer Schlussrechnung alle Mitarbeiter und Material dieser Schlussrechnung zugeordnet werden, die noch keine Rechnungsnummer haben.
Mein Problem liegt darin, dass bei Kostenstellen, wozu mehrere Rechnungsnummern vorliegen, bisher immer nur die 1. genommen wurde. Ich habe versucht meinen Code umzuschreiben aber dann liegt ein Zirkelbezug vor. Ich habe mal eine Bespieldatei angehangen. Dort habe ich zwar keinen Zirkelbezug mehr aber trotzdem funktioniert es nicht.
https://www.herber.de/bbs/user/156993.xlsm
Public Function GetTest(varPos As Variant) As Variant
Dim x As Long
Dim y As Long
If IsNull(varPos) Then
GetTest = " - / -"
Exit Function
End If
If IsEmpty(varPos) Then
GetTest = " - / -"
Exit Function
End If
x = 2
Do While Worksheets("abgerechnet").Cells(x, 1).Value ""
If CVar(Worksheets("abgerechnet").Cells(x, 1).Value) = varPos Then
y = 2
Do While CVar(Worksheets("abgerechnet").Cells(x, 6).Value)