zweidimensionales Array

Hallo zusammen,
ähnlich C++ möchte ich gerne mehrere zweidimensionale Arrays füllen und im späteren Zustand drauf zugreifen.
Es werden mehrere Bereiche von Zustand 0 eingelesen und im Array0 (1-10)(1-10)
Anschließend werden alle möglichen Kombinationen durchgerechnet und mit Feldern aus Array 0 verglichen.
Je nach Ergebnis wird dann mit Array1 oder Array2 verglichen und diese ggf. überschrieben.
Am ehesten kann ich es wie einen Routenplaner beschreiben
Array0 ist die per Hand geplante Route (Zustand0)
Arrays1 ist die schnellste Route
Array2 ist die kürzeste Route
Am Ende wählt der Anwender zwischen den drei Zuständen 0,1 und 2.
ich könnte eine temporäre Arbeitsmappe erzeugen und dort die Felder hinschreiben, wird aber vermutlich deutlich langsamer und auch weniger elegant sein.
p.s.
Wieso definiert man teilweise so das Array?
ReDim ArrayZustand0(1 To 6) As String 'Array
Wenn man auch
ReDim ArrayZustand0(6) As String
schreiben könnte?
Mehrdimensional wäre dann
ReDim ArrayZustand0(10, letzteZeile) As String
?!
Welchen Dateityp würdet ihr mir empfehlen und was wären Stolpersteine?
Kann ich Uhrzeiten in dem Array miteinander vergleichen, selbst wenn das Array ein String ist? Bzw. vermutlich werde ich die bisher besten Werte sowieso in einer Variablen ablegen und das Array gilt nur als Textspeicher.
Herzlichen Dank für Rat und Tipps :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Martin
für dich könnte auch der Benutzerdefinierte Datentyp (BD) in Frage kommen.
BD's können auch als Arrays deklariert werden - aber - solche Arrays können Datenfelder mit unterschiedlichen Datentypen enthalten!
ich finde, eine sehr gute Erklärung mit Beispielen zeigt MS hier:
https://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/type-statement
Nix desto trotz möcht auch ich dir ein Bsp Zeigen - der folgende Code in ein allgemeines Modul:


Option Explicit
Type DeinDatensatz
DeinText As String
DeinDatum As Date
DeineZahl As Integer 'oder Double, oder Long..oder oder oder....du zeigst ja leider nicht ne Bsp-Datei per Upload
End Type
Dim DeineRoute(1 To 10) As DeinDatensatz 'auch wenn nur 1 to 10 angegeben ist (1dimensional); das Array DeineRoute ist trotzdem mehrdimensional, weil ja "pro Zeile im Array" 3 Werte enthalten sind/sein können
'mit Daten füllen könntest du das Array nun z Bsp so
With DeineRoute(1)
.DeinText = Range("A1").Value 'in der aktuellen Tabelle steht in Zelle A1 dein Text
.DeinDatum = Range("B1").Value 'in der aktuellen Tabelle steht in Zelle B1 dein Datum; es MUSS sich auch um ein echtes Datum handeln, weil ja .DeinDatum als DATE deklariert ist
.DeineZahl = Range("C1").Value 'in der aktuellen Tabelle steht in Zelle C1 deine Zahl (als Integer?, Double?, Long?...nur du weißt das)
End With
With DeineRoute(2)
.DeinText = Range("A2").Value
.DeinDatum = Range("B2").Value
.DeineZahl = Range("C2").Value
End With
With DeineRoute(3)
.DeinText = Range("A3").Value
.DeinDatum = Range("B3").Value
.DeineZahl = Range("C3").Value
End With
'....usw...

Natürlich könnte man dein Array auch mit For/Next füllen, da ich all das hier aber nur so direkt hier ohne Testen aufschreibe, ist mir die einfachste Form der Darstellung am liebsten.
So, vielleicht konnte ja auch ich ein wenig helfen - und - vielleicht zeigst du uns mal ne Bsp-Datei mit ausreichend vielen Bsp-Datenzeilen in den richtigen Spalten und allem anderen, was erforderlich ist, um dir vllt noch besser helfen zu können.
Ciao
Thorsten

Private Sub SpeedOn() 'Speedblock on With Application .ScreenUpdating = False .DisplayStatusBar = False .Calculation = xlCalculationManual .EnableEvents = False End With ActiveSheet.DisplayPageBreaks = False End Sub

Private Sub SpeedOff() 'Speedblock off With Application .ScreenUpdating = True .DisplayStatusBar = True .Calculation = xlCalculationAutomatic .EnableEvents = True .DisplayAlerts = True End With ActiveSheet.DisplayPageBreaks = True End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread