wie kann ich per VBA die Zellinhalte von Spalte B, C, D usw. (bis letzte benutzte Spalte) in Spalte A immer in nächste leere Zelle verschieben?
Besten Dank im Voraus!
Viele Grüße,
Selma
Sub ttt()
Dim arrTmp, i As Long, j As Long, n As Long, arrDaten
arrTmp = ActiveSheet.UsedRange
ReDim arrDaten(1 To Application.CountA(arrTmp))
For i = 1 To UBound(arrTmp, 2)
For j = 1 To UBound(arrTmp)
If arrTmp(j, i) "" Then
n = n + 1
arrDaten(n) = arrTmp(j, i)
End If
Next j
Next i
Sheets(2).Cells(1, 1).Resize(n, 1) = _
WorksheetFunction.Transpose(arrDaten)
End Sub