Herbers Excel-Forum - das Archiv

VBA sichtbare Sheets selectieren

Bild

Betrifft: VBA sichtbare Sheets selectieren
von: Erber Karl

Geschrieben am: 04.01.2007 12:28:14
Hallo
wie kann mit VBA nur die sichtbaren Sheets markieren.
Sheets(Array("Netzwerk", "Netzwerk Advanced", "Update", "RDP")).Select
geht nicht da ich diese vorher ja nicht weis.
Danke im voraus
erber karl
Bild

Betrifft: AW: VBA sichtbare Sheets selectieren
von: Ramses
Geschrieben am: 04.01.2007 12:55:29
Hallo
Sub Select_only_Visible_Sheets()
Dim shCounter As Integer
For shCounter = 1 To Worksheets.Count
If Worksheets(shCounter).Visible Then
Sheets(shCounter).Select False
End If
Next
End Sub

Gruss Rainer
Bild

Betrifft: AW: VBA sichtbare Sheets selectieren
von: EtoPHG

Geschrieben am: 04.01.2007 13:00:43
Hallo Karl,
Sub Versiv()
Dim shArray As Variant
Dim ix As Integer
ReDim shArray(ActiveWorkbook.Sheets.Count)
ix = 0
For Each Sh In ActiveWorkbook.Sheets
If Sh.Visible = True Then
shArray(ix) = Sh.Name
ix = ix + 1
End If
Next
ReDim Preserve shArray(ix - 1)
ActiveWorkbook.Sheets(shArray).Select
End Sub

Gruss Hansueli
Bild

Betrifft: AW: VBA sichtbare Sheets selectieren
von: Erber Karl

Geschrieben am: 04.01.2007 15:12:14
Hallo danke für die schnelle und geniale Hilfe.
Nochwas wie kann ich dann die markierten in ein neues Workbook speichern und das gleich schliessen.
das von mir funktioniert leider nicht.
Private Sub Speichern_Click()
'Workbook speichern
Dim Pfad As String
Dim Name As String
Dim sh As Worksheet
Dim WBspeichern As String
Pfad = "f:\Prüfprotokoll\Linux\Test\"
Name = Range("AB1").Value & "_" & Range("B2").Value & "_" & Range("V3").Value & "_" & Range("F3").Value & ".xls"
WBspeichern = Pfad & Name
Application.DisplayAlerts = False
Dim shArray As Variant
Dim ix As Integer
ReDim shArray(ActiveWorkbook.Sheets.Count)
ix = 0
For Each sh In ActiveWorkbook.Sheets
If sh.Visible = True Then
shArray(ix) = sh.Name
ix = ix + 1
End If
Next
ReDim Preserve shArray(ix - 1)
ActiveWorkbook.Sheets(shArray).Select
ActiveWorkbook.Windows(1).SelectedSheets.Copy
ActiveWorkbook.SaveAs WBspeichern
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
End Sub

legt zwar eine Mappe an nennt sie aber nur Mappe XXX und läßt sie offen.
mfg Karl
Bild

Betrifft: -
von: EtoPHG
Geschrieben am: 07.01.2007 20:59:27
 Bild
Excel-Beispiele zum Thema "VBA sichtbare Sheets selectieren"
Sichtbare Blätter drucken Zelleingaben in nicht sichtbarem Blatt protokollieren
Nur sichtbare Zellen addieren Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren Alle sichtbaren Zeilen zählen
Den sichtbaren Bereich ermitteln