Office: Array-Inhalt löschen ("dynamisch")

schnuckelking · 7. Juli 2004

Hallo.

hatte es schon mal in nem anderen Thread, aber das war nich wirklich gut...

Ich habe lauter unterschiedlicher (= länge, Anzahl der Dimensionen) Arrays.
Wie kann ich diese Arrays "Löschen", d.h. sämtlichen Inhalt entfernen ?
Ich blick noch immer nich wie "ReDim " arbeitet. geht das damit?

Das Hauptproblem sind die unterschiedl. Anzahl an Dimensionen (1,2,3) und die unterschiedl. Datentypen (Integer & String).deswegen komm ich mit loops noch nicht sehr weit...

zu letzterem: ich gehe mal davon aus das ich in vba (wie überall) nicht "" (leerer String)=0 (Int)=null ansehen kann, wenn ich vergleiche mache??

vielen Dank für alle Tips...

PS: wäre es ne Mogellösung das Array zu "zrerstören" und dann neu zu initialisieren. Wie zerstöre ich?

:)

User · 9. Juli 2004

hi schnuckelking *Smilie
erste eine array verkuerzung *idee
zweite eine verkuerzung der auszulesenden schleife des array *idee

gruss poltergeist *yelrotflmao

Code:

Sub makro01()
Randomize Timer

ReDim lottozahl(49)

Dim zahl(7), endeindex, allezahlen, ziehung
Dim gezogen
endeindex = 49
For allezahlen = 1 To 49
lottozahl(allezahlen) = allezahlen
Next allezahlen
For ziehung = 1 To 7
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = lottozahl(gezogen)
lottozahl(gezogen) = lottozahl(endeindex)

endeindex = endeindex - 1

ReDim Preserve lottozahl(endeindex)

Range("A" & ziehung) = zahl(ziehung)
Next ziehung
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub makro02()
Randomize Timer
Dim lottozahl(49)
Dim zahl(7), zahl1, zahl2, zahl3
zahl1 = 49
For zahl2 = 1 To 49
lottozahl(zahl2) = zahl2
Next zahl2
For zahl3 = 1 To 7
zahl(zahl3) = lottozahl(Int(Rnd * zahl1) + 1)

lottozahl(zahl(zahl3)) = lottozahl(zahl1)

zahl1 = zahl1 - 1

Range("A" & zahl3) = zahl(zahl3)
Next zahl3
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schnuckelking · 9. Juli 2004

also ich weiß nicht...
so auf den ersten Blick ist das leider keine Antwort auf mein Problem...
sorry.

Abgesehen davon, da0 ich zur Zeit eine dirty-solution gefunden habe (und die Arrays in individuellen Loops leere) interressiert es mich weiterhin:

Wie leere ich ein volles Array, ohne dessen Struktur zu ändern und ohne von seinen Dimensionen abhängig zu sein?
ambesten ein vordefinierter Befehl like: Clear(myArray) *wink.gif*

angenommen ich habe nämlich folgende Arrays, dann gehts mit einer loop net:
array1(0 to 2)
array2(0 to 3, 1 to 100)
array3 (0 to5, 10 to 100, 1 to 90)

dein code erklärt eher, wie man es füllt kürzt, etc.. oder? dat weiß ich ja...

so long... feierabend; Wochenende. ich wünsch Euch ein gutes eben selbiges!

User · 9. Juli 2004

hi schnuckelking *angel

viel spass noch beim tuefteln *yelrotflmao

gruss poltergeist *biggrin.gif*

Code:

Dim array1(0 To 2)
Dim zaehler
For zaehler = 0 To 2
array1(zahler) = "Deine Vorstellung"
Next zaehler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Dim array2(0 To 3, 1 To 100)
Dim zaehler
Dim zaehler1
For zaehler = 0 To 3
For zaehler1 = 1 To 100
array1(zahler, zaehler1) = "Deine Vorstellung"
Next zaehler1
Next zaehler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Dim array3(0 To 5, 10 To 100, 1 To 90)
Dim zaehler
Dim zaehler1
Dim zaehler2
For zaehler = 0 To 5
For zaehler1 = 10 To 100
For zaehler2 = 1 To 90
array1(zahler, zaehler1,zaehler2) = "Deine Vorstellung"
Next zaehler2
Next zaehler1
Next zaehler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jinx · 9. Juli 2004

Moin, schnuckelking,

das Leeren geht nur über die Neuanlage (oder ReDim für die letzte Ebene), oder Du entfernst die Inhalte per Schleifen ...

@poltergeist:
Einer von uns beiden hat die Frage falsch verstanden...

User · 9. Juli 2004

hi jinx *biggrinlove

ich hatte mich daran orientiert *rolleyes.gif*

zitat

dann gehts mit einer loop net:

gruss poltergeist *yelrotflmao

Susanne E. · 9. Juli 2004

Hallo,

in dem Zusammenhang wuerde mich mal interessieren, ob es eine Moeglichkeit gibt, die Anzahl der Dimensionen eines Arrays abzufragen.

Wenn man die haette koennte man ja eine Function schreiben, die das Leeren eines beliebig dimensionierten Arrays erledigt.

Weiss das jemand?

schnuckelking · 11. Juli 2004

hallo!

naja. mit 3 versch. loops hätte ich das auch gekonnt, wollte ich aber eben nicht. ich habe eine Universal-Lösung gesucht. Aber da jinx wohl recht hat, und es keine weitere Möglichkeit gibt, werde ich es eben mit Loops machen!

Trotzdem Danke soweit!

Jane 2002 · 9. August 2004

Hallo

Ich bin ein absoluter Anfänger habe aber das selbe Problem.
Kann mir jemand vielleicht einen Code als Beispiel zeigen wie man ein Zweidimensonales Array mit Loops leert bzw. den Inhalt löscht.

Schonmal Danke!

Bye Jane *Smilie

Nepumuk · 9. August 2004

Hallo an Alle,
Arrays werden einfach mit:

Erase myArray

zurückgesetzt.

Susanne E. · 10. August 2004

Hi Nepomuk,

Cool, danke fuer die Info.

Da sieht man's mal wieder - wenn man zu kompliziert denkt, ist man meistens recht weit von der Loesung entfernt *cool.gif*

Office: Array-Inhalt löschen ("dynamisch")

Array-Inhalt löschen ("dynamisch")

Array-Inhalt löschen ("dynamisch")

Array-Inhalt löschen ("dynamisch")

Array-Inhalt löschen ("dynamisch")

Array-Inhalt löschen ("dynamisch") - Similar Threads - Array Inhalt löschen

Array inZeile schreiben

Mittelwert aus mehreren Spalten als dynamisches Array

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Zahlendubletten im Array

Array aus Excel Tabelle einlesen Word VBA

Summenteilergebnis eines Arrays als Array darstellen

Array Inhalt in andere Tabelle schreiben