Extremwert-Sortierer

Sub Sort() Dim i As Integer Dim bMax(0 To 1) As Integer Dim Messwert(1 To 10000), Extremwert(1 To 10000), Index(1 To 10000) As Double Dim sh As Worksheet Set sh = ActiveWorkbook.ActiveSheet Range("a1").Select letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row i = 0 For i = 1 To letzteZeile Messwert(i) = sh.Range("b2").Offset(i).Value Index(i) = sh.Range("a2").Offset(i).Value Next i bMax(0) = 0 bMax(1) = 1 For i = 1 To letzteZeile - 1 If Messwert(i)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim Messwert(), Extremwert(), Index() Dim letztezeile As Long Dim sh As Worksheet Set sh = ActiveWorkbook.ActiveSheet letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ReDim Messwert(1 To letztezeile) ReDim Extremwert(1 To letztezeile) ReDim Index(1 To letztezeile)

…Lupo,
denn offensichtlich ist ein Satz von Daten gemeint und kein Datensatz, der seit es DBen gibt in der Bedeutung spezifiert festgelegt wurde. Die WortBildungsregeln des Deutschen führen hier zu einer Vermengung der allgemeinen mit der speziellen Bedeutung von ~satz, was auch daran liegt, dass das Wort Satz im Deutschen eine DoppelBedeutung hat (grammatisch und mengenbezogen), wobei sich die EDV-/DB-Bedeutung eher auf Ersteres, die allgemeinere auf Letzteres bezieht. Im Ggsatz zum Englischen muss das Deutsche öfter mit spezifizierenden Zusätzen arbeiten, wobei es auch zu fachgebietsbezogenen Überschneidungen kommen kann, die auch im Englischen auftreten können, nur nicht immer im gleichen Zusammenhang (vgl record - sentence - set, alle mehrdeutig).
Datenreihe wäre hier ebenfalls keine echte Alternative, denn diese ist ebenfalls fachspezifisch (statistisch) vorbelegt. Der vermehrte Gebrauch fachspezifisch konnotierter Begriffe in anderen als den fachspezifisch üblichen Zusammenhängen deutet auf ein Nicht-Vorhandensein bzw Verlorengehen spezieller Bedeutungen in weiten Kreisen hin und mag symptomatisch für eine eher allgemeine bis rudimentäre, aber dafür weitverbreitete EDV-Kenntnis sein. Wir wdn also mit dieser Art von „Begriffsverwirrnis“ leben und notfalls nachfragen müssen. ;-)
Morhn, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon

Hi
Dimensionierte die Arrays zuerst nicht oder wenn, dann als Variant.
Verwende dann ReDim Variable(x to y) um die Arrays an die benötigte Größe anzupassen
Bei ReDim dürfen x und y Variablen oder Berechnungen sein.
Liest man Werte aus einen Tabellenblatt, geht das auch direkt:

Dim Messwert
Messwert = SH.Range("B2:B" & letzteZeile).value

Das Array wird dabei auf die passende größe dimensioniert.
Der erste Index ist 1.
Den Wert des letzten Index kannst du mit UBound ermitteln.
Allerdings ist so ein Array dann immer zweidimensional, dh du musst im Code auch immer den 2. index angeben: Messwert(i, 1)
Dafür könntest du Messwert und Index in eine Variable packen

Daten = SH.Range("A2:B" & letzteZeile)

und über den 2. index steuern, ob du Messwert oder Index haben willst (Daten(i, 1), Daten(i, 2)).
Macht aber nur Sinn, wenn die Spalten nebeneinander liegen, such ist der Code nicht mehr so gut lesbar, weil du nur noch Nummern statt sprechender Bezeichnungen hast.
Auch kann man solche Arrays dann direkt in die Tabelle schreiben, man muss nur darauf achten, den Zellbereich entsprechend der Größe anzugeben:

Cells(a, b).Resize(Ubound(X, 1), Ubound(X, 2)).value = X

Das ist schneller als eine Schleife, die jede Zelle einzeln füllt.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread