Hallo. ich habe folgendes Problem.
Ich habe bereits einen Code geschrieben, in dem von einer anderen Tabelle werte in eine Variable (arr) eingelesen werden und diese dann in einer Zelle in der Zieltabelle ausgegeben werden.
Jetzt mögchte ich aber aus diesen Werten, die in einer Zelle jeweils untereinander stehen, den Minimum auslesen.
Jetzt wollte ich fragen, ob mir jemand helfen kann und diesen Code so umschreiben könnte, dass die Werte, die ich beim Schleifendurchlauf in die Variable arr einlese in Zukunft in einem Array() gespeichert werden.
von Dort aus kann ich dann einen Minimum auslesen.
Hier mein Code:
Ich habe bereits einen Code geschrieben, in dem von einer anderen Tabelle werte in eine Variable (arr) eingelesen werden und diese dann in einer Zelle in der Zieltabelle ausgegeben werden.
Jetzt mögchte ich aber aus diesen Werten, die in einer Zelle jeweils untereinander stehen, den Minimum auslesen.
Jetzt wollte ich fragen, ob mir jemand helfen kann und diesen Code so umschreiben könnte, dass die Werte, die ich beim Schleifendurchlauf in die Variable arr einlese in Zukunft in einem Array() gespeichert werden.
von Dort aus kann ich dann einen Minimum auslesen.
Hier mein Code:
Visual Basic-Quellcode
- Public Sub GreiferVS()
- Dim DEingabe As Worksheet
- Dim Bi As Worksheet
- Set DEingabe = Worksheets("1. Dateneingabe") 'Ziel
- Set Bi = Worksheets("BIobjekte") 'Quelle
- Dim zeileQuelle As Integer
- Dim zeileZiel As Integer
- Dim spalteQuelle As Integer
- Dim spalteZiel As Integer
- Dim arr As String
- Dim text As String
- Dim a
- zeileQuelle = 7
- zeileZiel = 1
- spalteQuelle = 1
- spalteZiel = 1
- text = "quadratisch"
- 'Bi durchlaufen druchlaufen
- For zeileQuelle = 6 To Bi.Cells(Rows.Count, 1).End(xlUp).Row
- If Bi.Cells(zeileQuelle, 1).Value = CStr(DEingabe.Cells(2, 5)) Then
- arr = Bi.Cells(zeileQuelle, 3)
- While Bi.Cells(zeileQuelle, spalteQuelle).Value = Bi.Cells(zeileQuelle + 1, spalteQuelle).Value
- arr = arr & vbCrLf & Bi.Cells(zeileQuelle + 1, 3).Value
- zeileQuelle = zeileQuelle + 1
- Wend
- a = arr
- 'Bi.Cells(zeileQuelle, 8).Value = WorksheetFunciton.Min(a)
- MsgBox WorksheetFunction.Min(a)
- End If
- Next zeileQuelle
- End Sub