Microsoft Excel

Herbers Excel/VBA-Archiv

Nochmal bedingte Formatierung | Herbers Excel-Forum


Betrifft: Nochmal bedingte Formatierung von: Wolle
Geschrieben am: 22.01.2010 07:05:51

Hallo und guten Morgen,

habe da noch ein Problem:

Der Code Formatiert mir die Zellen nach rechts. Ich möchte das 1 Zelle nach links und 6 Zellen nach rechts markiert wird.

Kurz:

Text szeht in A2 und A1- A6 soll Formatiert werden. Hatte schon mit (1, -1) probiert, aber das geht nicht.

Ich danke Euch für die Hilfe.

Gruß Wolfgang

Sub Zellen_FaerbenWenn()
'
' Auswahl der Fahrzeuge
' Makro am 22.01.2010 von lorenzen aufgezeichnet
'
'
Dim rngZeile As Range, rngZelle As Range
For Each rngZeile In ActiveSheet.UsedRange.Rows
Set rngZelle = Cells(rngZeile.Row, 2) 'Spalte B zuweisen
If rngZelle.Value Like "111" Or _
rngZelle.Value Like "444" Then
rngZelle.Resize(1, 6).Interior.ColorIndex = 15
rngZelle.Resize(1, 6).Font.Bold = True

End If
Next

  

Betrifft: AW: Nochmal bedingte Formatierung von: Josef Ehrensberger
Geschrieben am: 22.01.2010 07:30:47

Hallo Wolle,

warum nicht per bedingter Formatierung?

Sub Zellen_FaerbenWenn()
  '
  ' Auswahl der Fahrzeuge
  ' Makro am 22.01.2010 von lorenzen aufgezeichnet
  '
  '
  Dim rngZeile As Range, rngZelle As Range
  
  For Each rngZeile In ActiveSheet.UsedRange.Rows
    Set rngZelle = Cells(rngZeile.Row, 2) 'Spalte B zuweisen
    If rngZelle.Value Like "111" Or rngZelle.Value Like "444" Then
      rngZelle.Offset(0, -1).Resize(1, 8).Interior.ColorIndex = 15
      rngZelle.Offset(0, -1).Resize(1, 8).Font.Bold = True
    End If
  Next
End Sub



Gruß Sepp



  

Betrifft: AW: Nochmal bedingte Formatierung von: Wolle
Geschrieben am: 22.01.2010 07:34:54

JAAAAAAAAAAAAAAAAAAAAAAAAAAA.

Danke, Danke , Danke .... das ist es gewesen. Ich sollte mal mein Kopf einschalten.

Schönes Wochenende

Wolfgang


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