VBA sichtbare Sheets selectieren

• VBA sichtbare Sheets selectieren von Erber Karl vom 04.01.2007 12:28:14
• AW: VBA sichtbare Sheets selectieren - von Ramses am 04.01.2007 12:55:29
• AW: VBA sichtbare Sheets selectieren - von EtoPHG am 04.01.2007 13:00:43
  • AW: VBA sichtbare Sheets selectieren - von Erber Karl am 04.01.2007 15:12:14
    • - - von EtoPHG am 07.01.2007 20:59:27

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

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

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

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

Betrifft: -
von: EtoPHG
Geschrieben am: 07.01.2007 20:59:27

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