AW: Nicht aktuelle Ausgabe einer Function
28.08.2004 14:30:20
Hermann
Hallo Rainer,
ich danke für Deine propte Antwort. Leider konnte ich nicht umgehend Antwortet, da ich 2 Tage außer Haus war. Würde mich sehr freuen, wenn Du mir behilflich bist. im Folgenden die problem-Function:
Function Werkzeug() As String
Dim koststplatz As String, wkz As String
' Alle Fremdarbeitsgänge in den String "Werkzeug"
Werkzeug = ""
For a = 4 To 100
If is_kostst(Cells(a, 1).Value) Then
koststplatz = Cells(a, 1).Value
If platz(koststplatz) = 0 And is_kostst(Cells(a, 1).Value) And Cells(a, 9).Value > 0 Then
wkz = Cells(a, 2).Value
If InStr(wkz, "Stempel") > 0 Then wkz = Left$(wkz, InStr(wkz, "Stempel") - 1)
Werkzeug = Werkzeug + " + " + wkz
End If
End If
If Cells(a, 1).Value = "Summe Einmalkosten" Then a = 100
Next a
End Function
und die Unterfunktionen (sind aber unwichtig):
Public
Function is_kostst(wert As String) As Boolean
is_kostst = False
If InStr(wert, "/") > 0 And Right$(wert, 1) <> "/" Then is_kostst = True
End Function
Public
Function kostst(wert As String) As String
If InStr(wert, "/") > 0 Then
kostst = Left$(wert, InStr(wert, "/") - 1)
Else
kostst = wert
End If
End Function
Public
Function platz(wert As String) As String
If InStr(wert, "/") > 0 Then
platz = Mid$(wert, InStr(wert, "/") + 1)
Else
platz = 0
End If
End Function
Vielen Dank für Deine Mühe
Gruß Hermann