Zeitstrahl von ersten bis letzte Termin

Moderator: ModerationP

Zeitstrahl von ersten bis letzte Termin

Beitragvon 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
Antiprofi
Neuling
 
Beiträge: 1
Registriert: 07. Feb 2018, 20:30

Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Fishburn, SimSi99, Zwenn und 28 Gäste