möchte bei einer kopierten Tabelle, alle Spalten die Leer bleiben automatisch gelöscht haben. Ist die möglich.
Gruß
Christian
Sub spalten_löschen()
Dim a
For a = 1 To 255
For b = 1 To 10
If Sheets(1).Cells(b, a).Value = "" Then
c = c + 1
End If
Next b
If c = 10 Then
Columns(a).Delete
End If
Next a
End Sub
Sub Leerspalten()
Dim s As Integer
For s = 256 To 1 Step -1
If Application.CountA(Columns(s)) = 0 Then Columns(s).Delete
Next
End Sub