Hallo zusammen,
ich habe gerade eine Excel Auswertungstabelle mit VBA Makros bekommen und soll die genaue Logik der Auswertung in Worte fassen. Bin selber jetzt aber nicht der beste in VBA und würde mich freuen, wenn mir jemand den Code in Wortlogik erklären könnte.
Also sowas wie: "Wähle C1 aus, schaue ob das Datum von B1 mehr als drei Tage vom jetzigen Arbeitstag wegliegt, wenn ja schreibe.."
Quasi eine Rückübersetzung :D
Vielen Dank im Voraus für die Hilfe.
Der Code ist unten.
Liebe Grüße
Marten
Range("G2").FormulaArray = _
"=INDEX(Rohdaten!C,MATCH(R1C8&RC[-5],Rohdaten!C&Rohdaten!C[-5],0))"
Range("I2").FormulaArray = _
"=IF(ISNA(INDEX(Rohdaten!C[-1],MATCH(R1C8&RC[-7],Rohdaten!C[-2]&Rohdaten!C[-7],0))),"""",INDEX(Rohdaten!C[-1],MATCH(R1C8&RC[-7],Rohdaten!C[-2]&Rohdaten!C[-7],0)))"
Range("H2").FormulaR1C1 = "=IF(ISNA(RC[-1]),""no ""&R1C8,IF(RC[+1]<=WORKDAY(RC[-3],1),RC[-1]&"" in time"",RC[-1]&"" out of time""))"
Range("G2:I2").AutoFill Destination:=Range("G2:I3333")
Range("J2").FormulaArray = _
"=IF(ISNA(INDEX(Rohdaten!C[-3],MATCH(R1C12&RC[-8],Rohdaten!C[-3]&Rohdaten!C[-8],0))),(INDEX(Rohdaten!C[-3],MATCH(""XB-CONF""&RC[-8],Rohdaten!C[-3]&Rohdaten!C[-8],0))),(INDEX(Rohdaten!C[-3],MATCH(R1C12&RC[-8],Rohdaten!C[-3]&Rohdaten!C[-8],0))))"
Range("K2").FormulaArray = _
"=IF(ISNA(INDEX(Rohdaten!C[-3],MATCH(R1C12&RC[-9],Rohdaten!C[-4]&Rohdaten!C[-9],0))),(INDEX(Rohdaten!C[-3],MATCH(""XB-CONF""&RC[-9],Rohdaten!C[-4]&Rohdaten!C[-9],0))),(INDEX(Rohdaten!C[-3],MATCH(R1C12&RC[-9],Rohdaten!C[-4]&Rohdaten!C[-9],0))))"
Range("L2").FormulaR1C1 = "=IF(ISNA(RC[-2]),""no ""&R1C12,IF(RC[-1]<=WORKDAY(RC[-7],1),RC[-2]&"" in time"",RC[-2]&"" out of time""))"
Range("M2").FormulaR1C1 = "=IF(ISNA(RC[-2]),"""",RC[-2])"
|