Office: Mehrere Werte aus Array auslesen

Medina · 26. September 2016

Hallo zusammen,
ich müsste mehrere Werte aus einem Array auslesen. Das Array ist gefüllt mit den Werten 1 - 30.
Bspw: Wert a = 28; Wert b = 2
Wenn Wert a in Array gefunden, dann suche nach Wert b und lese alle dazwischenliegenden Werte zusätzlich aus.
Also in dem Fall 28, 29, 30, 1, 2.

Meine Idee war, das Array mit einer Do While Schleife durchlaufen zu lassen und mit einem Zähler diese Werte dann in ein zweites Array zu schreiben. Nur scheitert es bei meiner Umsetzung.

Bitte um Hilfe. *Smilie

Grüße Medina

:)

Storax · 28. September 2016

Ein Array durchläuft man üblicherweise mit einer For Schleife
Und warum ist in Deinem Beispiel das Ergebnis 28,29,30, 1,2?
Ist das Array sortiert? Stehen dort immer aufsteigend die Zahlen drin? Soll man am Anfang weiterlesen?

Und wozu, sorry, soll das gut sein?
Ist das schon wieder eine Hausaufgabe?

Medina · 28. September 2016

Nein, das ist keine Hausaufgabe.

Ausgangsstandpunkt ist, dass der User eine Kalenderwoche zwischen 1 und 52in eine Inputbox eingibt.
Nun soll überprüft werden, ob diese KW zwischen zwei Datumsangaben liegt. Die Datumseingaben lasse ich bereits in KWs umrechnen und die Inputbox funktioniert auch, aber beim Rest scheiterts.

Bsp: Der User gibt 5 ein. Die Datumswerte sind in Spalte A und B.
Zelle A1 enthält "17.08.2015" = KW 34 und Zelle B2 "18.01.2016" = KW 3

Nun soll eben überprüft werden, ob die KW5 in dem Intervall von KW34/2015 - KW3/2016 liegt. Tut sie es nicht, wie in diesem Fall, sollen die zwei Zellen farbig markiert werden.

Meine Idee wär jetzt gewesen ein Array mit den Werten 1-52 zu füllen und diese nach den 2 Werten zu durchsuchen und mir wie in diesem Beispiel die Zahlen 34,35,36...2,3 auszugeben und auf die Zahl 5 zu prüfen.

Hab leider keine andere Idee und wär um Hilfe sehr dankbar.

mathieu_91 · 28. September 2016

Hi,

sowas in der Art?

Code:

Sub SchleifeDurchAB()
Dim ArrKW(1 To 52) As Variant
Dim PosA As Integer
Dim PosB As Integer

For i = 1 To 52
ArrKW(i) = i 'KW Array füllen
Next i

PosA = FindPos(ArrKW, Cells(1, 1).Value) 'Wert A
PosB = FindPos(ArrKW, Cells(2, 1).Value) 'Wert B

End Sub

Function FindPos(ArrKW, Pos) As Integer

For i = 1 To UBound(ArrKW)
If ArrKW(i) = Pos Then 'Wenn Eingabe von Nutzer in Array gefunden, dann Wert wo zurückgeben.
FindPos = i
Exit Function
End If
Next i

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße

Mathieu

Storax · 28. September 2016

Es gibt die Funktion Kalenderwoche in Excel
https://support.office.com/de-de/art...1-b18c13c75340

Medina · 28. September 2016

Hallo Mathieu,

vielen Dank für deinen Lösungsvorschlag. Ich denke aber, dass da noch was fehlt *Smilie.

Bsp: In Zelle A1 steht "KW50/15". In Zelle B2 steht "KW5/16". Nutzer gibt die KW8 an und ich würde gerne überprüfen, ob diese zwischen der "KW50/15" und "KW5/16" enthalten ist, was sie in dem Fall nicht ist. Also müsste man die KW50/15, KW51/15, KW52/15, KW1/16, KW2/16, KW3/16, KW/4/16 und KW15/16 irgendwie durchlaufen lassen.

Deine Prozedur, Mathieu, sucht soweit ich es verstanden hab die beiden KWs, in dem Fall KW50 und KW5 in dem Array und gibt ihre Position zurück. Hilft mir aber in dem Sinn noch nicht ganz weiter, oder hab ich einfach nur die Prozedur nicht verstanden? Wo wird überprüft, ob die Eingabe des Nutzer in dem Intervall liegt?

Grüße Medina

Storax · 28. September 2016

Als Ansatz Code:

Function IsInCWRange(startDate As Date, endDate As Date, cw As Integer) As Boolean
' startDate always before endDate and difference less than one year
' cw > 0 and cw < 52

If cw 53 Then
IsInCWRange = False
Exit Function
End If

If startDate > endDate Then
IsInCWRange = False
Debug.Print "Falsche Daten"
Exit Function
End If

Dim startCW As Integer, endCW As Integer
Dim startYear As Long, endYear As Long

startCW = WorksheetFunction.WeekNum(startDate)
startYear = Year(startDate)
endCW = WorksheetFunction.WeekNum(endDate)
endYear = Year(endDate)

If startYear = endYear Then

If cw >= startCW And cw = startCW Or cw
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Medina · 28. September 2016

Krass, Storax. Danke! Funktioniert einwandfrei.
Würd dir dafür gern ein Bier ausgeben *wink.gif* .

Office: Mehrere Werte aus Array auslesen

Mehrere Werte aus Array auslesen

Mehrere Werte aus Array auslesen

Mehrere Werte aus Array auslesen

Mehrere Werte aus Array auslesen

Mehrere Werte aus Array auslesen - Similar Threads - Werte Array auslesen

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Werte aus Array mit Eingangswert auslesen

Werte einer externen Datei in array schreiben und nutzen

Array so befüllen, dass die gefundene Werte nur einmal vorkommen

Wert aus Array summieren/kumulieren (mehrdimensional)

In Array suchen und Werte ausgeben

Einzelne Werte aus Array ausgeben