Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheet(Array(..)).Select funktioniert nicht

Sheet(Array(..)).Select funktioniert nicht
23.08.2013 16:27:00
SK
Hallo,
ich habe ein Workbook mit mehreren Sheets, wovon immer mehrere zusammengehörige in ein neues Workbook kopiert werden soll.
Folgenden Code verwende ich:
Sheets(wert).Select
Sheets(last).Activate
Sheets(wert).Copy
ActiveWorkbook.Colors = Workbooks(Colorfile).Colors
ActiveWorkbook.SaveAs Pfad1 & ste(i), FileFormat:=xlExcel8
Aus irgend einem Grund werden die zusammengehörigen Sheets aber nicht ausgewählt. Die Variable wert hat z.B. folgenden Inhalt: Array("MK3 DA", "MK3 KST")
last hat "MK3 KST"
Verwende ich statt dessen folgenden Code zum Testen mit statischen Werten:
Sheets(Array("MK3 DA", "MK3 KST")).Select
Sheets("MK3 KST").Activate
Sheets(Array("MK3 DA", "MK3 KST")).Copy
funktioniert alles. Ich hab ehrlich gesagt keine Idee mehr :(

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sheets(last) müsste jedenfalls funktionieren, ...
23.08.2013 18:34:05
Luc:-?
…SK;
bei wert kommt es ggf auf die Deklarierung an, aber du kannst ja auch Konstanten anlegen, denn so flexibel scheint das ja auch nicht zu sein, was du mit den Variablen machst. Also …
Const last$ = "MK3 KST", wert$ = "MK3 DA, MK3 KST"
Da man Konstanten ebenso wie Variablen am PgmAnfang deklariert, dürfte eine ggf spätere Änderung recht einfach sein.
Im Übrigen halte ich solche Blattnamen für kontraproduktiv – Leerzeichen sollte man besser vermeiden! (Viell liegt's ja gerade daran!)
Gruß Luc :-?

AW: Sheet(Array(..)).Select funktioniert nicht
24.08.2013 08:52:16
Beverly
Hi,
also bei mir funktioniert es so korrekt:
   Dim last As Variant
last = Array("MK3 DA", "MK3 KST")
Sheets(last).Copy
Übrigens: bei "Excel Gut" solltest du eigentlich wissen, dass man in VBA zu 99% aller Fälle auf Select/Activate verzichen tann. ;-)

Anzeige
AW: Sheet(Array(..)).Select funktioniert nicht
26.08.2013 15:04:39
SK
Select und Activate habe ich nur zum Debuggen drin, weil es nicht funktioniert.
Das hier funktioniert bei mir auch:
   Dim last As Variant
last = Array("MK3 DA", "MK3 KST")
Sheets(last).Copy
Wenn ich die sheets allerdings dynamisch ermittle, klappt es eben nicht.
Ich habe auch schon versucht, statt des Namens den Index zu verwenden, allerding mit dem selben Problem.
Nochmal zum Hintergrund, das Blatt enthält immer 2 zusammengehörige Arbeitsblätter "....DA" und "....KST). Für jedes Paar soll ein neues Excel-File mit jeweils diesen 2 Blättern erstellt werden. Meine Arrays sehen auch gut aus und enthalten jeweils immer die beiden Sheets, aber das copy schmeist mir dann immer in jedes der Files alle Blätter rein.

Anzeige
AW: Sheet(Array(..)).Select funktioniert nicht
26.08.2013 15:23:41
SK
Hier nochmal der saubere Code. Zum Testen baue ich wert hier als string auf, vorher war das ein array. Funktioniert aber geauso wenig:

For i = 0 To UBound(ste)
wert = ""
For Each Blatt In ActiveWorkbook.Worksheets
If InStr(Blatt.Name, ste(i)) Then
If wert  "" Then
wert = wert & ", "
End If
wert = wert & Blatt.Index
End If
Next Blatt
Sheets(Array(wert)).Copy
ActiveWorkbook.SaveAs Pfad1 & ste(i), FileFormat:=xlExcel8
Next

AW: Sheet(Array(..)).Select funktioniert nicht
26.08.2013 16:08:54
Beverly
1. du baust einen String!! zusammen, Excel benötigt aber ein Array. Entweder du schreibst die Tabellennamen per Schleife in ein Array oder du erstellst aus deinem String per Split ein Array
2. geht das nur mit dem Blattnamen und nicht dem Index

Anzeige
AW: Sheet(Array(..)).Select funktioniert nicht
26.08.2013 16:26:59
SK
Hab den entscheidenden Tipp auch grad gefunden: 

Dim ws() As Variant
For i = 0 To UBound(ste)
Erase ws()
k = 0
For Each Blatt In ActiveWorkbook.Worksheets
If InStr(Blatt.Name, ste(i)) Then
ReDim Preserve ws(0 To k)
ws(k) = Blatt.Index
k = k + 1
End If
Next Blatt
Sheets(ws).Copy
ActiveWorkbook.SaveAs Pfad1 & ste(i), FileFormat:=xlExcel8
ActiveWorkbook.Close
Next
Index geht übrigens auch ;)
Wichtig war, den Array als Variant anzulegen, als String und mit Blatt.Name ging auch nicht - strange.
Was mich wundert, dass wenn ich statisch angebe Sheets(Array("...","...")).copy es funktioniert, wenn ich "...","..." zur Laufzeit einsetze nicht. Muss man erstmal drauf kommen.

Anzeige
ReDim ... ws(0 To k) muss man idR nicht ...
26.08.2013 18:34:45
Luc:-?
…SK,
ws(k) genügt, denn Index 0 für das 1.Element ist Standard, es sei denn, du hast etwas anderes eingestellt.
Gruß Luc :-?

300 Forumthreads zu ähnlichen Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Anzeige
Attachment anhängen funktioniert nicht
Ano

Hi zusammen,
ich habe hier im Forum einen Artikel (https://www.herber.de/forum/archiv/636to640/t638281.htm#638285)
gefunden, der den Emailversand über GroupWise darstellt. Das VBA-Script funktioniert hervorragend. Allerdings nur, wenn ich kein Attachment anhänge.
Ich möchte eigentli...
28.08.2008 11:23:27
Thread-ID: 1005349
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Anzeige
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
DisplayHeading funktioniert nicht für alle Sheets
Backblech

Hallo liebe Leute,
ich würde gerne in meiner Excel-Datei auf allen Sheets die Zeilen- und Spaltenbeschriftungen ausblenden. Normalerweise geht das ja ganz einfach mit:
Application.ActiveWindow.DisplayHeadings = False
Soweit, so gut, aber in meiner Datei werden bei Aufruf des Befehls...
22.09.2008 10:55:07
Thread-ID: 1011404
5 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge

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
2
1
3
2
5
3
7
4
2
2
6
2
2
7
6
4
1
1
7
4
2
4
2
4