Function Hilfe
08.01.2018 13:49:32
Burak
also diesmal geht es um Functions. Habe bisher noch gar nicht damit gearbeitet, da es etwas zwar übersichtlicher macht aber meines Wissens nach auch alles ohne geht.
Der Übersichtlichkeit zuliebe habe ich folgendes versucht in eine Function zu packen, bin aber daran gescheitert.
Der Rohcode
bauteilFehlt = WorksheetFunction.CountIfs(Range("A2:A" & Zeilenzahl), barcode, Range("G2:G" _
_
& Zeilenzahl), bauteil, Range("H2:H" & Zeilenzahl), "=1")
xray = WorksheetFunction.CountIfs(Range("A2:A" & Zeilenzahl), barcode, Range("G2:G" & _
Zeilenzahl), bauteil, Range("H2:H" & Zeilenzahl), "=26")
bauteilFalsch = WorksheetFunction.CountIfs(Range("A2:A" & Zeilenzahl), barcode, Range("G2:G" _
_
& Zeilenzahl), bauteil, Range("H2:H" & Zeilenzahl), "=3")
loetfehler = WorksheetFunction.CountIfs(Range("A2:A" & Zeilenzahl), barcode, Range("G2:G" & _
_
Zeilenzahl), bauteil, Range("H2:H" & Zeilenzahl), "=6")
kurzschluss = WorksheetFunction.CountIfs(Range("A2:A" & Zeilenzahl), barcode, Range("G2:G" & _
_
Zeilenzahl), bauteil, Range("H2:H" & Zeilenzahl), "=9")
und noch einmal etwas kürzer:
bauteilFehlt = WorksheetFunction.CountIfs(Range("H2:H" & Zeilenzahl), fehlercode, Range("H2: _
_
H" & Zeilenzahl), "=1")
xray = WorksheetFunction.CountIfs(Range("H2:H" & Zeilenzahl), fehlercode, Range("H2:H" & _
Zeilenzahl), "=26")
bauteilFalsch = WorksheetFunction.CountIfs(Range("H2:H" & Zeilenzahl), fehlercode, Range(" _
_
H2:H" & Zeilenzahl), "=3")
loetfehler = WorksheetFunction.CountIfs(Range("H2:H" & Zeilenzahl), fehlercode, Range("H2:H" _
_
& Zeilenzahl), "=6")
kurzschluss = WorksheetFunction.CountIfs(Range("H2:H" & Zeilenzahl), fehlercode, Range("H2: _
_
H" & Zeilenzahl), "=9")
Mein Function-Versuch:
Function zaehlen(x As String) As String
zaehlen = WorksheetFunction.CountIfs(Range("H2:H" & Zeilenzahl), fehlercode, x)
End Function
Der Versuch bezieht sich auf den unteren Teil des Roh-Codes.
Wollte nicht den ganzen Code posten weil der nicht grade kurz ist, kann ihn bei Bedarf noch ranhängen.
Danke im Voraus!