Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blätter auswählen

Forumthread: Blätter auswählen

Blätter auswählen
24.03.2021 16:36:15
Sandra
Hallo zusammen,
ich habe eine Frage, wie kann ich in meiner Datei alle Reiter/Blätter auswählen bis auf folgende "Gesamt", "Übersicht".
Für die restlichen möchte ich folgenden Befehl ausführen lassen, damit die Spaltenbreite automatisch eingestellt wird:
Columns("A:P").Select
Range("M1").Activate
Selection.Columns.AutoFit
Die einzelnen Blätter vorher "anzusprechen" ist schwierig, weil nicht immer gleich viele erstellt werden. Nur die Anzahl und Namen der Blätter die nicht ausgewählt werden sollen ist immer gleich.
Kann mir jemand weiterhelfen?

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter auswählen
24.03.2021 16:44:27
Rudi
Hallo, 
Sub Sandra()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
Select Case LCase(wks.Name)
Case "gesamt", "übersicht"
'nix passiert
Case Else
wks.Columns("A:P").AutoFit
End Select
Next wks
End Sub

Gruß
Rudi

Anzeige
AW: Blätter auswählen
24.03.2021 16:51:52
Sandra
Es funktioniert! Vielen herzlichen Dank!

AW: Blätter auswählen
24.03.2021 16:54:09
Edi
Hallo Sandra
Entspricht das hier Deinen Vorstellungen?
Sub test()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Gesamt" Or Worksheets(i).Name = "Übersicht" Then
Else
Worksheets(i).Columns("A:P").AutoFit
End If
Next i
End Sub
Gruß
Edi

Anzeige
AW: Blätter auswählen
24.03.2021 16:56:11
Sandra
Vielen Dank! Das funktioniert auch! Gleich zwei spitzen Varianten!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige