Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Maximumm in verschiedenen Bereichen einer Spalte

Maximumm in verschiedenen Bereichen einer Spalte
05.03.2007 08:22:00
Christian
Guten Morgen Leute,
ich habe ein Problem, dass ich mit meinen Excel-und VBA-Kenntnisen nicht lösen kann. Vielleicht hat jemand von euch eine Idee.
Ich habe in einer Spalte (R2:R1001) Werte stehen, die in verschiedenen Bereichen durch -1 gekennzeichnet sind. Also ungefähr so:
Spalte R
-1
-1
1
2
4
6
3
2
1
-1
-1
-1
2
5
10
9
8
4
-1
-1
1
u.s.w
Ich möchte nun mittels Makro oder sonstiger Formel, dass Excel mir das Maximium der Werte in den Bereichen zwischen den -1 ausliest und den Wert am Ende des jeweiligen Bereichs in die Nachbarzelle (Spalte Q) reinschreibt. Das Problem dabei ist, dass die Bereiche, in denen die Werte größer -1 stehen variabel sind, und somit je nach Datensatz variieren können.
Wäre super, wenn mir jemand helfen könnte, das Problem zu lösen!!!
Gruß
Christian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Maximumm in verschiedenen Bereichen einer Spalte
06.03.2007 11:40:00
Arthur
Hallo Christian.
Versuch es mal damit:
Sub DasMax()
Const ciMin As Integer = -999
Dim liRowIdx As Integer
Dim llMax As Long
llMax = 0
For liRowIdx = 2 To ActiveSheet.UsedRange.Rows.Count
If (Cells(liRowIdx, 18).Value = -1) Then
If ((liRowIdx > 2) And (llMax > ciMin)) Then
Cells(liRowIdx, 19) = llMax
End If
llMax = ciMin
Else
If (Cells(liRowIdx, 18).Value > llMax) Then
llMax = Cells(liRowIdx - 1, 18).Value
End If
End If
Next
End Sub

So oder ähnlich sollte es funktionieren.
Gruß
-Art
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige