Hallo, ich habe von VBA eigentlich überhaupt keine Ahnung.
Für mein Problem habe hier im Forum bereits das Grundgerüst für eine Lösung gefunden im Thread:
Spalte ausblenden, wenn Bedingung erfüllt, Antwort 5 von von JoeKe. Nur die Anzahl der Spalten habe ich geändert:
Option Explicit
Sub Spalte_ausb()
Dim intSpalte As Integer
Application.ScreenUpdating = False
For intSpalte = 14 To 194
If Cells(1, intSpalte) = "" Then
Columns(intSpalte).EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
Damit kann ich in jeweils in einer Tabelle die ungenutzten Spalten ausblenden. Nun hätte ich gerne noch folgende Anpassung. Ich habe in meiner Datei - neben anderen Tabellen - noch 10 vollkommen identische (Tabelle2 bis Tabelle11). Ich möchte ich die ungenutzten Spalten bei allen auf einmal ausblenden.
Vielen Dank!