Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheets gruppieren und Speichern - VBA ???

Forumthread: Sheets gruppieren und Speichern - VBA ?

Sheets gruppieren und Speichern - VBA ?
14.04.2005 13:45:47
ralle
Hallo liebes Forum!
Möchte folgendes per Makro umsetzten:
Ich habe eine Arbeitsmappe mit ca 100 sheets. Diese habe als Bezeichnung eine 5stellige Nummer. Nun soll per Makro die sheets 10000, 10001 und 10002, in eine neue Arbeitsmappe gepackt werden und in der Ursprungsmappe gelöscht werden. Diese neue Arbeitsmappe soll dann im Ordner C:\Arbeitsmappe1 gespeichert werden.
Das selbe soll dann mit den sheets 20000, 20001, 20002 und 20003 (diese sollen im Ordner C:\Arbeitsmappe2 gespeichert werden) und mit den sheets 30000, 30001, 30002 und 30003 (diese sollen im Ordner C:\Arbeitsmappe3 gespeichert werden) passieren.
Ich hoffe ihr versteht mein Problem und könnt mir helfen. bin für jede Hilfe von Euch dankbar.
Gruß
ralle
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets gruppieren und Speichern - VBA ?
14.04.2005 14:37:58
Rolf
Hallo ralle,
schau mal, ob das passt.
fG
Rolf
Option Explicit

Sub sheets_copy()
'Rolf Beißner.hf.14.4.05
Dim cwb As Object, wb As Object, s As Object
Dim i As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set cwb = ThisWorkbook
For i = 1 To 3
Set wb = Workbooks.Add
wb.SaveAs Filename:="C:\Arbeitsmappe" & i & ".xls"
For Each s In cwb.Sheets
If Val(Left(s.Name, 1)) = i Then
s.Copy after:=wb.Sheets(wb.Sheets.Count)
End If
Next
wb.Sheets(1).Delete
wb.Close SaveChanges:=True
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Datei "umspeichern" - VBA
Wolfgang

Hallo,
mit untenstehendem Code werden Daten aus einer tmp-Datei importiert. Es wird immer die zuletzt generierte Datei angesprochen. Seit geraumer Zeit wird nun diese tmp-Datei in einem UTF-8-Format "geliefert", welches dazu führt, dass die Umlaute nicht sauber importiert werden. Nun kam mi...
21.09.2008 14:46:00
Thread-ID: 1011301
4 Beiträge
Speichern-unter Dialog
steffen

Hallo,
wie kann ich es anstellen, dass im Speichern-Unter-Dialog
Application.Dialogs(xlDialogSaveAs).Show
kein Dateiname vorgegeben wird, also das Feld "Dateiname" leer ist?
Toll wäre noch, das Abbrechen des Dialogfensters zu unterbinden, so dass man gezwungen wird, einen Date...
06.10.2008 14:49:20
Thread-ID: 1014454
5 Beiträge
Anzeige
Ab aktiver Datei speichern und VBA-Code löschen?
Selma

Hallo zusammen,
ich möchte nur das Arbeitsblatt "Vorlage" über das Dialog "Speichern unter" speichern. Als Dateiname soll Name der aktive Datei_ + Weitergabe.xls vorgeschlagen werden.
Beispiel für Dateiname: Berechnungsblatt_2008_Weitergabe.xls
In der gespeicherte Datei sollen erstm...
25.10.2008 11:15:00
Thread-ID: 1019168
5 Beiträge
Anzeige
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
Anzeige
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
arbeitsmappe öffnen, speichern und schließen
otto

Hi,
ich habe eine Arbeitsmappe mit einer Webabfrage.
Beim starten des PC öffnet sich die Arbeitsmappe(Autostart) und im Workbook.Open Ereignis wird die Abfrage aktualisiert.
Nun möchte ich, dass die Arbeitsmappe nach der Aktualisierung automatisch gespeichert und geschlossen wird. W...
27.08.2009 11:35:34
Thread-ID: 1098953
3 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
VBA - Datei speichern wenn Zelle AI1 erreicht
Stef@n

Hallo Excel-aner ;)
Ich arbeite mit einem Code, der der Reihe nach die Zeile 1 von der Spalte C1 bis AI1 "abarbeitet".
Nachdem der Code die Zelle AI1 abgearbeitet hat, soll die Datei gespeichert werden.
...
For Spalte = 3 To .Cells(1, Columns.Count).End(xlToLeft).Column 'die l...
24.11.2009 09:57:10
Thread-ID: 1119667
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige