Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.09.2011 12:57:58 |
fruds |
|
|
|
07.09.2011 13:00:09 |
fruds |
|
|
|
07.09.2011 13:41:22 |
Tobias |
|
|
|
07.09.2011 14:12:51 |
fruds |
|
|
|
07.09.2011 14:24:46 |
Tobias |
|
|
|
07.09.2011 14:35:39 |
Gast15329 |
|
|
|
07.09.2011 15:15:54 |
fruds |
|
|
|
07.09.2011 15:37:15 |
fruds |
|
|
|
08.09.2011 09:10:37 |
dekor |
|
|
Wenn bestimmter Wert in einer Zelle dann bestimmte Hintergrundfarbe sonst nichts |
08.09.2011 10:24:58 |
Gast58330 |
|
|
|
08.09.2011 10:44:12 |
Gast62788 |
|
|
|
08.09.2011 12:07:01 |
Dekor |
|
|
|
08.09.2011 12:08:10 |
Dekor |
|
|
|
08.09.2011 12:15:42 |
Dekor |
|
|
|
08.09.2011 12:21:14 |
fruds |
|
|
Von:
Gast58330 |
Datum:
08.09.2011 10:24:58 |
Views:
1081 |
Rating:
|
Antwort:
|
Thema:
Wenn bestimmter Wert in einer Zelle dann bestimmte Hintergrundfarbe sonst nichts |
Hallo Detlev & Guten Morgen alle anderen :)
das mit der abfrage funktioniert... aber er soll ja zusätzlich im richtigen worksheet die richtige Spalte finden wo er dann die abfrage machen soll... und das gestaltet sich als schwierig :)
Option Explicit
Sub erste_reihe()
Dim wrkbook As Workbook 'hatte auch probiert es hier als string laufen zu lassen
Set wrkbook = ActiveWorkbook
'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("eeg").UsedRange.Rows.Count 'hier kommt immer laufzeitfehler wegen falscher typen...
max_x = max_x
'hier lesen wir die anzahl zeilen aus und erstellen eine variabel für das ergebnis
Dim x As Integer
x = 1
Dim y As String
y = "AFREQ_controls"
'hier erstellen wir 2 variabeln für die zeilen und spalten, y variable = gewünschte spalte
Do
If (Workbooks(wrkbook).Worksheets("eeg").Range("" & y & x) < 0.01) Or (Workbooks(wrkbook).Worksheets("eeg").Range("" & y & x) > 0.99) Then
Workbooks(wrkbook).Worksheets("eeg").Range("" & y & x).Select
Selection.Interior.ColorIndex = 3
x = x + 1
Else
x = x + 1
End If
Loop Until x = max_x
'programm durchläuft hier zelle um zelle bis es am ende ankommt und überprüft ob der inhalt < 0,01 oder über 0,99 ist ist fals nicht wird die zelle rot markiert...
End Sub
danke für die mühen schon mal :)
fruds
|
- 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
|
|
07.09.2011 12:57:58 |
fruds |
|
|
|
07.09.2011 13:00:09 |
fruds |
|
|
|
07.09.2011 13:41:22 |
Tobias |
|
|
|
07.09.2011 14:12:51 |
fruds |
|
|
|
07.09.2011 14:24:46 |
Tobias |
|
|
|
07.09.2011 14:35:39 |
Gast15329 |
|
|
|
07.09.2011 15:15:54 |
fruds |
|
|
|
07.09.2011 15:37:15 |
fruds |
|
|
|
08.09.2011 09:10:37 |
dekor |
|
|
Wenn bestimmter Wert in einer Zelle dann bestimmte Hintergrundfarbe sonst nichts |
08.09.2011 10:24:58 |
Gast58330 |
|
|
|
08.09.2011 10:44:12 |
Gast62788 |
|
|
|
08.09.2011 12:07:01 |
Dekor |
|
|
|
08.09.2011 12:08:10 |
Dekor |
|
|
|
08.09.2011 12:15:42 |
Dekor |
|
|
|
08.09.2011 12:21:14 |
fruds |
|
|