Thema Datum  Von Nutzer Rating
Antwort
02.01.2008 14:43:43 Peter
NotSolved
02.01.2008 16:30:04 Holger
NotSolved
Rot Aw:Aw:Formatierung der Zelle je nach Wert
 02.01.2008 20:58:11 Peter
NotSolved
03.01.2008 09:56:25 Holger
NotSolved

Ansicht des Beitrags:
Von:
Peter 		Datum:
02.01.2008 20:58:11		 Views:
1000		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Formatierung der Zelle je nach Wert
Hallo nochmal,

hier ist mein Code. Das Makro färbt die Zellen auch, wenn dort Phase oder Prozess drin steht. Einziges Problem, man kann kommt nicht mehr aus der Zelle raus. Vielen Dank im Voraus


Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Set Bereich = Range("A7:A500")
Dim i As Integer


For i = 1 To 500

If InStr(Cells(i, 1).Value, "Prozess") Or InStr(Cells(i,1).Value, "Phase") Then
Range(Cells(i, 1), Cells(i, 2)).Select
With Selection
.Interior.ColorIndex = 25
.Font.ColorIndex = 2
End With

End If


Next i



End Sub





Holger schrieb am 02.01.2008 16:30:04:

Hallo Peter,
meinst du so etwa:

Sub Blaue_Zeilen()
Range("a65536").End(xlUp).Activate 'stellt die letzte Zeile mit einem Eintrag in Spalte A fest
a = ActiveCell.Row
For i = 1 To a
If Cells(i, 1) <> "" Then
b = Trim(str(i - 1)) + ":" + Trim(str(i + 1)) 'erzeugt Variable für die Zeilen angabe, z.B: "7:9"
Rows(b).Select
With Selection.Interior
.ColorIndex = 5 'blau
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2 'weiß
End If
Next i
End Sub

Wozu braucht man das?
Viel Erfolg und ein gutes Neues Jahr
Holger


Peter schrieb am 02.01.2008 14:43:43:

Hallo,

ich bin absoluter Anfänger in VBA und habe folgendes Problem:
Wenn in der ersten Spalte ein Wert z.b. Bert steht soll die Zeile und die benachbarte Zeile einen Blauen Hinterrund und weiße Schrift bekommen.

Also ich bekomme es nur hin, dass die Zeile in der Spalte die gewünschte Formatierung erhält. Wenn man mit der Selectmethode das macht, hat man überall die weiße SChriftfarbe in der ersten Spalte.

Vielen Dank für eure Hilfe und ein frohes neues Jahr

Peter

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
02.01.2008 14:43:43 Peter
NotSolved
02.01.2008 16:30:04 Holger
NotSolved
Rot Aw:Aw:Formatierung der Zelle je nach Wert
 02.01.2008 20:58:11 Peter
NotSolved
03.01.2008 09:56:25 Holger
NotSolved