Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige