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 |
|
|
bis dato siehts nun so aus - funzt aber net :( |
07.09.2011 15:37:15 |
fruds |
|
|
|
08.09.2011 09:10:37 |
dekor |
|
|
|
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:
fruds |
Datum:
07.09.2011 15:37:15 |
Views:
1099 |
Rating:
|
Antwort:
|
Thema:
bis dato siehts nun so aus - funzt aber net :( |
Option Explicit
Sub erste_reihe()
Dim wrkbook As String
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
max_x = max_x
'hier lesen wir die anzahl zeilen aus und erstellen eine variable 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
|
- 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 |
|
|
bis dato siehts nun so aus - funzt aber net :( |
07.09.2011 15:37:15 |
fruds |
|
|
|
08.09.2011 09:10:37 |
dekor |
|
|
|
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 |
|
|