Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.10.2019 08:14:53 |
HARALD |
|
|
|
05.10.2019 08:51:52 |
Mase |
|
|
Excel vba schleife für interior. Color |
05.10.2019 13:18:55 |
Werner |
|
|
|
05.10.2019 13:45:49 |
Gast2776 |
|
|
|
07.10.2019 15:59:48 |
Harald |
|
|
|
07.10.2019 16:09:48 |
Mase |
|
|
|
07.10.2019 16:53:35 |
Gast25708 |
|
|
|
07.10.2019 18:25:00 |
Mase |
|
|
|
07.10.2019 20:30:32 |
HARALD |
|
|
|
07.10.2019 23:18:52 |
Gast1506 |
|
|
Von:
Werner |
Datum:
05.10.2019 13:18:55 |
Views:
603 |
Rating:
|
Antwort:
|
Thema:
Excel vba schleife für interior. Color |
Hallo Harald,
so:
Sub Schaltfläche1_Klicken()
Dim i As Long, loSpalte As Long, Farbwerte As Long
'Zeile mit den Farbwerten
Farbwerte = 2
'Blattname anpassen
With Worksheets("Tabelle1")
'letzte befüllte Zelle in Zeile 2 ermitteln
loSpalte = .Cells(Farbwerte, .Columns.Count).End(xlToLeft).Column
'Schleife von Spalte A = 1 bis letzte belegte Spalte
For i = 1 To loSpalte
'Prüfung ob Zelle nicht leer und ob der Zellwert numerisch ist
If .Cells(Farbwerte, i) <> "" And IsNumeric(.Cells(Farbwerte, i)) Then
'wenn ja, Zellwert als Farbwrt für Zelle oberhalb übernehmen
.Cells(Farbwerte, i).Offset(-1).Interior.Color = .Cells(Farbwerte, i)
End If
Next i
End With
End Sub
Gruß Werner
|
- 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
|
|
05.10.2019 08:14:53 |
HARALD |
|
|
|
05.10.2019 08:51:52 |
Mase |
|
|
Excel vba schleife für interior. Color |
05.10.2019 13:18:55 |
Werner |
|
|
|
05.10.2019 13:45:49 |
Gast2776 |
|
|
|
07.10.2019 15:59:48 |
Harald |
|
|
|
07.10.2019 16:09:48 |
Mase |
|
|
|
07.10.2019 16:53:35 |
Gast25708 |
|
|
|
07.10.2019 18:25:00 |
Mase |
|
|
|
07.10.2019 20:30:32 |
HARALD |
|
|
|
07.10.2019 23:18:52 |
Gast1506 |
|
|