|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.01.2008 14:43:43 |
Peter |
|
|
|
02.01.2008 16:30:04 |
Holger |
|
|
|
02.01.2008 20:58:11 |
Peter |
|
|
 Aw:Aw:Aw:Formatierung der Zelle je nach Wert |
03.01.2008 09:56:25 |
Holger |
|
|
Von:
Holger |
Datum:
03.01.2008 09:56:25 |
Views:
991 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Formatierung der Zelle je nach Wert |
Hallo Peter,
so genau habe ich immer noch nicht verstanden, was du willst. Wenigstens willst du nicht die benachbarten Zeilen, sondern nur die benachbarte Zelle mit einfärben. Ob dies auch bei "Bert" oder nur bei "Phase" oder "Prozess" geschehen soll, ist unklar. Dein Code färbt nur Wortteilen mit "Phase" oder "Prozess" ein.
Die Private Sub Worksheet_SelectionChange(ByVal Target As Range) wird bei jedem Selektieren einer Zelle angestoßen. Da du keine Einschränkungen des Targets (= der angeklickten Zelle) gemacht hast, also immer. Deshalb kommst du nicht heraus. Willst du bei jeder Selektion diese Sub anstoßen? Macht es nicht auch Sinn, lediglich nach Betätigung der Entertaste oder sonstwie ausgelösten Änderung einer Zelle zwischen A7 und A500 zu prüfen, ob eine bestimmte Änderung erfolgte. Dann braucht ggf. auch nur die betroffene Zelle und ihre Nachbarbarzelle behandelt zu werden, da ja alle anderen bereits bearbeitet sind.
Die Prozedur, die Änderungen in einem Arbeitsblatt überwacht, ist Private Sub Worksheet_Change(ByVal Target As Range). Deshalb hier mien Vorschlag:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 6 And Target.Row "" 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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
02.01.2008 16:30:04 |
Holger |
|
|
|
02.01.2008 20:58:11 |
Peter |
|
|
Aw:Aw:Aw:Formatierung der Zelle je nach Wert |
03.01.2008 09:56:25 |
Holger |
|
|