Geht das mit "UBound"?

Forumthread: Geht das mit "UBound"?

27.11.2002 11:30:35

Stefan

Hi Forum,

habe folgendes Problem: Ich lese in eine Array-Variable Werte
20 Werte vom Typ Integer ein (Dim Werte as integer(20)). Danach möchte ich wissen, welcher von allen Werte der Höchste ist. Kann ich dieses Problem mit der UBound-Funktion lösen? Nach meinem Wissensstand funktioniert UBound doch nur, wenn ich die höchste Anzahl von Dimensionen einer Array-Variable auslesen möchte.

Kann mir hier einer weiterhelfen?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Geht das mit "UBound"?

27.11.2002 11:41:56

Yal
Re: Geht das mit "UBound"?

27.11.2002 11:42:58

Michael Scheffler
Re: Geht das mit "UBound"?

27.11.2002 11:46:05

Thomas Risi
Re: Geht das mit "UBound"?

27.11.2002 11:49:07

Michael Scheffler
Re: Geht das mit "UBound"?

27.11.2002 11:57:44

Yal
Frage an Thomas

27.11.2002 12:34:35

Stefan
Re: Frage an Thomas

27.11.2002 12:53:19

Thomas Risi
Re: Geht das mit "UBound"?

27.11.2002 13:08:55

Michael Scheffler

Re: Geht das mit "UBound"?

27.11.2002 11:41:56

Yal

in der Tat, UBound wird Dir immer 20 zurückgeben.

Statt Array, Du könntest mit einer Collection probieren. Du kannst sogar ein Schlüssel vergeben (muss aber eindeutig sein)

Re: Geht das mit "UBound"?

27.11.2002 11:42:58

Michael Scheffler

Hallo,

UBound sollte Dir 20 zurückliefern!

Wenn Du den Wert haben möchtest, der das Maximum darstellt, dann musst Du mit einer Schleife über alle Werte gehen.

Gruß

Micha

Re: Geht das mit "UBound"?

27.11.2002 11:46:05

Thomas Risi

Versuch's mal etwa so ...

Private Function Max(Data() As Double) As Double

    Dim i As Long

    Max = Data(LBound(Data))

    For i = LBound(Data) + 1 To UBound(Data)
        If Data(i) > Max Then Max = Data(i)
    Next i

End Function

Code eingefügt mit Syntaxhighlighter 1.15

Gruß

Thomas

Risi Thomas Softwareentwicklung

Hallo Stefan

Option Explicit
' Ein Aufruf der Funktion könnte etwa so aussehen ...
'
Sub MaxErmitteln()

    Dim DeinArray(5) As Integer

    DeinArray(0) = 2
    DeinArray(1) = 1
    DeinArray(2) = 8
    DeinArray(3) = 2
    DeinArray(4) = 7
    DeinArray(5) = 6

    MsgBox Max(DeinArray)

End Sub
' Diese Funktion unverändert in Dein Modul ...
'
Private Function Max(Data() As Integer) As Integer

    Dim i As Long

    Max = Data(LBound(Data))

    For i = LBound(Data) + 1 To UBound(Data)
        If Data(i) > Max Then Max = Data(i)
    Next i

End Function

Code eingefügt mit Syntaxhighlighter 1.15

Gruß

Thomas

Risi Thomas Softwareentwicklung

Beliebteste Forumthreads (12 Monate)

Forumthread: Geht das mit "UBound"?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread