|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Nullstellen, Maxima und Minima markieren |
17.06.2009 23:00:23 |
Sabine |
|
|
|
18.06.2009 14:06:35 |
Holger |
|
|
|
18.06.2009 23:52:25 |
Sabine |
|
|
|
19.06.2009 08:10:03 |
Holger |
|
|
|
23.06.2009 14:43:24 |
Sabine |
|
|
|
22.06.2009 07:58:33 |
Sabine |
|
|
Von:
Sabine |
Datum:
17.06.2009 23:00:23 |
Views:
1799 |
Rating:
|
Antwort:
|
Thema:
Nullstellen, Maxima und Minima markieren |
Nullstellen, Maxima, Minima
Hallo,
mit folgendem Makro wollte ich eigentlich Nullstellen (fett) und dazwischen Maxima (rot) und Minima (blau) in allen Arbeitsblättern einer Excel-Datei (Excel 2007) markieren. Dummerweise läuft es in der obersten Zeile der mehrspaltigen Tabelle einmal quer durch obwohl doch meines Erachtens nach die zweite If-Anweisung sagt, dass die Spalte erst gewechselt werden soll, wenn eine Leere Zelle erreicht wird also am Ende der Spalte.
Wo liegt der Fehler und wie erkläre ich, dass zwischen zwei Nullstellen das Maximum bzw. Minimum markiert werden soll.
Wie lagere ich die gefundenen Nullstellen, Maxima und Minima mit ihren Koordinaten zur Weiterverarbeitung in eine separate Tabelle aus.
Meine Kenntnisse in VBA sind auf Anfänger-Niveau, so dass ich mich über jede Hilfe freuen würde.
Vielen Dank
Sabine
Sub Vorzeichenwechsel_Max_Min_Markieren()
Dim intZeile As Integer
Dim nextZeile As Integer
Dim intSpalte As Integer
With Tabelle8
intZeile = 8
nextZeile = 9
intSpalte = 2
Do Until .Cells(intZeile, intSpalte).Value = ""
If .Cells(intZeile, intSpalte).Value >= 0 And _
.Cells(nextZeile, intSpalte).Value <= 0 Then
.Cells(intZeile, intSpalte).Font.Bold = True
End If
intZeile = intZeile + 1
nextZeile = nextZeile + 1
If .Cells(intZeile).Value = "" Then
intZeile = 8
intSpalte = intSpalte + 1
End If
Loop
End With
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
|
Nullstellen, Maxima und Minima markieren |
17.06.2009 23:00:23 |
Sabine |
|
|
|
18.06.2009 14:06:35 |
Holger |
|
|
|
18.06.2009 23:52:25 |
Sabine |
|
|
|
19.06.2009 08:10:03 |
Holger |
|
|
|
23.06.2009 14:43:24 |
Sabine |
|
|
|
22.06.2009 07:58:33 |
Sabine |
|
|