Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
644to648
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
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktion Max

Funktion Max
29.07.2005 12:35:26
Ramon
Hallo Zusammen,
Ich wuerde gerne in eine Zelle (4686,3) das Maximum aus 360 Zellen hineinschreiben lassen, welche sich alle 13 Zeilen ebenfalls in Spalte 3 befinden, also das Max aus den Zellen (13,3), (26,3), usw.... Hab versucht durch aufzeichnen und Einfügen einer for...next-schleife dies zu lösen (s.u.), aber läuft natürlich nicht.Bitte um Hilfe, vielen Dank, Ramon

Sub Umhüllende()
Range("C4686").Select
For i = 1 To 360
ActiveCell.FormulaR1C1 = "=MAX(R[4693-13*i]C)"
Next i
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion Max
29.07.2005 12:38:00
Dr.
Hi,
kannst Du die Werte irgendwie indizieren? Dann könntest Du danach filtern und per TEILERGEBNIS das Maximum errechnen.
Maximum aus jeder 13. Zeile (VBA)
29.07.2005 13:02:21
Matthias5
Hallo Ramon,
hier zwei Beispiele dazu:


      
Sub umhuellende()
[c4686].FormulaArray = "=MAX(IF(MOD(Row(1:4680),13)=0,C1:C4680))"
End Sub
Sub umhuellende2()
Dim maxl As Double
For i = 13 To 4680 Step 13
     
If Range("C" & i) > maxl Then maxl = Range("C" & i)
Next
[c4687] = maxl
End Sub 


Gruß,
Matthias
Anzeige
AW: Maximum aus jeder 13. Zeile (VBA)
29.07.2005 13:10:31
Ramon
Vielen Dank...klappt ausgezeichnet

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige