Hallo Forum,
ich habe in mehreren Tabellenblättern einen benannten bereich "SName" in einer Spalte(B), wo jeweils 2 zellen verbunden sind (also b2/b3, b4/b5, b6/b8 bis b20/b21.
Den Bereich versuche ich nun schon seit geraumer Zeit mit einem string-array zu füllen. Das array hat den aufbau
arrAufgabe(0,0) "Wert"
arrAufgabe(0,1) "Wert"
arrAufgabe(1,1) "Wert"
arrAufgabe(1,2) "Wert"
arrAufgabe(1,3) "Wert"
arrAufgabe(2,0) "Wert"
arrAufgabe(2,1) "Wert"
arrAufgabe(2,2) "Wert"
Die erste Dimension gibt mir das Tabellenblatt an, die 2. sind die Werte für die entsprechenden verbunden zellen.
Wenn ich mir per VBA die zellen in dem benannten bereich ausgeben lasse, habe ich insgesamt 20 Zellen. ich hab folgendes versucht:
dim rngBereich as range, Zelle as variant, s as integer
set rngBereich WB.Worksheets(1).Range("SName")
For Each Zelle In rngBereich
if Zelle.row Mod 2 0 Then
rngBereich.Cells(Zelle.row,1).Value = arrAufgabe(1,s)
s = s + 1
End If
Next
Das Funktioniert aber überhaupt nicht, gibt es da vlt eine Lösung?
(ich brauche die verbundenen Zellen!)
LG Micha