Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

werte in array eintragen und wieder auslesen

werte in array eintragen und wieder auslesen
13.10.2003 11:47:35
rainer
Hallo! Ich steh wieder mal vor einem kleinen Problem:
Ich möchte die Zellwerte eines Bereiches (z.B. b1 bis b5) in einen Array einlesen. Später will ich dann prüfen, ob ein wert bereits in diesem Array enthalten ist. Wenn nein, soll er eingefügt werden.
Wie kann ich sowas machen?

Danke und Gruß
Rainer

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: werte in array eintragen und wieder auslesen
13.10.2003 12:53:37
ChrisL
Hi Rainer

Hier ein Ansatz...

Option Explicit


Sub t()
Dim iZeile As Integer
Dim neuerWert As Variant
' Array abfüllen
ReDim MyArray(4) As Variant
For iZeile = 1 To 5
MyArray(iZeile - 1) = Cells(iZeile, 2)
Next iZeile
neuerWert = "A"
' Check ob Wert vorhanden
For iZeile = 0 To UBound(MyArray)
If MyArray(iZeile) = neuerWert Then
MsgBox "Wert existiert bereits"
Exit Sub
End If
Next iZeile
' Array redimensionieren
ReDim Preserve MyArray(UBound(MyArray) + 1)
' Neuer Wert hinzufügen
MyArray(UBound(MyArray)) = neuerWert
MsgBox "neuer Wert hinzugefügt."
End Sub


Gruss
Chris
Anzeige
AW: werte in array eintragen und wieder auslesen
13.10.2003 13:05:08
rainer
Danke Chris, das hilft mir weiter.
Auf euch ist eben Verlaß
Gruß
Rainer

186 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige