Einlesen in Speicher variabel

Forumthread: Einlesen in Speicher variabel
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Einlesen in Speicher variabel

Leitz

Hallo!
Habe ein kleines Problem bei dem ich nicht weiterkomme.
Ich lese über eine For Next Schleife Werte ein max. 20 verscheide Werte.
Dazu habe ich 20 Speicher definiert n1 bis n20
Nun hätte ich gerne daß die Speicher der Rehe nach beschrieben werden, also wenn Speicher n1 beschrieben ist dann soll Speicher n2 verwendet werden usw.
Wie kann ich das lösen?
Bitte um Hilfe.
Gruß
Leitz G.

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

mach es doch mit einem Array

Tino
AW: mach es doch mit einem Array

Leitz
AW: mach es doch mit einem Array

Tino
AW: mach es doch mit einem Array

Leitz
AW: mach es doch mit einem Array

Tino
AW: mach es doch mit einem Array

Leitz

mach es doch mit einem Array

27.07.2011 12:23:06

Tino

Hallo,
hier ein Beispiel dazu.

Sub Beispiel()
Dim ArrayWerte, i As Integer

'Werte Sammeln als Beispiel 
For i = 1 To 20
    Zuweisen ArrayWerte, "Wert " & i
Next i

'Ausgabe als Beispiel 
For i = Lbound(ArrayWerte) To Ubound(ArrayWerte)
    Debug.Print ArrayWerte(i)
Next i

ArrayWerte = Empty 'Reset 
End Sub


Sub Zuweisen(varArray, NewWert)
If IsArray(varArray) Then
    Redim Preserve varArray(Ubound(varArray) + 1)
    varArray(Ubound(varArray)) = NewWert
Else
    varArray = Array(NewWert)
End If
End Sub

Gruß Tino

AW: mach es doch mit einem Array

27.07.2011 16:30:55

Leitz

Hallo!
Danke für die Hilfe!
Habe den Code übernommen und funktioniert super!
Habe aber jetzt noch das Problem, daß ich die Werte in eine Zell schreiben möchte (alle in eine Zelle).
Wie schaffe ich das?
Gruß
Leitz G.

AW: mach es doch mit einem Array

27.07.2011 16:53:52

Tino

Hallo,
ist nicht schwer.

'Tabelle + Zelle + Trennzeichen anpassen
Sheets("Tabelle1").Range("A2") = Join(ArrayWerte, ";")

Gruß Tino

AW: mach es doch mit einem Array

27.07.2011 20:11:41

Leitz

Hallo!
Super das funktioniert auch, aber noch ein Problem.
Wenn im ArrayWerte keine Werte eingetragen bzw gefunden wurden, dann hab ich eine Fehlermeldung.
Habs probiert mit If Not ArrayWerte = Empty Then
Aber das funktioniert nicht. Wie kann ich das lösen?
Gruß und Dank
Leitz G.