Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelnes Sheet speichern und wieder öffnen

Einzelnes Sheet speichern und wieder öffnen
04.03.2006 19:18:25
Schmitt
Moin moin,
ich bräuchte mal eure Hilfe.
Ich möchte aus einer Excel Datei ein einzelnes Sheet mittels VBA speichern bzw. in einem weiteren Schritt das einzelne wieder laden können und damit das bestehende überschreiben.
Leider finde ich nur die Möglichkeit wie man die gesamte Exceldatei speichert.
Weiß jemand wie es geht?
Vielen Dank
Volker

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

Betreff
Datum
Anwender
Anzeige
AW: Einzelnes Sheet speichern und wieder öffnen
04.03.2006 19:39:22
Horst
Hi,
in Excel kann immer nur eine Mappe mit min. einem Blatt gespeichert werden.
Warum so umständlic, du kannst das Blatt doch gleich "und damit das bestehende überschreiben."
mfg Horst
AW: Einzelnes Sheet speichern und wieder öffnen
04.03.2006 19:50:51
Schmitt
Ich würde ja gerne durchs speichern eine neue Mappe mit nur diesem einem Blatt anlegen, auf die ich dann zurückgreifen kann.
Davon will ich ja viele erstellen und nicht immer das ganze Programm mitabspeichern
AW: Einzelnes Sheet speichern und wieder öffnen
04.03.2006 19:59:16
Horst
Hi,
wie du ein Blatt in eine neue Datei verschiebst/kopierst, kannst du mit dem Rekorder aufzeichnen.
mfg Horst
AW: Einzelnes Sheet speichern und wieder öffnen
HansHei
Hallo Volker,
versuchs mal z.B. so:

Option Explicit
Sub wegdamit()
Application.ScreenUpdating = False
    Workbooks.Open Filename:= _
        "D:\Meine_Dateien_neu\Hans\Nebensheet.xls"
    Windows("Hauptsheet.xls").Activate
    Sheets("Test").Move Before:=Workbooks("Nebensheet.xls").Sheets(1)
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Sub herdamit()
Application.ScreenUpdating = False
    Workbooks.Open Filename:= _
        "D:\Meine_Dateien_neu\Hans\Nebensheet.xls"
    Sheets("Test").Move Before:=Workbooks("Hauptsheet.xls").Sheets(1)
    Windows("Nebensheet.xls").Activate
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Gruß
Hans
Anzeige
AW: Einzelnes Sheet speichern und wieder öffnen
06.03.2006 18:54:20
Schmitt
Ich habe die Zeilen mal ausprobiert.
Die Idee ist sehr gut.
Ich habe aber das move in
Sheets("Test").Move Before:=Workbooks("Hauptsheet.xls").Sheets(1)
durch ein copy ersetzt, da ich das Sheet vorerst in beiden Workbooks haben möchte.
Leider bekomme ich genau in dieser Zeile immer die Fehlermeldung die copy Methode des Worksheet Objektes konnte nicht ausgeführt werden.
Dabei kopiert er das Worksheet.
weiß jemand weiter?
Gruß
Volker
AW: Einzelnes Sheet speichern und wieder öffnen
HansHei
Hallo Volker,
kann ich nicht ganz nachvollziehen, was Du geändert hast. Anbei mal meine Beispieldatei. Kannst Du ja mal ändern und zurückschicken, oder den geänderten Code einstellen.
https://www.herber.de/bbs/user/31668.xls
Gruß
Hans
Anzeige
AW: Einzelnes Sheet speichern und wieder öffnen
06.03.2006 22:19:32
Schmitt
Ich habe es im Grunde genommen nur so geändert:

Sub wegdamit()
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"C:\Nebensheet.xls"
Windows("31668.xls").Activate
Sheets("Test").Copy Before:=Workbooks("Nebensheet.xls").Sheets(1)
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWindow.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

und in der vorhin beschriebenen Zeil taucht die Fehlermeldung auf. Acuh bei deinem Script, wie es jetzt oben steht, kommen Fehler.
Gruß
Volker
Anzeige
AW: Einzelnes Sheet speichern und wieder öffnen
HansHei
Hallo Volker,
ich kann in Deinem Code nicht erkennen, wo Du
das das move in
Sheets("Test").Move Before:=Workbooks("Hauptsheet.xls").Sheets(1)
durch ein copy ersetzt ersetzt hast. Bis auf den Pfade und den geänderten Namen des Hauptsheets, ist im Code alles unverändert, -kein copy.
Insofern kann ich die fehlermeldung nicht nachbauen. Es gäbe ja die Möglichkeit mit "If/on Error etc."
Gruß
Hans
PS. Mein Vorschlag basiert auf Excel 2003.

