Das Archiv des Excel-Forums
werte in array eintragen und wieder auslesen
- werte in array eintragen und wieder auslesen von rainer vom 13.10.2003 11:47:35
- AW: werte in array eintragen und wieder auslesen - von ChrisL am 13.10.2003 12:53:37
- AW: werte in array eintragen und wieder auslesen - von rainer am 13.10.2003 13:05:08
- AW: werte in array eintragen und wieder auslesen - von rainer am 13.10.2003 13:05:08
- AW: werte in array eintragen und wieder auslesen - von ChrisL am 13.10.2003 12:53:37
 |
Betrifft: werte in array eintragen und wieder auslesen
von: 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
 |
Betrifft: AW: werte in array eintragen und wieder auslesen
von: ChrisL
Geschrieben am: 13.10.2003 12:53:37
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
|
Betrifft: AW: werte in array eintragen und wieder auslesen
von: rainer
Geschrieben am: 13.10.2003 13:05:08
Danke Chris, das hilft mir weiter.
Auf euch ist eben Verlaß
Gruß
Rainer
| |
