|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.01.2008 14:43:43 |
Peter |
|
|
 Aw:Formatierung der Zelle je nach Wert |
02.01.2008 16:30:04 |
Holger |
|
|
|
02.01.2008 20:58:11 |
Peter |
|
|
|
03.01.2008 09:56:25 |
Holger |
|
|
Von:
Holger |
Datum:
02.01.2008 16:30:04 |
Views:
983 |
Rating:
|
Antwort:
|
Thema:
Aw:Formatierung der Zelle je nach Wert |
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
|
- 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 |
|
|
Aw:Formatierung der Zelle je nach Wert |
02.01.2008 16:30:04 |
Holger |
|
|
|
02.01.2008 20:58:11 |
Peter |
|
|
|
03.01.2008 09:56:25 |
Holger |
|
|