in einer Rechnungstabelle wird in Spalte B die "Artikelnummer" eingetragen. Drei benutzerdfinierte Funktionen holen den "Artikel"-Text (Spalte C), den Einheitspreis (Spalte G) und den Steuerschlüssel (Spalte E). Nun kommt es vor, dass eine Artikelnummer zwingend eine Folgeartikelnummer hat (wenn Abwesenheitsgeld berechnet wird, muss auch Kilometergeld gerechnet werden). Der Artikel Kilometergeld kann allerdings auch alleine gerechnet werden.
Wie mach ich das?
Ich habe hier eine Beispielfunktion:
Function Texte(Vergleich As String) As String
Dim Text As String
Dim EndeText As String
Dim Ende As Integer
EndeText = Sheets("Konstanten").Range("G3").Value
Ende = Val(Mid(EndeText, InStr(2, EndeText, "$") + 1))
Texte = Sheets("Konstanten").Range("G17").Value 'Text, falls Art-Nr nicht vorhanden
For I = 18 To Ende
Zeile = Format(I, "0")
Text = Sheets("Konstanten").Range("F" + Zeile).Value
If Text = Vergleich Then
Text = Sheets("Konstanten").Range("G" + Zeile).Value
Texte = Text
Exit Function
End If
Next I
End Function
Vielen Dank für die freundliche Unterstützung
Mit freundlichen Grüßen
Albrecht