Minima und Maxima finden,Werte kleiner 20 löschen!

Hallo,
ich habe zwei Probleme in meinem VBA noch zu bewältigen und komme da einfach nicht weiter :-((
(1) ich suche nach einer Möglichkeit einen Maximalwert in einer Spalte [B] von einer bestimmten Zelle [Adresse in Variablen hinterlegt] aus zu finden. Dieser Maximalwert, soll dann mit seiner Adresse in einer Variablen [Range] hinterlegt werden. Danach soll das größte Minima über 20 gefunden werden und ebenfalls in einer Variablen hinterlegt werden. Der Bereich zwischen den gefundenen Anfangswert und Maxima soll mit den nebenstehenden Werten in Spalte [C] eine Kennlinie in einem Diagramm bilden, sowie der Bereich zwischen Maxima und Minima mit den nebenstehenden Werten in Spalte [C].
Mein zweites großes Problem:
(2) In drei Spalten [B;C;D] sollen die Zellen nach Werten kleiner 20 abgesucht werden. Werden Werte kleiner 20 gefunden soll die ganze Zeile gelöscht werden. Dies soll sich solange wiederholen, bis zwei aufeinander folgende leere Zellen gefunden werden.
Ich brauche wirklich dringend und schnell Hilfe! Bin hier schon am Verzweifeln!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus,
Die Minima und Maxima lassen sich sehr einfach bestimmen, wenn die Werte aufsteigend
immer größer werden und absteigend immer kleiner, aber du hast auch Schwankungen in der Tabelle
, deswegen würde ich vorschlagen diese erstmal nebendran zu schreiben und evtl. dann die entsprechenden Minima und Maxima raussuchen und dann anschließend den Bereich zu vergeben.
Der Code lautet dann:


Sub MINMAX()
Dim r As Integer, z As Integer
r = Range("B65536").End(xlUp).Offset(0, 0).Row
For z = 20 To r Step 1
If Cells(z, 2).Value  Cells(z - 1, 2).Value Then
If Cells(z, 2).Value > Cells(z + 1, 2).Value Then
Cells(z, 6).Value = "Maximum"
End If
End If
Next z
End Sub

Wenn du diesen Code mal ausprobierst, wirst du feststellen, was ich meine. Deine Zahlenreihe hat eben Schwankungen, deswegen musst du dir dann deine gewünschten Minima und Maxima nochmal per Hand raussuchen.
Gruß
Chaos

Sub MINMAX() Dim r As Integer, z As Integer r = Range("B65536").End(xlUp).Offset(0, 0).Row For z = 20 To r Step 1 If Cells(z, 2).Value Cells(z - 1, 2).Value Then If Cells(z, 2).Value > Cells(z + 1, 2).Value And Cells(z, 2).Value > 1200 Then Cells(z, 6).Value = "Maximum" End If End If Next z End Sub

Sub test() Dim Anfang_Temp As String Dim Maximum As Long Dim rngMaximum As Range Anfang_Temp = "A19" Maximum = Application.WorksheetFunction.Max _ (Range(Range(Anfang_Temp).Offset(1, 0), Range(Anfang_Temp).End(xlDown))) Set rngMaximum = Range(Range(Anfang_Temp).Offset(1, 0), Range(Anfang_Temp).End(xlDown)). _ Find(Maximum, lookat:=xlWhole, LookIn:=xlValues) MsgBox rngMaximum.Address End Sub

Beliebteste Forumthreads (12 Monate)

Minima und Maxima finden,Werte kleiner 20 löschen!

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Minima und Maxima finden,Werte kleiner 20 löschen!

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread