Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte einer Matrix zuweisen

Forumthread: Werte einer Matrix zuweisen

Werte einer Matrix zuweisen
14.10.2006 14:23:37
Christian
Hallo,
ich möchte die Werte einer zweidimensionalen Matrix(10,10) einer Variablen zuweisen. Wie mache ich das unter VBA am elegantesten ?
Viele Grüße,
Christian
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte einer Matrix zuweisen
14.10.2006 14:29:22
Nepumuk
Hallo Christian,
ein Array in VBA oder einer Tabelle? Sollen die Werte Addiert werden oder was?
Gruß
Nepumuk
AW: Werte einer Matrix zuweisen
14.10.2006 14:32:13
Luc:-?
Hallo Christian,
wenn die Variable vom Datentyp Variant sein soll und die Matrix ein Range ist, reicht eigentlich variable=matrix. Zu beachten ist allerdings, dass die Indizierung der Felder hier stets bei 1 beginnt (auch wenn ansonsten 0 eingestellt ist).
Gruß Luc :-?
Anzeige
AW: Werte einer Matrix zuweisen
14.10.2006 14:45:55
Christian
Hallo,
ich habe mich vielleicht etwas unverständlich ausgedrückt. Ich habe eine Matrix, die z.B. so aussieht:
{{0, 1, 2, 3, 4, 5, 6, 7, 8, 9 },{ 1, 5, 7, 6, 2, 8, 3, 0, 9, 4 },
{ 5, 8, 0, 3, 7, 9, 6, 1, 4, 2 },{ 8, 9, 1, 6, 0, 4, 3, 5, 2, 7 },
{ 9, 4, 5, 3, 1, 2, 6, 8, 7, 0 },{ 4, 2, 8, 6, 5, 7, 3, 9, 0, 1 },
{ 2, 7, 9, 3, 8, 0, 6, 4, 1, 5 },{ 7, 0, 4, 6, 9, 1, 3, 2, 5, 8 } }
Diese Matrix möchte ich jetzt einem Array zuweisen, das ich wie folgt deklariert habe:
dim a(10,10) as integer
Wie weise ich die Werte der Matrix dem Array zu ?
Unter Java geht das z.B. so public static final int a[][] = {{0, 1, 2, ...}, {...}, ...}
Gruß,
Christian
Anzeige
AW: Werte einer Matrix zuweisen
14.10.2006 14:56:49
Nepumuk
Hallo Christian,
mit eine fest dimensionierten Array geht das nur einzeln. Wenn du eine Variantvariable benutzt, dann könntest du es so machen:
Public Sub test()
    Dim a As Variant
    a = Array(Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9), Array(1, 5, 7, 6, 2, 8, 3, 0, 9, 4) _
        , Array(5, 8, 0, 3, 7, 9, 6, 1, 4, 2), Array(8, 9, 1, 6, 0, 4, 3, 5, 2, 7) _
        , Array(9, 4, 5, 3, 1, 2, 6, 8, 7, 0), Array(4, 2, 8, 6, 5, 7, 3, 9, 0, 1) _
        , Array(2, 7, 9, 3, 8, 0, 6, 4, 1, 5), Array(7, 0, 4, 6, 9, 1, 3, 2, 5, 8))
End Sub

Du bekommst aber eine etwas gewöhnungbedürftige Adressierung des Arrays (der erste Eintrag beispielsweise: a(0)(0) ). Schau sie dir mal im Lokalfenster an.
Gruß
Nepumuk
Anzeige
AW: Werte einer Matrix zuweisen
14.10.2006 15:19:17
Christian
Hallo,
das ist genau das was ich gesucht habe!
Vielen Dank,
Christian
;

Forumthreads zu verwandten Themen

VBA - Array-Werte einsortieren
Christian

Hallo zusammen,
ich suche eine VBA-Lösung um alle Einträge aus verschiedener Arrays in der Reihenfolge ihrer Position in ein gemeinsames Ziel-Array zu schreiben.
Bsp: Sub Array_Reihenfolge() Dim vntQuell(2), vntZiel vntQuell(0) = Array("cn", "h3", "e2", "lo", "te", "no", "cc") vntQuell...
21.02.2016 11:36:47
Thread-ID: 1476960
8 Beiträge
VBA werte zuweisen bzw. ändern.
Erich