300 Forumthreads zu ähnlichen Themen

Wie bau ich den Code ein?
Baywatch

Hi
Habe unten schon einen Tread aufgemacht, wo es ums drucken geht und es gibt auhc jemanden der mir eine super ANtwort gegeben hat, nur leider weiß ich jetzt nicht, wei ich dies in mein Programm einbauen soll, kann mir ja jemand bei helfen?
https://www.herber.de/bbs/user/54811.xls
22.08.2008 13:44:00
Thread-ID: 1003844
5 Beiträge
Anzeige
Wie kann ich hier eine Schleife ...
Thomas

Hi Profis,
Wie kann ich hier eine Schleife einbauen sodas das Passwort nur einmal eingegeben wird und die Tabelle somit für einen Zeitraum von ca 60minuten freigeben wird. Den Code hab ich hier aus dem Archiv und an meine Bedürfnisse mit basteln angepasst. Er überwacht einen Zellbereich und...
02.02.2009 11:29:00
Thread-ID: 1046127
9 Beiträge
Webabfrage gibt Hyperlink nicht wieder
MBorn

Hallo,
auf der Seite von Wikipedia für Aston Villa http://de.wikipedia.org/wiki/Aston_Villa
gibt es einen Link zum Stadion dieser Fußballmannschaft.
Bei einer Excel-Webabfrage wird dieser Link nicht importiert. Trotz xlWebFormattingAll.
Weiß jemand, warum das so ist oder wie da...
09.02.2009 11:18:00
Thread-ID: 1048594
5 Beiträge
Anzeige
Wie Unterverzeichnisse einlesen
Mindjogger

Servus,
um mein Problem weiter herunterzubrechen moechte ich aus einem bekannten Verzeichnis die Datei index.html aus allen Unterverzeichnisssen einlesen.
Nur, wie starte ich das Filemodul um auf Verzeichnisse bzw. Dateien zuzugreifen?
So geht es nicht:
Private Function GetAO...
30.03.2009 17:39:40
Thread-ID: 1065364
6 Beiträge
Wie index.html aus allen Unterverzeichnissen einle
Mindjogger

Servus,
ich verzweifle an diesem Prlem bald. Ich moechte einfach in einem bekannten Verzeichnis durch alle Unterverzeichnise gehen und die dort leigende index.html einlesen.
Aber wie greife ich auf die Verzeichnisse zu bzw. wie bastle ich mir darum eine Schleife?
Ich habe nur die al...
01.04.2009 14:14:33
Thread-ID: 1066000
2 Beiträge
einzelne Zellen nicht schützen, wie?
dietmar

Hallo,
ich möchte bei einem EXCEL-Formular, dass man nur einzelne Zellen befüllen kann und der Rest des Formulars gesperrt ist. Die auszufüllenden Zellen (z.B. Name, Adresse, usw.) sollten durch Tab angewählt werden können. Zur Zeit kann ich nur einzelne Zellen sperren aber nicht umgekehrt?...
05.04.2009 22:41:32
Thread-ID: 1066974
6 Beiträge
Dateneingeben, Wegspeichern und wieder eingeben
Peter_weber

Liebes Forum,
bin blutiger aber lernwilliger VBA Anfänger.
Wahrscheinlich ist meine Frage schon Tausend mal gestellt worden und wird von den Experten mit einem wohlwollendem Lächeln begleitet.
Also, ich benötige Eure Unterstützung. Wie könnte ein einfaches VBA Progrämchen für mein...
09.04.2009 09:39:18
Thread-ID: 1067898
7 Beiträge
zahleneingabe tut nicht so wie sie soll
christoph

das eingeben von mehrstelligen zahlen funktioniert bei mir nicht.
wenn ich zahlen von 0-9 eingebe, werden diese korrekt angezeigt bzw berechnet. von 10-999 ersetzt sich der wert mit 0 oder 1. ab 1000 wird der wert nur dann korrekt dargestellt bzw berechnet, wenn ich ihn so eingebe: 1.000
13.07.2009 00:48:50
Thread-ID: 1088088
12 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
4
8
8
4
2
5
1
5
6
11
4
8
2
3
5
2
3
9
10
4
2
3
5
3
5