Spaltenwerte in andere Spalte untereinander
09.06.2008 07:21:53
Konni
in meiner Tabelle habe ich in der Spalte "AO" ab Zelle 19 max. 8 verschiedene Werte, verteilt auf 1000 Zeilen. Die Werte stehen also irgendwo von AO19 bis AO1018.
Nun möchte ich diese Werte auslesen und in Spalte "BA" ab Zelle 36 fortlaufend untereinander eingetragen bekommen, also von BA36 bis BA43.
Einen VBA-Code für das Auslesen von Werten aus 8 Spalten habe ich freundlicherweise von Gerd L bekommen. Dieser Code lässt sich hier aber nicht anwenden. Ich zeige ihn nachstehend trotzdem zur Veranschaulichung:
.....
Dim Arr As Variant, Text As String, Ind As Long, Maxzl As Long, sp As Long 'Liest VOB §§ Text aus in Spalte BB
Dim offs As Long
offs = 6
For sp = Columns("AP").Column To Columns("AW").Column
Maxzl = Application.Min(1018, Cells(Rows.Count, sp).End(xlUp).row)
If Maxzl < 19 Then Exit For
Arr = Range(Cells(19, sp), Cells(Maxzl, sp))
If IsArray(Arr) Then
For Ind = 1 To UBound(Arr)
Text = Text & Arr(Ind, 1)
Next Ind
Else
Text = Cells(Maxzl, sp)
End If
If Text = "" Then
offs = offs + 1
Else
Cells(sp - offs, "BB") = Text
End If
Text = ""
Next sp
.....
Aufgrund mangelnder VBA-Kenntnisse bin ich nochmal auf die Hilfe des Forums angewiesen.
Vielen Dank für Eure Unterstützung!
Gruß: Konni