Thema Datum  Von Nutzer Rating
Antwort
04.02.2017 16:02:07 Gast52594
NotSolved
04.02.2017 17:03:00 gast
NotSolved
Rot Zellen fühlen an hand von zahl
 04.02.2017 21:31:35 Mr. Pink
NotSolved

Ansicht des Beitrags:
Von:
Mr. Pink		 Datum:
04.02.2017 21:31:35		 Views:
580		 Rating:
     
Antwort:
  Ja
Thema:
Zellen fühlen an hand von zahl

Hi, das ist meine Lösungsvorschlag für:

"A1 6 und in A2 3 dann b1:c2 grün und b3:c3 blau"

über eine Rückmeldung zu meinem Vorschlag würde ich mich freuen.

 

Sub BereichEinfärben()
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim Zeile As Integer

Zeile = 1
Set Bereich1 = Tabelle1.Range("A1")
Set Bereich2 = Tabelle1.Range("A2")

With Tabelle1

.Range("b1:c10").Interior.ColorIndex = -4142

Select Case Bereich1
    Case 6
        .Range("b1:c2").Interior.ColorIndex = 50
    Case 9
        .Range("b1:c3").Interior.ColorIndex = 50
End Select

Select Case Bereich2
    Case 3
        Do Until _
            .Cells(Zeile, 2).Interior.ColorIndex = -4142
            Zeile = Zeile + 1
        Loop
            .Range(Cells(Zeile, 2), Cells(Zeile, 3)).Interior.ColorIndex = 5
End Select

Set Bereich1 = Nothing
Set Bereich2 = Nothing

End With
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
04.02.2017 16:02:07 Gast52594
NotSolved
04.02.2017 17:03:00 gast
NotSolved
Rot Zellen fühlen an hand von zahl
 04.02.2017 21:31:35 Mr. Pink
NotSolved