Thema Datum  Von Nutzer Rating
Antwort
Rot Markieren der gesamtem Zeilen trotz verbundener Zellen
 19.02.2019 12:24:40 PM
NotSolved
19.02.2019 13:16:00 MP
*****
Solved
19.02.2019 13:18:40 Gast19556
NotSolved

Ansicht des Beitrags:
Von:
PM		 Datum:
19.02.2019 12:24:40		 Views:
1093		 Rating:
     
Antwort:
  Ja
Thema:
Markieren der gesamtem Zeilen trotz verbundener Zellen
Hallo, ich habe folgendes Problem:
 
In Excel soll per VBA das Wort Regeneration in der Spalte A ausgelesen werden. Ist die erfüllt soll die gesamte Zeile grün markiert werden. Das Problem ist jedoch, dass es vorkommt das in der Spalte A über mehrere Zeilen das Wort Regeneration erhalten ist. Dies jedoch über verbundene Zellen. Das führt dazu das ausschließlich Die erste Zeile markiert wird. Der Code wurde dann so angepasst, dass egal ob Regeneration in der Zelle steht oder nicht alle Zeile markiert werden, die aus mehreren Verbundenen Zellen bestehen. Das soll jedoch nicht passieren, sondern nur Zeilen wo in der Spalte A "Regeneration" steht. Was muss ich an meinem Code ändern?
Danke im voraus. 
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ZeileFaerbenWennWortInZelleFastFertig2()
 
x = ActiveSheet.UsedRange.Rows.Count
Dim Zelle As Range
 
    For i = 1 To x
     
    Rows(i).Select
        If Cells(i, 1).Value Like "*Regeneration*" Then
            Cells(i, 1).EntireRow.Interior.ColorIndex = 4
            Cells(i, 1).Interior.ColorIndex = 4
            Cells(i, 2).Interior.ColorIndex = 4
            Cells(i, 3).Interior.ColorIndex = 4
            For Each Zelle In ActiveSheet.UsedRange
                If Zelle.MergeCells Then Zelle.EntireRow.Interior.ColorIndex = 4
            Next Zelle
    Next
 
End Sub

Im Code geht es um den unteren Teil ab For Each... der Teil markiert alle Zeilen ab Spalte D die in Spalte A mehrere Zellen verbinden.

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 Markieren der gesamtem Zeilen trotz verbundener Zellen
 19.02.2019 12:24:40 PM
NotSolved
19.02.2019 13:16:00 MP
*****
Solved
19.02.2019 13:18:40 Gast19556
NotSolved