Hallo liebes Forum,
ich baue gerade eine Schlüsselverwaltung. In Tabelle "Daten sind die ganzen Schlüssel aufgelistet. nun will ich über die Userform CBX einen Schlüssel aussuchen und einer Person zuordnen. Das geht schon. Aber wie bekomme ich es hin, dass der Schlüssel dann nicht mehr in d...
24.02.2016 09:11:47
Thread-ID: 1477740
2 Beiträge
VBA werte zuweisen bzw. ändern.
Erich

Hallo liebes Forum,
ich baue gerade eine Schlüsselverwaltung. In Tabelle "Daten sind die ganzen Schlüssel aufgelistet. nun will ich über die Userform CBX einen Schlüssel aussuchen und einer Person zuordnen. Das geht schon. Aber wie bekomme ich es hin, dass der Schlüssel dann nicht mehr in d...
24.02.2016 09:11:51
Thread-ID: 1477741
7 Beiträge
Auswerten einer Liste ohne Array/VBA
lattes

Hallo,
habe eine Tabelle mit max 500 Einträgen. Diese möchte ich ohne Array/VBA also über Formeln auswerten. Hier ist die Tabelle:
https://www.herber.de/bbs/user/128506.xlsx
In Spalte A ist das ausschlaggebende Kriterium. Wenn das leer ist, dann soll in einer neuen Spalte F eine Lis...
19.03.2019 16:59:50
Thread-ID: 1682184
9 Beiträge
VBA code tunen (Charts werte zuweisen)
th0mas

Hi!
Ich möchte folgende VBA-Codezeilen tunen, sodass ich ohne activate auskomme und das ganze in einen Befehl packen kann. Derzeit sieht das so aus:
.ChartObjects("Chart 9").Activate
ActiveChart.SeriesCollection(1).Values = "=Graphics!R31C2:R31C5"
Das ganze ist in einem with bloc...
08.09.2004 10:16:49
Thread-ID: 481968
2 Beiträge
VBA: Array-Werte
Christian

Hallo zusammen,
ich habe eine Frage zu Array-Werten und hoffe, ihr könnt mir helfen.
Ich möchte die Werte 6, 10, 15, 20, 25, 30, 35, 40, 45, 50, 61, 63, 65, 67, 69, 71, 73, 113, 116, 119, ... und noch einige mehr in ein Array schreiben.
Diese haben gruppenweise immer die selbe Schri...
27.12.2004 16:03:02
Thread-ID: 538499
3 Beiträge
mit vba einer grafik werte zuweisen
Jacobs
Hallo,
ich habe folgende datei:
https://www.herber.de/bbs/user/33139.xls
ich möchte der grafik nun mit dem pulldown menü werte aus dem zweiten datenblatt zuweisen (denke sollte mit vba gehen weiß aber nicht wie).
So will ich, wenn januar ausgewählt wird die werte vom januar in der gr...
26.04.2006 19:00:16
Thread-ID: 758825
9 Beiträge
Kreisdiagramm mit VBA Werte zuweisen
Stella
Hallo liebe Mitglieder,
ich habe nur gefährliches Halbwissen in VBA und habe zuvor noch nie damit in Kombination mit Diagrammen oder optischen Darstellungen gearbeitet.
Es geht darum, dass ich eine Darstellung ähnlich einer Dartscheibe habe, allerdings nur mit 3 Kreissegmenten. Die Kreisseg...
29.06.2022 09:38:29
Thread-ID: 1888988
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Werte einer Matrix zuweisen in VBA

Schritt-für-Schritt-Anleitung

Um die Werte einer zweidimensionalen Matrix in VBA einem Array zuzuweisen, kannst du die folgenden Schritte befolgen:

  1. Matrix definieren: Erstelle eine Matrix in deinem VBA-Projekt. Dies kann durch die Verwendung der Array-Funktion geschehen.

    Dim matrix As Variant
