Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Blatt in neues Workbook speichern...
zurück: Einzelnes Blatt in bestimmten Ordner speichern!? weiter: Hilfe mein Studium ist nutzlos, Java anstatt Makros gelernt Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Evelyn.A
Beginner in VBA


Verfasst am:
29. Okt 2009, 16:01
Rufname: Evelyn

Blatt in neues Workbook speichern... - Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

Liebe VBA Freunde
Ich möchte aus einer Mappe ein Blatt (es ist immer Tabelle5, hat aber immer einen anderen Namen) in ein neues Wkb speichern. Das neue Wkb soll im gleichen Ordner wie Quellmappe. Jetzt kommt aber der Hacken! Die neue Mappe soll den Namen aus dem Blatt (Tabelle5 Zelle F7)erhalten, welches gerade ´reinkopiert wurde. Der Text in der Zelle lautet z.B 4Maier.xlsx; er ergibt sich aus dem Blattnamen und .xlsx weches in F7 zusammengefügt wurde. Das ist aber nicht wichtig.
Sehrwohl wichtig ist, dass der Mappenname aus F7 zu holen ist!
Buh, ich hoffe meine Fragestellung ist verständlich!
Ich hab´schon an einem Code herumgebastelt, - allein er funktioniert nicht!
Wer ist so lieb und unterstützt mich bei meinem Problem?
Liebe Grüße
Evelyn

Code:

Sub test8()
' test die Achte
Dim wbkOrg As Workbook
Dim wbkNeu As Workbook
Dim sheets As sheets
    Application.SheetsInNewWorkbook = 1
    Set wkbNeu = Workbooks.Add
    Set sheets = Tabelle5
    Application.SheetsInNewWorkbook = 3
    sheets("Tabelle5").Copy Before:=Workbooks("wkbNeu").sheets(1)
    ActiveSheets.Copy
    wkbNeu.SaveAs ThisWorkbook.Path &"\Filename:=Range("F7").Value"
    wkbNeu.Close
End Sub

_________________
Wer nicht fragt, bekommt keine Antwort...
RO_SCH
Mädchen für (fast) alles


Verfasst am:
29. Okt 2009, 18:29
Rufname: Roland
Wohnort: Nürnberg


AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

Hi Evelyn,

versuch es mal so
Code:
Sub test8()
' test die Achte
Dim wbkOrg As Workbook
Dim wbkNeu As Workbook
Dim Sh As Worksheet
Dim oldSiNW As Integer

    oldSiNW = Application.SheetsInNewWorkbook '*** merken ***
    Application.SheetsInNewWorkbook = 1 '*** ändern ***
   
    Set wkbNeu = Workbooks.Add
    Set Sh = ThisWorkbook.Worksheets(5) '*** falls Tabelle5 das 5. von links ist ***
   
    Application.SheetsInNewWorkbook = oldSiNW '*** zurück stellen ***
   
    Sh.Cells.Copy Destination:=wkbNeu.Sheets(1).Range("A1")
   
    wkbNeu.SaveAs ThisWorkbook.Path & Sh.Range("F7").Value
    wkbNeu.Close
End Sub


Hilft dir das weiter ?!?

_________________
De nihilo nihil fit

Gruß Roland
Evelyn.A
Beginner in VBA


Verfasst am:
29. Okt 2009, 19:00
Rufname: Evelyn

AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

Hallo Roland
Ich habe gleich eine Fehlermeldung in der Zeile "Set wkbNeu = workbooks.Add"
Objektvariable oder With Blockvariable nicht festgelegt.
Für "wkbNeu" steht doch eine Definition da!
Also so ganz verstehe ich das nicht.

_________________
Wer nicht fragt, bekommt keine Antwort...
Gast



Verfasst am:
29. Okt 2009, 19:26
Rufname:

AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

Hey Evelyn, vielleicht reicht Dir das:
Code:

