Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA sichtbare Sheets selectieren

VBA sichtbare Sheets selectieren
04.01.2007 12: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
Anzeige
AW: VBA sichtbare Sheets selectieren
04.01.2007 12: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 13: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
Anzeige
AW: VBA sichtbare Sheets selectieren
04.01.2007 15: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
Anzeige
-
07.01.2007 20:59:27
EtoPHG

118 Forumthreads zu ähnlichen Themen

[VBA] SheetSelectionChange und Hyperlinks
Nils

Hallo liebe VBA-Experten,
ich habe ein Excel-Addin mit folgendem Code in einem Klassenmodul, was mir bei Aktivierung einer Zelle in einem festgelegten Bereich ein Datum einträgt:
Private Sub mobjApplication_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim objRange As...
02.01.2018 11:43:00
Thread-ID: 1599731
6 Beiträge
Anzeige
VBA-Worksheets().Rows().Select
Alexander

Hallo Forum. Ich hab da ein neues Problem.
Das ist meine Code:
Public Deckblatt As Worksheet
Sub AddRowBySelection() Set Deckblatt = ThisWorkbook.Worksheets("Deckblatt AUD") Deckblatt.Unprotect Deckblatt.Rows(20).Select Selection.Insert (xlShiftDown) Deckblatt.Protect DrawingObjec...
25.05.2005 10:30:51
Thread-ID: 615915
10 Beiträge
VBA Worksheet_SelectionChange(ByVal Target As Rang
Anne

Hallo,
ich möchte gerne das im Arbeitsblatt Bemessung das Private Sub Worksheet_SelectionChange(ByVal Target As Range) so ausgeführt wird, dass der geänderte Wert xF auch in dem Slider sofort nach Eingabe ändert.
Bisher muß ich die Zelle (xF) nochmals anklicken um dies zu erreichen! Und...
20.07.2005 16:30:02
Thread-ID: 639928
7 Beiträge
Anzeige
VBA-Worksheets().Rows().Select
Alexander

Hallo Forum. Ich hab da ein neues Problem.
Das ist meine Code:
Public Deckblatt As Worksheet
Sub AddRowBySelection() Set Deckblatt = ThisWorkbook.Worksheets("Deckblatt AUD") Deckblatt.Unprotect Deckblatt.Rows(20).Select Selection.Insert (xlShiftDown) Deckblatt.Protect DrawingObjec...
25.05.2005 10:30:51
Thread-ID: 615915
10 Beiträge
VBA ohne Sheets(xxx).Select
W
Hallo Forum,
Ich verarbeite derzeit ca. 50 Datenbestände, die ich zuerst in einen Array einlese. Danach möchte ich das jeweilige Tabellenblatt inhaltlich löschen, um dann den Array in das leere Blatt zu laden.
Der Ablauf funktioniert, wenn ich zuvor das Ziel-Blatt mit Sheets(xx).Select aktiv...
27.05.2021 21:13:30
Thread-ID: 1832996
5 Beiträge
VBA Makro Source Data ActiveSheet
Fabio

Hallo Leute,
habe ein Problem mit meinem Makro. VBA Erfahrung habe ich noch zu gut wie keine. Ich versuche momentan das Makro unabhängig vom Dateinamen zu ändern und hatte auch erste Erfolge durch den ActiveSheet Befehl. Siehe hier:
ActiveWorkbook.Worksheets(ActiveSheet.Name).AutoFilter...
16.09.2015 11:15:33
Thread-ID: 1447721
6 Beiträge
VBA - Problem bei gesetztem "ActiveSheet.Protect"
Boory@gmx.net

Hallo Forum,
in einer Zeiterfassung, in der die MA sich per Transponder-Scan einloggen, wird VBA-seitig der Blattschutz (hier PW: 12345) aufgehoben, der Wert eingetragen und dann wieder geschützt (ActiveSheet.Unprotect / ActiveSheet.Protect). Dies funktioniert problemlos! Nun möchte ich übe...
16.08.2016 08:41:29
Thread-ID: 1509455
4 Beiträge
[VBA] SheetSelectionChange und Hyperlinks
Nils

Hallo liebe VBA-Experten,
ich habe ein Excel-Addin mit folgendem Code in einem Klassenmodul, was mir bei Aktivierung einer Zelle in einem festgelegten Bereich ein Datum einträgt:
Private Sub mobjApplication_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim objRange As...
02.01.2018 11:43:00
Thread-ID: 1599731
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
10
9
6
4
9
4
5
3
5
1
1
1
7
9
6
8
2
11
5
4
5
3
2
1