Thema Datum  Von Nutzer Rating
Antwort
07.09.2011 12:57:58 fruds
NotSolved
07.09.2011 13:00:09 fruds
NotSolved
07.09.2011 13:41:22 Tobias
NotSolved
07.09.2011 14:12:51 fruds
NotSolved
Rot Wenn bestimmter Wert in einer Zelle dann bestimmte Hintergrundfarbe sonst nichts
07.09.2011 14:24:46 Tobias
NotSolved
07.09.2011 14:35:39 Gast15329
NotSolved
07.09.2011 15:15:54 fruds
NotSolved
07.09.2011 15:37:15 fruds
NotSolved
08.09.2011 09:10:37 dekor
NotSolved
08.09.2011 10:24:58 Gast58330
NotSolved
08.09.2011 10:44:12 Gast62788
*****
NotSolved
08.09.2011 12:07:01 Dekor
NotSolved
08.09.2011 12:08:10 Dekor
NotSolved
08.09.2011 12:15:42 Dekor
NotSolved
08.09.2011 12:21:14 fruds
Solved

Ansicht des Beitrags:
Von:
Tobias
Datum:
07.09.2011 14:24:46
Views:
1329
Rating: Antwort:
  Ja
Thema:
Wenn bestimmter Wert in einer Zelle dann bestimmte Hintergrundfarbe sonst nichts

Also am besten erkläre ich dir schnell zeile um zeile dann kannst du es selber für deine bedürfnisse anpassen...

1
2
Dim wrkbook As String
wrkbook = Workbooks.Active
hier definieren wir den namen der variable für dein workbook (name der .xls datei)
 
dim max_x as integer
max_x = Workbooks(wrkbook).Worksheets("blatt 1").UsedRange.Rows.Count
max_x = max_x
 
hier lesen wir die anzahl zeilen aus und erstellen eine variabel für das ergebnis
(fals dein arbeitsblatt anders heisst als blatt 1 dann must du entweder den namen zu blatt 1 ändern oder im code blatt 1 mit dem namen deines blatts ersetzen)
 
Dim x As Integer
x = 1
Dim y As String
y = A
 
hier erstellen wir 2 variabeln für die zeilen und spalten einfach die y variable verändern wenn du nicht spalte a vergleichen möchtest
 
Do
If (Workbooks(wrkbook).Worksheets("blatt 1").Range("" & y & x) < 1) Then
Workbooks(wrkbook).Worksheets("blatt 1").Range("" & y & x).Select
Selection.Interior.ColorIndex = 3
x = x + 1
Else
x = x + 1
End If
Loop Until x = maxx
 
der teil vom code ist eingentlich der wichtige das programm durchläuft hier zelle um zelle bis es am ende ankommt und überprüft ob der inhalt < 1 ist fals nicht wird die zelle rot markiert...
der teil mit <1 kann mit jedem beliebigen kriterium also z.B kleiner als, grösser als, gleich, ungleich ersetzt oder auch ergänzt werden mit und & oder kriterien
auch hier gilt:
(fals dein arbeitsblatt anders heisst als blatt 1 dann must du entweder den namen zu blatt 1 ändern oder im code blatt 1 mit dem namen deines blatts ersetzen)
 

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
07.09.2011 12:57:58 fruds
NotSolved
07.09.2011 13:00:09 fruds
NotSolved
07.09.2011 13:41:22 Tobias
NotSolved
07.09.2011 14:12:51 fruds
NotSolved
Rot Wenn bestimmter Wert in einer Zelle dann bestimmte Hintergrundfarbe sonst nichts
07.09.2011 14:24:46 Tobias
NotSolved
07.09.2011 14:35:39 Gast15329
NotSolved
07.09.2011 15:15:54 fruds
NotSolved
07.09.2011 15:37:15 fruds
NotSolved
08.09.2011 09:10:37 dekor
NotSolved
08.09.2011 10:24:58 Gast58330
NotSolved
08.09.2011 10:44:12 Gast62788
*****
NotSolved
08.09.2011 12:07:01 Dekor
NotSolved
08.09.2011 12:08:10 Dekor
NotSolved
08.09.2011 12:15:42 Dekor
NotSolved
08.09.2011 12:21:14 fruds
Solved