Sub tst()
Dim pfad As String
pfad = ThisWorkbook.Path & "\"
Sheets(5).Copy 'evtl. Sheets("Tabelle5").Copy
ActiveWorkbook.SaveAs pfad & Sheets(1).Range("F7").Value
ActiveWorkbook.Close
End Sub

Gruß Frank
RO_SCH
Mädchen für (fast) alles


Verfasst am:
29. Okt 2009, 19:36
Rufname: Roland
Wohnort: Nürnberg


AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

Hi Evelyn,

der Tippfehlerteufel hat wieder mal zugeschlagen !!!

wkbNeu ist nicht wbkNeu schau mal ganz genau hin Embarassed

Deshalb sollte man immer mit 'Option Explicit' arbeiten, dann passiert sowas nicht.

_________________
De nihilo nihil fit

Gruß Roland
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Okt 2009, 19:47
Rufname: Phelan

AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

@Rosch,

Zitat:
Sub test8()
.
.
.
oldSiNW = Application.SheetsInNewWorkbook '*** merken ***
Application.SheetsInNewWorkbook = 1 '*** ändern ***
.
.
Application.SheetsInNewWorkbook = oldSiNW '*** zurück stellen ***
.
.

End Sub


wenn ich dir nen Tip geben darf. Smile Smile
das Zitat kannst du hierdurch ersetzen:
Code:
Workbooks.Add xlWorksheet

Fügt ein Mappe mit einem Blatt hinzu.

...habs früher auch so gemacht, bis ich dies entdeckte.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
RO_SCH
Mädchen für (fast) alles


Verfasst am:
29. Okt 2009, 19:54
Rufname: Roland
Wohnort: Nürnberg

AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

@Phelan:
Danke für den Tipp, kannte ich tatsächlich noch nicht. Wink
Ist in Excel 2003 wieder mal ein nicht dokumentiertes Feature Sad

dadurch hieße der Code jetzt so
Code:
Sub test8()
' test die Achte
Dim wbkNeu As Workbook
Dim Sh As Worksheet
   
    Set wbkNeu = Workbooks.Add(xlWorkSheet)
    Set Sh = ThisWorkbook.Worksheets(5) '*** falls Tabelle5 das 5. von links ist ***
   
    Sh.Cells.Copy Destination:=wbkNeu.Sheets(1).Range("A1")
   
    wbkNeu.SaveAs ThisWorkbook.Path & Sh.Range("F7").Value
    wbkNeu.Close
End Sub

_________________
De nihilo nihil fit

Gruß Roland


Zuletzt bearbeitet von RO_SCH am 29. Okt 2009, 19:58, insgesamt einmal bearbeitet
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Okt 2009, 19:57
Rufname: Phelan

AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

das sieht doch richt kurz und effizient aus Smile Smile Smile
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Evelyn.A
Beginner in VBA


Verfasst am:
30. Okt 2009, 02:36
Rufname: Evelyn

AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

Ihr seid eine Wucht es klappt fast alles. Es gibt nur ein glitzerkleines Manko. Die Datei wird in einem übergeordneten Ordner gespeichert - ist mir nicht klar, denn meine Ausgangsdatei ist eindeutig einen Ordner tiefer. "Rechnungen> Rechnungenablage"
Und die Datei hat jetzt den alten Namen & F7. Ich wollte nur den Wert aus F7 als Dateiname. Glaubt Ihr, ihr würdet das hinbekommen?
Wenn nicht, tausend Dank für die Bemühungen, Ihr habt mir sehr geholfen.
Gute Nacht
Evelyn Wink

_________________
Wer nicht fragt, bekommt keine Antwort...
Evelyn.A
Beginner in VBA


Verfasst am:
30. Okt 2009, 03:05
Rufname: Evelyn

AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

Liebe Freunde
Ein Problem habe ich (abstrakt) lösen können. Ich hab´einfach noch einen Unterordner erstellt, die Orginaldatei dort reinkopiert und so hab´ich meine Kopie an der richtigen Stelle. Mir ist egal, aus welchem Ordner ich die Org.-Datei aufrufe!
Aber vielleicht könntet Ihr mir bitte noch mit dem Dateinamen helfen?
So, nun muß ich auch ins Bett.
Gute Nacht
Evelyn Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy

