Microsoft Excel

Herbers Excel/VBA-Archiv

bedingte Formatierung | Herbers Excel-Forum


Betrifft: bedingte Formatierung von: Snewi
Geschrieben am: 02.02.2012 08:44:21

Hallo,

leider sind in Excel 2003 meine bedingten Formatierungen erschöpft ich bräcuhte aber noch eine um, wenn ich auf eine Zelle klicke die ganze Spalte dynamisch farblich hinterlegt wird!
Hatte das bisher so umgesetzt:

in VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A2") = Target.Row
End Sub
bedingte Formatierung:
Formel ist: =ZEILE()=$V$2

Wie löse ich das ganze in VBA ohne die bedingte Formatierung zu nutzen?
Der Bereich soll B2:Al71 sein die Hintergrundfarbe leicht Orange :-)

Gruß

  

Betrifft: Spalte im Bereich färben - Interior.ColorIndex ... von: Matthias L
Geschrieben am: 02.02.2012 10:16:27

Hallo

definierter Name für (B2:Al71):= Bereich

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Bereich")) Is Nothing Then
   Range("Bereich").Interior.ColorIndex = xlNone
   Range(Cells(2, Target.Column), Cells(71, Target.Column)).Interior.ColorIndex = 44
Else
   Range("Bereich").Interior.ColorIndex = xlNone
End If
End Sub
Gruß Matthias


  

Betrifft: AW: Spalte im Bereich färben - Interior.ColorIndex ... von: Snewi
Geschrieben am: 02.02.2012 15:18:31

Hi meinte natürlich nicht Spalten sondern Zeilen :-)
Zeile 7 bis 81 soll farblich hinterlegt werden und wenn ich 2 Spalten markiere dann beide!

Gruß


  

Betrifft: AW: Spalte im Bereich färben - Interior.ColorIndex ... von: Snewi
Geschrieben am: 02.02.2012 15:28:33

ebenfalls sollen die Zeilen nur bis Spalte AD markiert werden und nicht noch alles was dahinter liegt :-)


  

Betrifft: AW: bedingte Formatierung von: Hajo_Zi
Geschrieben am: 02.02.2012 16:57:51

schaue mal auf diese Seite
http://hajo-excel.de/inhalt_vba_markieren.htm

GrußformelHomepage


  

Betrifft: AW: bedingte Formatierung von: Snewi
Geschrieben am: 03.02.2012 08:32:48

HAllo,

da ist aber nicht das zu finden was ich suche :-(
Also ich möchte die Zeile markiert haben von Spalte B bis AD! Alle vorhandenen Formatierungen sollen erhalten bleiben!
Wenn möglich dann wenn eine Zeile markiert dann eine Zeile farbig machen ,wenn 2 dann 2!

Gruß


  

Betrifft: AW: bedingte Formatierung von: hary
Geschrieben am: 03.02.2012 09:35:27

hallo
hier mal mein bescheidener Versuch mit Rechtsklick. Zelle/Zeile(n) markieren und Rechtsklick.

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  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, 28).Interior.ColorIndex = 44
     End If
   Next
    Cancel = True
End Sub

gruss hary


  

Betrifft: AW: bedingte Formatierung von: Snewi
Geschrieben am: 03.02.2012 10:15:21

Ist schonmal nicht schlecht!
Geht das denn auch mit SelectionChange und wenn ich mehrere Zeilen markiere?

Gruß


  

Betrifft: AW: bedingte Formatierung von: Snewi
Geschrieben am: 03.02.2012 10:18:50

kann ich auch noch bestimmte Spaltenbereiche Range("D:E,J:K,N:O,Q:R,U:V,Y:Z,AC:AD") die Schriftart fett machen?

gruß


  

Betrifft: Range(DeinBereich).Font.Bold = True oT von: Matthias L
Geschrieben am: 03.02.2012 10:27:08




  

Betrifft: AW: Range(DeinBereich).Font.Bold = True oT von: Snewi
Geschrieben am: 03.02.2012 11:07:39

So?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Range
  Range("B7:AM81").Interior.ColorIndex = xlNone
  Range("D:E,J:K,N:O,Q:R,U:V,Y:Z,AC:AD").Font.Bold = True
   For Each i In Selection
     If i.Row > 6 And i.Row < 82 Then
        Cells(i.Row, 2).Resize(1, 38).Interior.ColorIndex = 44
     End If
   Next
End Sub



  

Betrifft: AW: mit sleectionchange von: hary
Geschrieben am: 03.02.2012 10:35:23

Hallo
dann versuch mal so.

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

gruss hary


  

Betrifft: AW: mit sleectionchange von: Snewi
Geschrieben am: 03.02.2012 11:11:20

und die ursprünglichen Formatierungen sollen beibehalten und nicht überschrieben werden!!!

Gruß


  

Betrifft: AW: bedingte Formatierung von: hary
Geschrieben am: 03.02.2012 10:25:45

Hallo

wenn ich mehrere Zeilen markiere?

hast Du es probiert? Du kannst mehrere Zeilen markieren und dann Rechtsklick.
gruss hary


  

Betrifft: AW: bedingte Formatierung von: Snewi
Geschrieben am: 03.02.2012 11:04:15

also ich wähle eine Zelle an und die ganze Zeile wird markiert! Markiere ich nun 2 Zellen sollen auch beide Zeilen markiert werden geht das?

Gruß


  

Betrifft: AW: bedingte Formatierung von: hary
Geschrieben am: 03.02.2012 11:09:54

Hallo
Hatte noch einen Code mit selectionchange hochgeladen.
Gehen beide.


gruss hary


  

Betrifft: AW: bedingte Formatierung von: Snewi
Geschrieben am: 06.02.2012 09:32:30

Ist soweit super nur was ich noch toll fänd wenn die Schrift bei Markierung fett wird und die andere Formatierung beibehält wenn die Markierung wieder weg ist :-)

Gruß


  

Betrifft: AW: bedingte Formatierung von: Snewi
Geschrieben am: 06.02.2012 21:54:16

Ich kann nicht glauben das es nicht möglich ist die ursprüngliche Formatierung beizubehalten!
Das geht ja sogar mit der bedingten Formatierung ihne VBA :-)


  

Betrifft: AW: bedingte Formatierung von: Hajo_Zi
Geschrieben am: 07.02.2012 05:59:40

es ist möglich aber aufwendig. Meine Vorschläge hat Du ja abgelerhnt.

Gruß Hajo


  

Betrifft: AW: bedingte Formatierung von: Snewi
Geschrieben am: 07.02.2012 07:56:33

Kann ich denn wenigstens hier einbauen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Range
   Range("B7:AM81").Interior.ColorIndex = 2
    For Each i In Selection
      If i.Row > 6 And i.Row < 82 Then
         With Cells(i.Row, 2).Resize(1, 38)
         .Interior.ColorIndex = 36
        End With
      End If
    Next
End Sub

das der Range ("D:E,J:K,N:O,Q:R,U:V,Y:Z,AC:AD") hellgrau ist und bleibt?

Gruß


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