array in Kommentarfeld ausgeben

Question

Hallo,

ich habe ein zweidimensionales Array "arrSpeicher".
Mit dem code

Range("D145").Resize(UBound(arrSpeicher(), 2) + 1, 2) = Application.Transpose(arrSpeicher())

gebe ich mit den kompletten Speicherinhalt in das Feld "D145" aus. Ich möchte aber dieses Array strukturiert in eine string-Variable bzw. als Kommentar ausgeben. Hat jemand hierzu einen Tipp wie das geht? Meine bisherigen Versuche haben leider nicht funktioniert...
Gruß Andreas

Answer 1

Hallo,

eine Möglichkeit habe ich doch noch über eine Schleife gefunden:

For lngAnz = 0 To UBound(arrSpeicher(), 2)
text = text & arrSpeicher(0, lngAnz) & vbTab & arrSpeicher(1, lngAnz) & vbLf
Next lngAnz
MsgBox text

Falls jemand eine bessere Idee hat, gern!
VG Andreas

Answer 2

Mit was für Daten ist das Array denn gefüllt?
Ein Beispiel wäre nicht schlecht.

Gruß Flupo

Answer 3

hi Ahorn ^^

gewöhn dich daran ,Arrays mit schleifen zu befuellen oder auszulesen :-)
du machst es schon richtig ^^

gruss nighty

Answer 4

hi Ahorn ^^

noch ein optimierundstip

bei der schleife wird ubound mit jedem durchlauf neu berechnet

erfasse ubound vor der schleife
und uebergebe die variable der schleife

gruss nighty

Answer 5

Hallo,
das Array enthält in jeder Dimension string-Variable.
Danke nighty für deinen Kommentar. Deinen Hinweis zu ubound nehme ich gern auf!!
Gruß Andreas

Answer 6

hi andres ^^

wenn du dann mehrdimensionale Arrays im kopf beherrschst
dann beschäftige dich mit scripting.dictionary

der Turbolader :-))

gruss nighty

Answer 7

Oh nighty, da brauche ich sicher vorher noch ein paar Lehrstunden... :-)
A.