Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Alle Sheets auswählen

VBA - Alle Sheets auswählen
Udo
Hallo,
ich habe ein dringendes Problem, habe gestern auch schon viele Foren durchsucht aber leider nichts gefunden.
Gibt es im Excel-Vba einen Befehl mit dem ich alle Sheets eines Workbooks auswählen kann ?
Das Problem besteht darin, dass das Workbook immer eine verschiedene Anzahl an Sheets hat und diese Sheets auch immer verschiedene Namen haben.
Ich habe keine Ahnung wie ich alle Sheets des Workbooks auswählen kann.
Vielen Dank für die Hilfe
Udo

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
ThisWorkbook.Sheets.Select o.T
17.12.2009 12:21:31
ransi
ransi
AW: ThisWorkbook.Sheets.Select o.T
17.12.2009 12:25:55
Udo
Vielen Dank !
Super, es funktioniert !
Danke
Udo
AW: ThisWorkbook.Sheets.Select o.T
17.12.2009 12:36:24
Udo
Hallo,
meine Freude ware etwas zu früh.
In einem neuen Workbook hat der Befehl zwar funktioniert, aber in dem eigentlichen Sheet habe ich folgenden Fehler erhalten:
Lautzeitfehler 1004
Die MEthode "Select" für das Objekt "Sheets" ist fehlgeschlagen
Warum nur...
Danke
..Warum nur...VBA-gut..
17.12.2009 13:01:58
robert
hi,
schau dir Tino's Lösung an, bzgl.ausgeblendeter Blätter
gruß
robert
AW: ..Warum nur...VBA-gut..
17.12.2009 13:03:52
Udo
Gleiches Problem,
sobald select ins Spiel kommt ist es in der Datei vorbei.
Die Befehle funktionieren in jeder anderen Datei.
In der Datei sind leider schon sehr viele andere makros enthalten (leider nicht von mir), ich denke es hängt irgendwie damit zusammen, kann das sein ?
Vielen Dank
udo
Anzeige
AW: ..Warum nur...VBA-gut..
17.12.2009 13:09:19
Tino
Hallo,
versuche es mal und stelle den Code zwischen
 Application.EnableEvents = False
Application.EnableEvents = True
also so.
Dim meAr() As String
Dim i%, ii%
Application.EnableEvents = False
With ThisWorkbook
ReDim Preserve meAr(.Sheets.Count)
For i = 1 To .Sheets.Count
If .Sheets(i).Visible = xlSheetVisible Then
meAr(ii) = .Sheets(i).Name
ii = ii + 1
End If
Next i
ReDim Preserve meAr(ii - 1)
.Sheets(meAr).Select
End With
Application.EnableEvents = True
Sonst hilft nur ein Beispiel.
Gruß Tino
Anzeige
AW: VBA - Alle Sheets auswählen
17.12.2009 12:23:24
Hajo_Zi
Hallo Udo,
Alle Blätter per VBA markieren, alle Tabellen markieren 
Sub AlleBlätterMarkieren()
Dim z As Long
Dim Letztes As Long
Dim lArray() As Long
Letztes = ThisWorkbook.Worksheets.Count
ReDim lArray(1 To Letztes)
For z = 1 To Letztes
lArray(z) = z
Next z
ThisWorkbook.Worksheets(lArray).Select
End Sub

von Bernd Held
Sheets().Select
Von André
Gruß Hajo
wenn ausgeblendete Tabellen dabei sind...
17.12.2009 12:30:18
Tino
Hallo,
versuche es mal hiermit.
Dim meAr() As String
Dim i%, ii%
With ThisWorkbook
ReDim Preserve meAr(.Sheets.Count)
For i = 1 To .Sheets.Count
If .Sheets(i).Visible = xlSheetVisible Then
meAr(ii) = .Sheets(i).Name
ii = ii + 1
End If
Next i
ReDim Preserve meAr(ii - 1)
.Sheets(meAr).Select
End With
Gruß Tino
Anzeige

50 Forumthreads zu ähnlichen Themen

Makro für alle Exceldatei verwenden
Günter

Guten Tag,
liebe Excelgemeinde. Habe durch euch ein wunderbares Makro bekommen.
Nun kann ich dieses Makro nur in einem Arbeitsblatt benutzen.
Möchte dieses aber in allen Exceldateien verwenden können.
Habe schon probiert, dieses in der Personl.xls zu hinterlegen.
Klappt aber...
26.07.2009 11:17:30
Thread-ID: 1091371
6 Beiträge
Anzeige
Sortierungs-Makro über allen Tabellenblätter
Luke

Hi!
Mein Thema wurde hier schon öfters behandelt, doch es scheint als sei ich nicht Fähig das hinzukriegen. Ich möchte gerne mit einem Makro mehrere Tabellenblätter ansprechen. Ziel: Beim Klick auf den Button sollten sich 13 Tabellenblätter (simultan) absteigend (nach Spalten E und F) sorti...
27.08.2009 15:43:30
Thread-ID: 1099010
3 Beiträge
VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
Anzeige
Makro für viele Tabellenblätter anwenden
mat

Hallo liebes Forum,
ich habe eine Arbeitsmappe mit 40 Tabellenblättern.
Über das Makro Sub format() formatiere ich jedes Tabellenblatt einzeln. Wie kann ich das Makro über alle Tabellenblätter automatisch laufen lassen (Ausnahme Sheet Data)
Viele Grüße
Mat
24.03.2010 22:23:59
Thread-ID: 1148241
2 Beiträge
Makro für alle Arbeitsblätter
Basti

Guten Morgen zusammen,
am frühen Morgen macht VBA mal wieder nicht das, was ich möchte.
Folgendes Problem:
Ich habe ein Makro in einem Arbeitsblatt aufgezeichnet und möchte nun, dass dieses Makro in allen Arbeitsblättern ausgeführt wird. (Die Anzahl der Arbeitsblätter sind in mehrer...
27.08.2010 08:50:58
Thread-ID: 1174432
8 Beiträge
Makro für auf mehrere Tabellenblätter anwenden
Mat

Hallo liebes Forum,
wie kann ein ein vorhandenes Modul (Makroname = Sub Formatieren) über alle vorhandenen Tabellenblätter laufen lassen, mit Ausnahme des Tabellenblattes data.
Gruß Mat
21.03.2011 16:31:15
Thread-ID: 1206697
7 Beiträge
Makro für alle und immer
Jacqueline

Guten Tag liebe Exceler,
ich habe - mal wieder - ein Problem, welches für eure Lösungen gemacht ist.
Wir erstellen in unserer Abteilung immer mal wieder Makros, die allen zur Verfügung gestellt werden sollen. Am besten wäre für uns ein eigener Reiter mit allen Abteilungsmakros. Alle Mak...
17.05.2011 10:48:37
Thread-ID: 1214782
2 Beiträge
Makro auf alle Tabellenblätter laufen lassen
Teggnodd

Hallo,
ich habe ein digitales Oszilloskop mit dem ich alle paar Minuten Werte aufnehmen will, dazu benutze ich Excel. Ich habe mir schon ein kleines Makro zum auslesen der Werte erstellt, hat auch ganz gut Funktioniert. Nun möchte ich aber auch ein Diagramm zu den Werten haben. Dazu habe ic...
13.12.2011 11:19:06
Thread-ID: 1241841
7 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
3
2
1
3
1
7
6
1
6
2
8
9
2
6
4
3
7
4
3
3
7
8
5
3