Thema Datum  Von Nutzer Rating
Antwort
30.03.2012 11:19:18 Johannes
NotSolved
Blau stationären Zustand filtern
 03.04.2012 13:02:02 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
03.04.2012 13:02:02		 Views:
1503		 Rating:
     
Antwort:
  Ja
Thema:
stationären Zustand filtern

Hallo Johannes,

versuch

p = Val(InputBox(p, Schwellwert))
ReDim Bereich(1, 0)
a = Cells(1, 2)
b = 1
c = -1
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(i, 2) - a >= p Then
        If i - b > 1 Then
            c = c + 1
            ReDim Preserve Bereich(1, c)
            Bereich(0, c) = b
            Bereich(1, c) = i - 1
        End If
        a = Cells(i, 2)
        b = i
    End If
Next i
w = ""
For i = 0 To UBound(Bereich, 2)
    w = w + CStr(Bereich(0, i)) + vbTab + CStr(Bereich(1, i)) + vbCrLf
Next i
MsgBox w

Anstelle der abschließenden Anzeige mit einer MsgBox könntest du z.B. auch eine Datei mit den Daten anlegen oder die Zeilen einfärben.

Gruß

Holger

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
30.03.2012 11:19:18 Johannes
NotSolved
Blau stationären Zustand filtern
 03.04.2012 13:02:02 Holger
NotSolved