|
Hallo Leute, ich habe ein Problem...
ich habe zig Spalten in einem Arbeitsblatt
zuerst entferne ich die leeren Spalten dazwischen...
Sub leere_Spalten_löschen()
Dim lng As Long
With ActiveSheet
For lng = .UsedRange.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
If .Columns(lng).Find("*", , xlFormulas, , xlByColumns, xlPrevious) Is Nothing Then .Columns(lng).Delete
Next lng
End With
End Sub
Dann möchte ich dass alle Spalten zn in der Spalte A (in diese klicke ich rein) untereinander geschrieben werden.
Sub CombineColumns()
Dim rng As Range
Dim iCol As Integer
Dim lastCell As Integer
Set rng = ActiveCell.CurrentRegion
lastCell = rng.Columns(1).Rows.Count + 1
For iCol = 2 To rng.Columns.Count
Range(Cells(1, iCol), Cells(rng.Columns(iCol).Rows.Count, iCol)).Cut
ActiveSheet.Paste Destination:=Cells(lastCell, 1)
lastCell = lastCell + rng.Columns(iCol).Rows.Count
Next iCol
End Sub
Während das erste Makro einwandfrei funktioniert, bricht das zweite nach kurzer Zeit ab. Es fügt zwar einige Spalten zusammen, doch dann gehts nicht weiter.
Ich vermute, das liegt darin, dass einfach kein Platz mehr ist in der Spalte A.
kleiner Auszug aus meiner Tabelle:
|
EI620736 Corp |
ED789636 Corp |
EJ437501 Corp |
EF593470 Corp |
EJ447034 Corp |
|
|
ED377732 Corp |
EJ196863 Corp |
EF165418 Corp |
EJ447299 Corp |
|
|
ED377784 Corp |
EJ176956 Corp |
EI649929 Corp |
|
|
|
ED711235 Corp |
EJ196748 Corp |
EI794337 Corp |
|
|
|
ED711219 Corp |
EJ204092 Corp |
EI794369 Corp |
|
|
|
EH813352 Corp |
EJ207766 Corp |
EJ457306 Corp |
|
|
|
EH813328 Corp |
EJ208051 Corp |
EI648119 Corp |
|
|
|
EI769026 Corp |
EI710666 Corp |
EI414234 Corp |
|
|
|
EI769010 Corp |
EJ602679 Corp |
EJ420560 Corp |
|
|
|
EC239489 Corp |
EJ602414 Corp |
EJ160916 Corp |
|
|
|
EC239465 Corp |
EJ602604 Corp |
|
|
|
|
EH813396 Corp |
EJ612074 Corp |
|
|
|
|
|
EJ260245 Corp |
|
|
|
|
|
EJ269527 Corp |
|
|
|
|
|
EJ278539 Corp |
|
|
|
|
|
EJ288370 Corp |
|
|
|
|
|
EJ288400 Corp |
|
|
|
|
|
EJ288270 Corp |
|
|
|
|
|
EJ289891 Corp |
|
|
also die Tabellen sind unterschiedlich weit befüllt... nur wäre ich dankbar für ein Makro das wirklich alle Spalten zusammenfügt und vielleicht an die letzte Spalte A die befüllt ist, die erste Spalte B die befüllt anschließt usw... das geht dann bis Spalte ZZ!
Für eure Hilfe bin ich sehr dankbar!
LG Sonja
|