Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blätter auswählen mit VBA klappt nicht

Blätter auswählen mit VBA klappt nicht
Elmar
Hallo, Ihr Weisen, Klugen und Schlauen...
Ich habe 5 Blätter SAZ1, SAZ2, ... SAZ5 und 5 Blätter GA1, GA2, ... GA5 und noch einige weitere Blätter
Die sind je nach Kunde unterschiedlich mit Daten gefüllt, z.B. einmal SAZ1 Und GA1
mal SAZ1 2 3 und GA1 2 ...
Hier im Makro werden SAZ1 2 3 und GA1 2 3 ausgewählt fürs Drucken. 
Sub DruckenBlätterMarkieren3S3G()
Sheets(Array("SAZ1", "SAZ2", "SAZ3", "GA1", "GA2", "GA3", "Ang_Zf", "SE", "MEB S", "SEB", " _
GE", "MEB G", "GEB")).Select
Sheets("SAZ1").Activate
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Das klappt ja auch alles.
nachdem ich aber jetzt nicht für jede mögliche Kombi einen eigenen Makro mit Button haben will, sondern einen Makro für alles, habe ich diesen Makro geschrieben:
Sub Markieren()
For I = 1 To 5
Sheets("SAZ" + LTrim(I)).Select
If Range("B6")  0 Then MarkierenArray = MarkierenArray + Chr(34) + "SAZ" + LTrim(I) +  _
Chr(34) + ", "
Next I
For I = 1 To 5
Sheets("GA" + LTrim(I)).Select
If Range("B6")  0 Then MarkierenArray = MarkierenArray + Chr(34) + "GA" + LTrim(I) +  _
Chr(34) + ", "
Next I
MarkierenArray = MarkierenArray + Chr(34) + "SE" + Chr(34) + ", "
MarkierenArray = MarkierenArray + Chr(34) + "MEB S" + Chr(34) + ", "
MarkierenArray = MarkierenArray + Chr(34) + "SEB" + Chr(34) + ", "
MarkierenArray = MarkierenArray + Chr(34) + "GE" + Chr(34) + ", "
MarkierenArray = MarkierenArray + Chr(34) + "MEB G" + Chr(34) + ", "
MarkierenArray = MarkierenArray + Chr(34) + "GEB" + Chr(34)
MsgBox (MarkierenArray) ' Nur für Testzwecke, ob der String stimmt
Sheets(Array(MarkierenArray)).Select
End Sub

Warum bringt Excel da den Laufzeitfehler 9 - Index ausserhalb des Bereichs?
Muss ich da den String anders deklarieren?
Der String ist doch so, wie er im anderen Makro steht...
Beispiedatei ist hochgeladen:
https://www.herber.de/bbs/user/70552.xls
Vielen Dank fürs Lesen, Eindenken und die hilfreiche Antwort!
lG Elmar

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

Betreff
Benutzer
Anzeige
AW: Blätter auswählen mit VBA klappt nicht
12.07.2010 22:00:15
Ramses
Hallo
Strings werden so zusammengebaut
Sheets("SAZ" & LTrim(I)).Select
Gruss Rainer
AW: Blätter auswählen mit VBA klappt nicht
12.07.2010 22:21:28
Elmar
danke für die Antwort, hat mir aber leider noch nicht weitergeholfen...
Ich habs so umgeformt:
Sub Markieren()
For I = 1 To 5
Sheets("SAZ" & LTrim(I)).Select
If Range("B6")  0 Then MarkierenArray = MarkierenArray & Chr(34) & "SAZ" & LTrim(I) &  _
Chr(34) & ", "
Next I
For I = 1 To 5
Sheets("GA" & LTrim(I)).Select
If Range("B6")  0 Then MarkierenArray = MarkierenArray & Chr(34) & "GA" & LTrim(I) &  _
Chr(34) & ", "
Next I
MarkierenArray = MarkierenArray & Chr(34) & "SE" & Chr(34) & ", "
MarkierenArray = MarkierenArray & Chr(34) & "MEB S" & Chr(34) & ", "
MarkierenArray = MarkierenArray & Chr(34) & "SEB" & Chr(34) & ", "
MarkierenArray = MarkierenArray & Chr(34) & "GE" & Chr(34) & ", "
MarkierenArray = MarkierenArray & Chr(34) & "MEB G" & Chr(34) & ", "
MarkierenArray = MarkierenArray & Chr(34) & "GEB" & Chr(34)
MsgBox (MarkierenArray)
Sheets(MarkierenArray).Select
End Sub

Der Fehler taucht ja erst beim letzten Befehl auf, vorher habe ich noch keinen Unterschied wahrgenommen ob
Sheets("SAZ" & LTrim(I)).Select oder Sheets("SAZ" + LTrim(I)).Select
Danke fürs Weiterhelfen
lG Elamr
Anzeige
AW: Blätter auswählen mit VBA klappt nicht
12.07.2010 22:56:37
Ramses
Hallo
"..Der Fehler taucht ja erst beim letzten Befehl auf,..."
Und woher sollen wir das wissen ? Hast du ja nicht gesagt.
Ein Array zum Auswählen von Sheets wird nicht mit Chr(34) und "," erstellt.
Das kann nicht funktionieren
Hier ein Beispiel aus meinem Fundus wie ein Array aufgebaut wird, mit dem man mehrere Sheets selectieren kann
Es gibt sicher noch andere Varianten, aber zum Verständnis des grundsätzlichen Aufbau des Array sicher brauchbar
Sub Group_Selected_Sheets_in_Array_for_Printout()
'(C) von PM aus dem Spotlight Forum
'Definieren von Worksheets die gruppiert werde
'ohne das sie fortlaufend aneinander liegen
Dim vWorksheet As Worksheet
Dim vWorksheetsToSelect() As String
Dim vWorksheetsToDeselect(2) As String
Dim i As Byte
Dim ii As Byte
Dim vFound As Boolean
vWorksheetsToDeselect(0) = "Fix1"
vWorksheetsToDeselect(1) = "Fix2"
vWorksheetsToDeselect(2) = "Fix3"
ii = 0
For Each vWorksheet In Worksheets
vFound = False
For i = 0 To UBound(vWorksheetsToDeselect)
If vWorksheet.name = vWorksheetsToDeselect(i) Then
vFound = True
Exit For
End If
Next i
If Not vFound Then
ReDim Preserve vWorksheetsToSelect(ii)
vWorksheetsToSelect(ii) = vWorksheet.name
ii = ii + 1
End If
Next vWorksheet
Sheets(vWorksheetsToSelect).Select
End Sub
Eine andere Alternative, wenn es nur um das gruppieren geht, wäre folgende Variante
Sub Group_Sheets()
'by Ramses
Dim i As Integer
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 3) = "SAZ" Then
If Sheets(i).Range("B6")  0 Then
Sheets(i).Select False
End If
End If
If Left(Sheets(i).Name, 2) = "GA" Then
If Sheets(i).Range("B6")  0 Then
Sheets(i).Select False
End If
End If
Select Case Sheets(i).Name
Case "SE", "MEB S", "SEB", "GE", "MEB G", "GEB"
Sheets(i).Select False
End Select
Next Sh
End Sub
Gruss Rainer
Anzeige
AW: Blätter auswählen mit VBA klappt nicht
12.07.2010 23:52:57
Elmar
ich weiss, ich weiss, das war eine Deiner leichteren Übungen...
sowas kannst Du sicherlich aus dem Handgelenk schütteln, Rainer...
Ich schenk Dir mal noch die erste Empfindung, die ich hatte, als ich Deinen Namen unter meinem Beitrag gelesen habe... Die war ungefähr so:
"Oh, der ägyptische Excel-Gott persönlich nimmt sich meines Problems an... Welche Ehre...."
Du hast diesen Deinem Namen in mir aber wieder mal alle Ehre gemacht. Gratulazione!
Funktioniert alles hervorragend!
(und für die, dies nachmachen müssen / wollen das Next sh in der vorl. Zeile muss Next i heissen)
Anzeige

282 Forumthreads zu ähnlichen Themen

Aufruf von Makros mit Abfrage (JA oder NEIN) ?
Makros

Hallo Leute,
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1() Dim rng As Range For Each rng In Range("A1:A" &a...
18.09.2008 18:59:00
Thread-ID: 1010835
3 Beiträge
Anzeige
Ja-Nein Abfrage per VBA beantworten
rogger777

Hallo,
ich habe eine Sammelmappe in der von Mehreren Daten gesammt werden. Bevor die Datei geschlossen wird habe ich ich mit Hilfe von "workbook_BeforeClose" eine Abfrage eingebaut, die den jeweiligen Bearbeiter fragt, ob er das aktuelle Datum für den von ihm bearbeiteten Datensatz eingetra...
10.11.2008 15:16:00
Thread-ID: 1023218
6 Beiträge
Msgbox : JA / NEIN auf Englisch
TomTom

Hi,
ich habe auf meiner Userform eine MsgBox:
a = MsgBox("geht das auch auf Englisch ?", vbYesNo, "Frage")
If a = vbYes Then ....
Wenn die ausgeführt wird,stehen auf den Buttons Ja und Nein. Kann man das auch auf Englisch ausgeben (Yes/No) ?
Gruss
Tom
28.11.2008 09:36:00
Thread-ID: 1028583
3 Beiträge
Anzeige
Mehrfachauswahl mittels VBA
Lorenz

Hallo Excelprofis.
Untenstehendes Makro wird nicht ausgeführt (entspricht wahrscheinlich der Excelfunktion von Werte einfügen., wo eine Mehrfachmarkierung nicht zulässig ist?). Wie sollte der Code lauten, daß er funktioniert?
NR = Target.Row
With ActiveSheet
With .Union(.Cells(N...
10.01.2010 20:15:58
Thread-ID: 1128737
7 Beiträge
msgbox Ja,nein Vorauswahl "Nein"
chris

Hallo und guten morgen.ich fasse mich kurz.
ich benutze eine msgbox mit VBYes und VBNo
Wie kann ich erreichen das die Norauswahl auf "Nein" ist.
Also wenn ich Enter drücke das Nein gewählt wird ?
Ohne das ich erst mit TAb auf den Nein Button springe.
Würde mich sehr über Hil...
21.09.2010 07:31:06
Thread-ID: 1178653
3 Beiträge
MsgBox mit ja/nein
Karsten

Hallo,
Bei diesem Code kann ich momentan nur mit ok bestätigen. Kann mir bitte jemand die Variante fürs Abbrechen codieren?
Danke für eure Hilfe
Gruß
Karsten
ActiveCell > 0 Then
MsgBox "Stunde Löschen?"
05.10.2010 09:06:57
Thread-ID: 1180692
6 Beiträge
Zelle gefüllt mit ja und nein
Joachim

Hallo,
bisher hab ich in einer Matrixformel eine Spalte nach dem Wert "ja" durchsucht. In diser Spalte kommt nur "ja" oder "nein" vor. Ich will aber nun nicht Spaltenbereich="ja", sondern als Zellbezug, also Spaltenbereich=F1. In F1 steht dann "ja" drin. Klappt wunderbar.
Was schreib ic...
15.03.2012 15:55:15
Thread-ID: 1255117
3 Beiträge
MsgBox: Abfrage ob Druckbereich ja nein
Bernd

Hallo zusammen,
nachfolgenden Code habe ich gerade mit Recorder aufgezeichnet.
Allerding soll nicht immer alles gedruckt werden sondern, einmal mit Tabelle "KfW" und Tabelle "Tilgungsplan Kfw" einmal ohne. Nun habe ich versucht eine Abfrage (an den mit Kreuzen dargestellten Code) mit Ms...
16.07.2013 11:30:36
Thread-ID: 1322686
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
2
3
5
2
2
6
2
5
2
6
5
8
4
2
6
4
3
3
3
6
2
2
3
3
3