Thema Datum  Von Nutzer Rating
Antwort
23.11.2017 12:37:53 makroanfänger
NotSolved
Blau wenn kein Datum eingetragen ist dann zeige eine leere Zeile
23.11.2017 12:39:41 Gast75518
NotSolved

Ansicht des Beitrags:
Von:
Gast75518		 Datum:
23.11.2017 12:39:41		 Views:
811		 Rating:
     
Antwort:
  Ja
Thema:
wenn kein Datum eingetragen ist dann zeige eine leere Zeile
For i = 2 To Tabelle4.Cells.CurrentRegion.Rows.Count Tabelle7.Cells(i, 1) = i - 1 Tabelle7.Cells(i, 2) = Tabelle4.Cells(i, 1) Tabelle7.Cells(i, 3) = Tabelle4.Cells(i, 2) Tabelle7.Cells(i, 4) = Tabelle4.Cells(i, 3) Tabelle7.Cells(i, 5) = Tabelle4.Cells(i, 4) Tabelle7.Cells(i, 6) = CDate(Tabelle4.Cells(i, 5).Value) ' If (Len(Tabelle4.Cells(i, 6).Value) > 0) Then Tabelle13.Cells(i + 11, 7) = CDate(Tabelle4.Cells(i, 6).Value) 'Else 'Tabelle13.Cells(i + 11, 7) = Tabelle4.Cells(i, 6).Value 'End If Tabelle7.Cells(i, 7) = CDate(Tabelle4.Cells(i, 6).Value) Tabelle7.Cells(i, 8) = Tabelle4.Cells(i, 7) Tabelle7.Cells(i, 9) = Tabelle4.Cells(i, 8) Tabelle7.Cells(i, 10) = Tabelle4.Cells(i, 9) Tabelle7.Cells(i, 11) = Tabelle4.Cells(i, 10) Tabelle7.Cells(i, 12) = Tabelle4.Cells(i, 11) Tabelle7.Cells(i, 13) = Tabelle4.Cells(i, 12) Tabelle7.Cells(i, 14) = Tabelle4.Cells(i, 16) Tabelle7.Cells(i, 15) = Tabelle4.Cells(i, 15) Tabelle7.Cells(i, 16) = Tabelle4.Cells(i, 17) 'create Report table' Tabelle13.Cells(i + 11, 1) = i - 1 Tabelle13.Cells(i + 11, 2) = Tabelle4.Cells(i, 1) Tabelle13.Cells(i + 11, 3) = Tabelle4.Cells(i, 2) Tabelle13.Cells(i + 11, 4) = Tabelle4.Cells(i, 3) Tabelle13.Cells(i + 11, 5) = Tabelle4.Cells(i, 4) Tabelle13.Cells(i + 11, 6) = CDate(Tabelle4.Cells(i, 5).Value) Tabelle13.Cells(i + 11, 7) = CDate(Tabelle4.Cells(i, 6).Value) Tabelle13.Cells(i + 11, 8) = Tabelle4.Cells(i, 7) Tabelle13.Cells(i + 11, 9) = Tabelle4.Cells(i, 8) Tabelle13.Cells(i + 11, 10) = Tabelle4.Cells(i, 9) Tabelle13.Cells(i + 11, 11) = Tabelle4.Cells(i, 10) Tabelle13.Cells(i + 11, 12) = Tabelle4.Cells(i, 11) Tabelle13.Cells(i + 11, 13) = Tabelle4.Cells(i, 12) Tabelle13.Cells(i + 11, 14) = Tabelle4.Cells(i, 16) Tabelle13.Cells(i + 11, 15) = Tabelle4.Cells(i, 15) Tabelle13.Cells(i + 11, 16) = Tabelle4.Cells(i, 17) Next i

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:



  • 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
23.11.2017 12:37:53 makroanfänger
NotSolved
Blau wenn kein Datum eingetragen ist dann zeige eine leere Zeile
23.11.2017 12:39:41 Gast75518
NotSolved