_________________
Wer nicht fragt, bekommt keine Antwort...
Phelan XLPH
Fortgeschritten


Verfasst am:
30. Okt 2009, 12:36
Rufname: Phelan

AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

statt:
Zitat:
wbkNeu.SaveAs ThisWorkbook.Path & Sh.Range("F7").Value

das:
Zitat:
wbkNeu.SaveAs ThisWorkbook.Path & "\" & Sh.Range("F7").Value

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Evelyn.A
Beginner in VBA


Verfasst am:
30. Okt 2009, 16:26
Rufname: Evelyn


AW: Blatt in neues Workbook speichern... - AW: Blatt in neues Workbook speichern...

Nach oben
       Version: Office 2007

Hallo Glücksritter76
I´m Very Happy .! Funktioniert perfekt.
Vielen Dank für Deine Hilfe!!!!!! Und natürlich auch ein großes Danke an RO SCH!!!!
Liebe Grüße
Evelyn Wink

_________________
Wer nicht fragt, bekommt keine Antwort...
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: vo einem blatt auf ein anderes einfügen 1 Gast11 502 19. Okt 2007, 14:18
syme vo einem blatt auf ein anderes einfügen
Keine neuen Beiträge Excel Formeln: Text aus Zelle in andere Zelle / Blatt ziehen 3 Hpalli 1410 20. Sep 2007, 00:23
Detlef 42 Text aus Zelle in andere Zelle / Blatt ziehen
Keine neuen Beiträge Excel Formeln: Liste aus verschiedene Tabellen zusammentragen in 1 Blatt 1 woelmuis 1797 18. Jun 2007, 17:31
natan Liste aus verschiedene Tabellen  zusammentragen in 1 Blatt
Keine neuen Beiträge Excel Formeln: Ein Blatt/Übergabebescheinigung für jeden Datensatz - wie??? 5 xhutzelx 2403 12. Jun 2007, 19:15
Günni Ein Blatt/Übergabebescheinigung für jeden Datensatz - wie???
Keine neuen Beiträge Excel Formeln: Eingaben fortlaufend auf anderes Blatt übertragen 0 Lieschen100 2104 26. Mai 2007, 11:31
Lieschen100 Eingaben fortlaufend auf anderes Blatt übertragen
Keine neuen Beiträge Excel Formeln: Kundendaten speichern 5 ANTIVIRUS 1488 15. Mai 2007, 08:17
urs Kundendaten speichern
Keine neuen Beiträge Excel Formeln: WieVerknüpfung von einem Blatt zum Anderen mit Felderkennung 2 KC 805 10. Apr 2007, 22:22
Gast WieVerknüpfung von einem Blatt zum Anderen mit Felderkennung
Keine neuen Beiträge Excel Formeln: Formel auf Blatt 3 100Morpheus 578 01. Apr 2007, 19:52
100Morpheus Formel auf Blatt
Keine neuen Beiträge Excel Formeln: Daten automatisch speichern 1 sigi.hs 882 20. Dez 2006, 23:23
sigi.hs Daten automatisch speichern
Keine neuen Beiträge Excel Formeln: Summe bilden - Wert speichern *fridgenep* 6 Casiopaja 977 27. März 2006, 12:48
Casiopaja Summe bilden - Wert speichern *fridgenep*
Keine neuen Beiträge Excel Formeln: Eine Tabelle teilweise in ein anderes Blatt übertragen 4 Sita 875 26. Jan 2006, 09:11
Sita Eine Tabelle teilweise in ein anderes Blatt übertragen
Keine neuen Beiträge Excel Formeln: Formeln speichern 6 Joerg112 802 15. Okt 2005, 19:45
Joerg112 Formeln speichern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS