Zeitstrahl von ersten bis letzte Termin

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zeitstrahl von ersten bis letzte Termin

Zeitstrahl von ersten bis letzte Termin

Beitrag von Antiprofi » 07. Feb 2018, 20:40

[CaBe: aus dem Outlook Forum verschoben. Code-Formatierung vorgenommen]

Hallo liebe Profis,

Ich habe folgendes Problem:
Ich habe eine Tabelle in der einzelne Termine eingetragen wurden.
Ich soll nun jeweils von letzten bis zum ersten Termin die Zellen färben.

Ich habe schon Folgendes:
Code: Alles auswählen
Sub Zeitstrahl()
   
   Dim zeile As Integer
   Dim spalte As Integer
   Dim anfang As Integer
   Dim ende As Integer
   
   For zeile = 7 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
    For spalte = 10 To 156 '6 mal 26
         If ws2.Cells(zeile, spalte).Value <> " " Then
         anfang = ws2.Cells(zeile, spalte)
         Exit For
         End If
         Next spalte
         
    For spalte = 156 To 10 Step -1
        If ws2.Cells(zeile, spalte).Value <> " " Then
        ende = ws2.Cells(zeile, spalte)
        Exit For
        End If
    Next spalte
    Next
   
    Range(anfang, ende).Interior.ColorIndex = 3
   

End Sub

ich suche also gerade in jeder Zeile den ersten und den letzten Eintrag und möchte diese und den Zeitraum zwischen Start und ende färben.

Ich kann wirklich jeden Tipp sehr gut Gebrachen :-)

Liebe Grüße

Nach oben