suche eine Lösung, VBA Code für folgendes:
letzte beschrieben Spalte prüfen nach leeren Zellen und diese mit einem Leerzeichen füllen.
Set TB1 = ActiveSheet
LC = TB1.Cells(1, TB1.Columns.Count).End(xlToLeft).Column 'letzte Spalte der Zeile 1 =A
oder
LC = TB1.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes
LG UweD