Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array in Excel

Array in Excel
02.12.2003 12:08:34
daniel
Hi Leute,

ich möchte folgende Problemstellung lösen:

In einer Tabellenspalte stehen eine Reihe von Zahlenwerten. Zum besseren Verständnis in Spalte A Zeile 1 steht der Wert 128, darunter also in Zeile 2 der Wert 256 usw.

Ich möchte diesen Zahlenspalte in einem dynamischen Array einlesen. Dynamisch deshalb weil Zahlenwerte doppelt vorkommen können.

Rein gedanklich habe ich mir das so vorgestellt:

1. Erstelle ein Array mit einem Datenfeld.
2. Gehe zu Spalte A Zeile 1 und speichere den Wert der Zelle ins Array.
3. Gehe in die nächste Zeile, überprüfe ob der aktuelle Wert schon im Array ist,
wenn nicht erstelle ein weiteres Array-Feld und speichere den Wert, ist der Wert vorhanden gehe in die nächste Zeile.

Wie löse ich dies am sinnvollsten per vba in excel.

mfg

daniel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array in Excel
02.12.2003 12:34:08
NE
Hallo,

nur ein Beispiel,

lg Nancy
--


Sub test()
Dim i, x()
Dim y As Long
y = Range("A1").CurrentRegion.Rows.Count
ReDim Preserve x(y)
For i = 1 To y
x(i) = i
MsgBox i
Next
End Sub

sorry
02.12.2003 12:42:41
NE
ohje, das war ja wohl einmal garnix ...
AW: Array in Excel
02.12.2003 12:34:50
PeterA
Hallo Daniel !

Versuchs mal so ! (Option Base 1 ist notwendig das der erste eintrag nicht
Mein_Bereich(0) ist sondern Mein_Bereich(1) und somit mit der Zeilennummerierung
übereinstimmt)

Option Base 1

Private Sub CommandButton1_Click()
Dim Mein_Bereich(5) As Variant
For x = 1 To 5
Mein_Bereich(x) = Tabelle1.Cells(x, 1)
Next
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige