VBA sichtbare Sheets selectieren

Forumthread: VBA sichtbare Sheets selectieren

04.01.2007 13:28:14

Erber

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA sichtbare Sheets selectieren

04.01.2007 13:55:29

Ramses
AW: VBA sichtbare Sheets selectieren

04.01.2007 14:00:43

EtoPHG
AW: VBA sichtbare Sheets selectieren

04.01.2007 16:12:14

Erber
-

07.01.2007 21:59:27

EtoPHG

AW: VBA sichtbare Sheets selectieren

04.01.2007 13:55:29

Ramses

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

AW: VBA sichtbare Sheets selectieren

04.01.2007 14:00:43

EtoPHG

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

AW: VBA sichtbare Sheets selectieren

04.01.2007 16:12:14

Erber

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

07.01.2007 21:59:27

EtoPHG

Forumthread: VBA sichtbare Sheets selectieren

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread