Office: gelöst-Array füllen und in Zelle schreiben

Julietta · 24. August 2005

Hallo Ihr,
ich knobel schon seit eine langen Weile an folgendem Problem:
in Excel habe ich 12 Spalten, wovon manche ein Wort enthalten, einige aber auch nicht.
Nun möchte ich diese Wörter alle in ein Array schreiben und durch Simikolon getrennt in eine Zelle schreiben, so dass aus den 12 Zellen nur eine wird.
So habe ich es bisher probiert, aber es schreibt mir nur die Simikolons hinein, ohne die Wörter *frown.gif*
Vielleicht kann mir da jemand helfen..??
Vielen Dank
Julietta
Code:

zeile = 2
arr1 = 1
' Arraygröße festlegen
ReDim var_wert(1 To arr1) As Variant
For spalte = 12 To 23
'wenn etwas in Zelle steht, in Array schieben und Array +1 größer machen
If Cells(zeile, spalte) "" Then
var_wert(arr1) = Cells(zeile, spalte).Value
arr1 = arr1 + 1
ReDim var_wert(1 To arr1)
Else
'war kein Wert drin, also Array so lassen
ReDim var_wert(arr1)

End If
Next spalte

Cells(zeile, 12).Value = Join(var_wert, ";")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Julietta · 26. August 2005

Gelöst!!
Hier für diejenigen, die es interessiert:
Code:

zeile = 2
arr1 = 0
spalte = 11

Do While spalte < 24
If Cells(zeile, spalte).Value "" Then
arr1 = arr1 + 1
End If
spalte = spalte + 1

Loop
'>> Das Array muss arr1 Felder haben
spalte = 11
i = 1
ReDim var_wert(1 To arr1)
Do While spalte < 24
If Cells(zeile, spalte).Value "" Then
var_wert(i) = Cells(zeile, spalte).Value
i = i + 1
End If
spalte = spalte + 1
Loop
Cells(zeile, 11).Value = Join(var_wert, ";")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jinx · 26. August 2005

Moin, Julietta,

meiner Meinung nach würdest Du mit einem einfachen String besser fahren... *wink.gif*

Julietta · 28. August 2005

ich neige wohl zu umständlichen Lösungen..

Office: gelöst-Array füllen und in Zelle schreiben

gelöst-Array füllen und in Zelle schreiben

gelöst-Array füllen und in Zelle schreiben

gelöst-Array füllen und in Zelle schreiben

gelöst-Array füllen und in Zelle schreiben - Similar Threads - gelöst Array füllen

Thema schließen, gelöst markieren, Titel ändern / Thread bearbeiten

Ribbon haben sich vor vba-Eingabe gelöst

VBA: "Abbrechen"-Button bei InputBox - Gelöst

Zellen färben mit VBA - gelöst

workbook/window ausblenden - irgendwas klappt nicht - gelöst

[Gelöst] Verkettete Dropdowns

Problem bei Zellenformatierung "Text" - Gelöst!