matrix = Array(Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9), _
              Array(1, 5, 7, 6, 2, 8, 3, 0, 9, 4), _
              Array(5, 8, 0, 3, 7, 9, 6, 1, 4, 2), _
              Array(8, 9, 1, 6, 0, 4, 3, 5, 2, 7), _
              Array(9, 4, 5, 3, 1, 2, 6, 8, 7, 0), _
              Array(4, 2, 8, 6, 5, 7, 3, 9, 0, 1), _
              Array(2, 7, 9, 3, 8, 0, 6, 4, 1, 5), _
              Array(7, 0, 4, 6, 9, 1, 3, 2, 5, 8))

  2. Array deklarieren: Deklariere ein Array, das die gleichen Dimensionen hat wie die Matrix. In diesem Fall ein 10x10 Array:

    Dim a(0 To 7, 0 To 9) As Integer

  3. Werte zuweisen: Du kannst die Werte der Matrix einem Array zuweisen. Wenn du eine Variant-Variable verwendest, kannst du die Werte direkt zuweisen.

    Dim i As Integer, j As Integer
For i = LBound(matrix) To UBound(matrix)
   For j = LBound(matrix(i)) To UBound(matrix(i))
       a(i, j) = matrix(i)(j)
   Next j
Next i

Häufige Fehler und Lösungen

  • Fehler bei der Indizierung: In VBA beginnt die Indizierung bei 1. Wenn du also ein 10x10 Array deklariert hast, musst du darauf achten, dass du von 0 bis 9 iterierst, wenn du eine Variant-Array verwendest.

  • Typenkonflikt: Achte darauf, dass dein Array die richtige Datentypen hat. Wenn du Dim a(10, 10) As Integer verwendest, kann es zu einem Typkonflikt kommen, wenn du versuchst, Werte aus einer Variant-Array zuzuweisen.

Alternative Methoden

Eine alternative Methode, um Werte einer Matrix in VBA zuzuweisen, besteht darin, die Matrix direkt als Range zu definieren und die Zuweisung dann über die Zellen zu machen:

Dim rng As Range
Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:J8")
rng.Value = matrix

Diese Methode ist besonders nützlich, wenn du mit Excel-Daten arbeitest und die Werte direkt in ein Excel-Blatt übertragen möchtest.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du die Matrix in ein Array zuweisen kannst:

Public Sub Beispiel()
    Dim matrix As Variant
    matrix = Array(Array(0, 1, 2), Array(3, 4, 5), Array(6, 7, 8))

    Dim a(0 To 2, 0 To 2) As Integer
    Dim i As Integer, j As Integer

    For i = LBound(matrix) To UBound(matrix)
        For j = LBound(matrix(i)) To UBound(matrix(i))
            a(i, j) = matrix(i)(j)
        Next j
    Next i
End Sub

Tipps für Profis

  • Nutze Variant-Arrays, wenn du mit unterschiedlichen Datentypen arbeiten möchtest. Dies gibt dir mehr Flexibilität beim Arbeiten mit Daten.
  • Achte darauf, deine Arrays und Variablen immer gut zu benennen, damit du den Überblick behältst, insbesondere bei komplexen Projekten.
  • Wenn du häufig mit Matrizen arbeitest, überlege, eigene Funktionen zu erstellen, um wiederkehrende Aufgaben zu automatisieren.

FAQ: Häufige Fragen

1. Wie kann ich eine inverse Matrix in VBA berechnen?
Die Berechnung einer inversen Matrix in VBA erfordert komplexere Algorithmen und ist nicht direkt in VBA eingebaut. Du kannst jedoch auf externe Bibliotheken oder Implementierungen zurückgreifen.

2. Kann ich Arrays in VBA auch dynamisch erstellen?
Ja, du kannst dynamische Arrays in VBA verwenden, indem du die ReDim-Anweisung nutzt. Dies ermöglicht es dir, die Größe des Arrays zur Laufzeit zu ändern.

3. Gibt es Unterschiede zwischen der Verwendung von Arrays in VBA und Java?
Ja, in Java beginnst du die Indizierung mit 0, während in VBA die Indizierung standardmäßig bei 1 beginnt, es sei denn, du verwendest ein Variant-Array.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige