Microsoft Excel

Herbers Excel/VBA-Archiv

bedingte Formatierung ändern! | Herbers Excel-Forum


Betrifft: bedingte Formatierung ändern! von: Snewi
Geschrieben am: 06.02.2012 12:05:12

Hallo,

ich habe folgenden Syntax:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Range
   Range("B7:AD81").Interior.ColorIndex = xlNone
    For Each i In Selection
      If i.Row > 7 And i.Row < 82 Then
         Cells(i.Row, 2).Resize(1, 29).Interior.ColorIndex = 44
      End If
    Next
 End Sub
Nun möchte ich gerne das wenn eine Zelle markiert wird die Schrift Fett wird aber es dürfen die ursprünglichen Formatierungen nicht geändert werden!

Gruß

  

Betrifft: AW: bedingte Formatierung ändern! von: Snewi
Geschrieben am: 06.02.2012 13:36:01

es würde auch reichen wenn der Hintergrund weiss bleibt :-)

Gruß


  

Betrifft: schau hier ... von: Matthias L
Geschrieben am: 06.02.2012 15:42:42

Hallo

Immernoch ...
(DeinBereich).Font.Bold = True

https://www.herber.de/forum/archiv/1248to1252/t1248908.htm#1249074

Gruß Matthias


  

Betrifft: AW: schau hier ... von: Snewi
Geschrieben am: 06.02.2012 21:51:52

und immer noch bleibt die Schrift Fett und springt nicht zurück :-)


  

Betrifft: AW: schau hier ... von: hary
Geschrieben am: 07.02.2012 08:01:16

Hallo

...aber es dürfen die ursprünglichen Formatierungen nicht geändert werden!

Soweit ich weiss wird das kaum umzusetzen sein. VBA ueberschreibt immer die bed. Formatierungen. Im Archive gibt es Loesungen aber sehr aufwendig. Frage noch offen.
Statt der Farbe koennte man noch mit BorderAround arbeiten.
gruss hary


  

Betrifft: AW: schau hier ... von: Snewi
Geschrieben am: 07.02.2012 08:51:30

Schade,

könnte man denn den Range ("D:E,J:K,N:O,Q:R,U:V,Y:Z,AC:AD") fix auf hellgrau setzen! ?


  

Betrifft: AW: schau hier ... von: hary
Geschrieben am: 07.02.2012 09:29:04

Hallo
meinst Du so?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Range
Application.ScreenUpdating = False
       Range("B7:AD81").Interior.ColorIndex = xlNone
    For Each i In Selection
      If i.Row > 7 And i.Row < 82 Then
         Cells(i.Row, 2).Resize(1, 29).Interior.ColorIndex = 44
      End If
    Next
     Range("D7:E81,J7:K81,N7:O81,Q7:R81,U7:V81,Y7:Z81,AC7:AD81").Interior.ColorIndex = 15
Application.ScreenUpdating = True
 End Sub

gruss hary


  

Betrifft: AW: schau hier ... von: Snewi
Geschrieben am: 07.02.2012 11:36:38

Ja das ist schon ganz gut :-)
Wäre es auch machbar ohne die feste Farbe das wenn eine Zeile komplett mit orange hinterlegt sind das dann der Bereich für die Zelle ("D:E,J:K,N:O,Q:R,U:V,Y:Z,AC:AD") grau ist?

Gruß


  

Betrifft: AW: nicht schoen... von: hary
Geschrieben am: 07.02.2012 11:58:00

Hallo

... aber selten.;-)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Range
  Dim a As Long
Application.ScreenUpdating = False
       Range("B7:AD81").Interior.ColorIndex = xlNone
    For Each i In Selection
      If i.Row > 6 And i.Row < 82 Then
       a = i.Row
         Cells(a, 2).Resize(1, 29).Interior.ColorIndex = 44
         Range("D" & a & ":E" & a & ",J" & a & ":K" & a & ",N" & a & ":O" & a & ",Q" & a & ":R"  _
& a & ",U" & a & ":V" & a & ",Y" & a & ":Z" & a & ",AC" & a & ":AD" & a).Interior.ColorIndex = 15
      End If
    Next
Application.ScreenUpdating = True
End Sub
gruss hary


  

Betrifft: AW: nicht schoen... von: Snewi
Geschrieben am: 07.02.2012 12:11:51

Meeeegaaaa genial genauso :-)
Danke

Gruß


Beiträge aus den Excel-Beispielen zum Thema "bedingte Formatierung ändern!"