Thema Datum  Von Nutzer Rating
Antwort
Rot Code in Worte (Logik) übersetzen
 02.12.2020 11:35:25 Marten Koch
NotSolved
02.12.2020 16:25:41 Gast88943
NotSolved
02.12.2020 17:36:48 Gast2202
NotSolved
07.12.2020 08:06:09 Marten
NotSolved

Ansicht des Beitrags:
Von:
Marten Koch		 Datum:
02.12.2020 11:35:25		 Views:
1382		 Rating:
     
Antwort:
  Ja
Thema:
Code in Worte (Logik) übersetzen

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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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])"
   

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Code in Worte (Logik) übersetzen
 02.12.2020 11:35:25 Marten Koch
NotSolved
02.12.2020 16:25:41 Gast88943
NotSolved
02.12.2020 17:36:48 Gast2202
NotSolved
07.12.2020 08:06:09 Marten
NotSolved