Okay, dann...
15.03.2017 13:06:36
Michael
...so: https://www.herber.de/bbs/user/112204.xlsm
Das ist wieder Deine Bsp-Datei, starte einfach Makro "a" (im allg. Modul 1). Hast Du es Dir so vorgestellt?
Was mit den zwischengespeicherten Daten im Blatt 2 passieren soll, hast Du nicht angegeben; notfalls müsstest Du jetzt Blatt 2 manuell löschen.
Hier der Code nochmals separat:
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle1")
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Tabelle2")
Dim r As Range, i&, Sp$, a
Application.ScreenUpdating = False
With WsQ
.UsedRange.Copy WsZ.Range("A1")
Application.CutCopyMode = False
End With
With WsZ
.UsedRange.Replace what:=" ", replacement:="", lookat:=xlPart
Set r = .Range(.Cells(1, 1), .Cells(1, 1).End(xlToRight))
For i = 1 To r.Cells.Count
If WorksheetFunction.CountA(.Range(.Cells(1, i), _
.Cells(.Rows.Count, i)))
Gib Bescheid!
LG
Michael