ich möchte ein Teil eines Makros schreiben, bei denen alle Spalten bis zur Spalte AJ ausgeblendet werden, in denen kein Wert steht. Dies war bisher mein erfolgloser Versuch:
Columns("a:a").Select
Do Until Columns("aj:aj")
If Columns.Value = "" Then
Selection.entirecolumns.Hidden = True
End If
activecolumn.Offset(0, 1).Select
Loop
Viele Grüße
Ralf