Spalten anhand Überschriften ausblenden (VBA)
Meppi
ich habe folgendes Problem und hoffe, dass mir jemand von euch weiterhelfen kann:
Ich habe in einer Excel-Datei mehrere Tabellenblätter in denen sich Webabfragen (in jedem Tabellenblatt bis zu 3 Webabfragen) befinden. Sie müssen täglich aktualisiert werden. Dabei wird auch automatisch eine Spalte (Überschrift "Datum") mitgezogen, welche ich jedoch nicht benötige und daher immer manuell ausblenden muss.
Mir ist bekannt, dass ausgeblendete Spalten auch beim Aktualisieren von Webabfragen normalerweise ausgeblendet bleiben, jedoch wende ich bereits ein Makro an, welches für alle Spalten die optimale Breite anpasst. Somit werden leider auch die ausgeblendeten Spalten angefasst und wieder eingeblendet.
Zurück zum eigentlichen Problem: Ich habe bereits versucht, ein Makro zum Ausblenden der Spalten mit der Überschrift "Datum" (Zeile 2) zu schreiben, nur leider funktioniert es immer nur bis zur ersten "Datums"-Spalte eines jeden Tabellenblattes. Sind mehrere Spalten mit der gleichen Überschrift vorhanden, werden diese nicht erkannt und einfach übersprungen:
Sub Spalten_Ausblenden()
Dim i As Worksheets
For Each Ws In ThisWorkbook.Worksheets
Ws.Select
Rows("2:2").Select
Selection.Find(what:="Datum").Activate
ActiveCell.EntireColumn.Hidden = True
Next Ws
Sheets("Allgemeines").Select
End Sub
Vielen Dank euch im Voraus.
Anzeige