Thema Datum  Von Nutzer Rating
Antwort
13.08.2024 11:58:18 Wiebke
NotSolved
13.08.2024 13:03:05 Gast7777
NotSolved
13.08.2024 19:27:08 ralf_b
NotSolved
Blau so? (ungetestet)
 16.08.2024 01:32:40 Gast89816
NotSolved

Ansicht des Beitrags:
Von:
Gast89816		 Datum:
16.08.2024 01:32:40		 Views:
44		 Rating:
     
Antwort:
  Ja
Thema:
so? (ungetestet)

Alle Änderungen sind markiert:

Sub SetXForStabchen()
    Dim ws As Worksheet
    Dim cell As Range
    Dim currentRowColor As Long
    Dim currentCellColor As Long
    Dim belowCellColor As Long
    Dim whiteColor As Long
    Dim greenColor As Long
    Dim lastRow As Long
    Dim rowIndex As Long
    Dim colIndex As Long
 
    ' Setze das Arbeitsblatt, das verwendet wird
    Set ws = ThisWorkbook.Worksheets("Tabelle1") ' Passe den Namen des Arbeitsblatts an
 
    ' Definiere die Farben
    whiteColor = RGB(255, 255, 255) ' Weiß
    greenColor = RGB(0, 255, 0) ' Grün
 
    ' Finde die letzte Zeile im Arbeitsblatt mit Daten
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
 
    ' Durchlaufe jede Zelle im ausgewählten Bereich
    For Each cell In Selection
        rowIndex = cell.Row
        colIndex = cell.Column
         
        ' Bestimme die Farbe der aktuellen Zelle
        currentCellColor = cell.Interior.Color
 
        ' Bestimme die Farbe der Reihe, in der sich die Zelle befindet
        If rowIndex Mod 2 = 1 Then
            currentRowColor = greenColor ' Ungerade Reihen sind Grün
        Else
            currentRowColor = whiteColor ' Gerade Reihen sind Weiß
        End If
 
        ' Überprüfe die Farbe der darunter liegenden Zelle
        If rowIndex < lastRow Then
            belowCellColor = ws.Cells(rowIndex + 1, colIndex).Interior.Color
        Else
            belowCellColor = greenColor ' falls keine darunter liegende Zelle existiert
        End If
 
        If belowCellColor = currentRowColor Then
            cell.Value = "X"
'		Else
'			cell.Value = ""
        End If
		
    Next cell
End Sub

 

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
13.08.2024 11:58:18 Wiebke
NotSolved
13.08.2024 13:03:05 Gast7777
NotSolved
13.08.2024 19:27:08 ralf_b
NotSolved
Blau so? (ungetestet)
 16.08.2024 01:32:40 Gast89816
NotSolved