Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datei erstellen und Speichern. Zielpfad durch zelle def
zurück: opie und paste, von einem sheet ins andere über combo box weiter: Zelle auslesen (Dateiname) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Shortys!
Gast


Verfasst am:
20. Sep 2012, 09:37
Rufname:

Datei erstellen und Speichern. Zielpfad durch zelle def - Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Guten Morgen!

Gegeben: Exceldatei "Alles.xlsm"
per makro will ich eine neue Datei erstellen.

Code:
Sub test()
    Workbooks.Add
End Sub

Die neu erstellte Mappe will ich jetzt zusätzlich mit dem selben Makro speichern.


Speicherort und Dateiname soll im Tabellenblatt ("Tabelle1") meiner Exceldatei"Alles.xlsm" in Zelle A1 festgelegt werden.

z.B A1 = C:\Documents and Settings\uidv6836\Desktop\testtest1.xlsx

dann soll hier abgespeichert werden.

hab schon rumprobiert, aber es will nicht so ganz...

Code:
    ActiveWorkbook.SaveAs Filename:=Worksheets("alles.xlsm").Value("A1")


Hoffe ich hab mein Anliegen verständlich erklären können.

Wäre sehr nett, wenn sich wer zeit nehmen könnte.

Vielen Dank,

Alex
Shortys!
Gast


Verfasst am:
20. Sep 2012, 10:02
Rufname:


AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Hallo,

Ich habs jetzt nochmal etwas rumprobiert. Wenn ich in Zelle A1 das Dateityp for .xlsx auf .xls ändere funktionierts... warum ist das so?

Code:
ActiveWorkbook.SaveAs Range("A1").Value


Danke.
Gruß
Alex
EtoPHG
Ich sehe dunkle Zeiten aufziehen...


Verfasst am:
20. Sep 2012, 10:05
Rufname: Hansueli

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Hallo Alex,

Da liegt aber einiges im Argen.
Zitat:
Die neu erstellte Mappe will ich jetzt zusätzlich mit dem selben Makro speichern.

Dann macht es keinen Sinn eine neue (leere) Arbeitsmappe zu erstellen, sondern ein .SaveAs der Mappe mit dem Macro zu machen und dann aus dieser Kopie die unbenutzten Teile zu löschen.

...und zu deinem Code: Hast du wirklich ein Tabellenblatt mit dem Namen "alles.xlsm" in der aktiven Arbeitsmappe? Ich glaube da ist einiges durcheinander! Very Happy

Gruess Hansueli

_________________
Forenhelfer danken für eine Rückmeldung!
Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow
Gast



Verfasst am:
20. Sep 2012, 11:32
Rufname:

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Hi Hansueli,

Danke für deine Antwort, ich hab hier nur einen Teil meines Vorhabens geschilder ^^

Ich fang am besten jetzt mal am Anfang an. Smile

folgendes Makro soll, wenn in spalte B ein "X" steht A & B in ein neue Mappe einfügen. Es sollen alle Zeilen geprüft werden. erst dann ist der Speichervorgang relevant.



Code:
Sub Makro_Test()
Workbooks.Add
    Dim i, k As Long
    k = ActiveWorkbook.Sheets("tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 3 To ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
        If ThisWorkbook.Sheets("tabelle1").Cells(i, 2) = "X" Then
            ThisWorkbook.Sheets("tabelle1").Range("A" & i & ":B" & i).Copy
            ActiveBook.Sheets("tabelle1").Range("A" & k & ":B" & k).Paste
            k = k + 1
        End If
    Next i
End Sub


Vielen Dank,

beste Grüße
Alex
shortys!
Gast


Verfasst am:
20. Sep 2012, 11:37
Rufname:


AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Jetzt hab ich vergessen zu antworten^^ Nein ich hab keine Datei mit Namen "alles" ich hab mir alles für ein einfaches beispiel ausgedacht. Anpassen kann ich mir ja selber.

Und das übertragungsmakro funktioniert nicht. Es zeigt keine fehlermeldung aber übertragen tut es nix....+
Gruß
alex
Nicolaus
Hobby-VBAler


Verfasst am:
20. Sep 2012, 11:51
Rufname: Nic
Wohnort: Rhein Main Gebiet

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Hi,

das hängt schon mal hier:
Zitat:
ActiveBook.Sheets("tabelle1").Range("A" & k & ":B" & k).Paste

Das muss wohl ActiveWorkbook heissen

Schreib im VBA editor mal ganz oben über deine Codes
Code:
Option Explicit

Dann solltest du solche Fehler sofort sehen.

Gruss
Nic

_________________
die Forenhelfer freuen sich über eine Antwort
Shortys!
Gast


Verfasst am:
20. Sep 2012, 12:56
Rufname:

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Danke für den Tipp, aber das kopieren funktioniert immer nocht nicht.
Nicolaus
Hobby-VBAler


Verfasst am:
20. Sep 2012, 13:16
Rufname: Nic
Wohnort: Rhein Main Gebiet

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Hi,

ändere mal dein Copy/Paste in eine Zeile:
Code:
            ThisWorkbook.Sheets("tabelle1").Range("A" & i & ":B" & i).Copy ActiveWorkbook.Sheets("Tabelle1").Range("A" & k)

oder, wenn du nur die Werte brauchst in:
Code:
ActiveWorkbook.Sheets("Tabelle1").Range("A" & k & ":B" & k) = ThisWorkbook.Sheets("tabelle1").Range("A" & i & ":B" & i).Value
Gruss
Nic

_________________
die Forenhelfer freuen sich über eine Antwort
EtoPHG
Ich sehe dunkle Zeiten aufziehen...


Verfasst am:
20. Sep 2012, 13:17
Rufname: Hansueli

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Hallo Alex,

Zitat:
das kopieren funktioniert immer nocht nicht.
ist eine Null-Information, mit der man keine vernünftige Analyse machen kann!

Hast du die Option Explicit Anweisung in allen Codemodulen eigebaut?
Kommte eine Fehlermeldung? Wenn ja auf welcher Codezeile?

Gruess Hansueli

_________________
Forenhelfer danken für eine Rückmeldung!
Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow
Shortys!
Gast


Verfasst am:
20. Sep 2012, 14:38
Rufname:

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Danke für eure unterstützung. Ich probiers gleich aus.

Option Explicit habe ich für alle Module.
Es kommt keine Fehlermeldung... es wird ein neues workbook erstellt. sonst passiert nix.

Hab noch eine neue Idee, wie ich das machen könnte. Gebe euch später Rückmeldung.
Vielen Dank!!!
Gruß
Alex
Shortys!
Gast


Verfasst am:
20. Sep 2012, 16:02
Rufname:

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Hallo zusammen. Ich bin jetzt um einiges weiter gekommen.

Der Code ist beschrieben. Der unterste Teil funktioniert leider nicht... wenn ich ihn getrennt starte geht es aber... Wer nett wenn wer von euch Spezialisten einen Blick darauf werfen würde.

Vielen Dank
Gru´ß
Alex

Code:
Option Explicit
Sub BS_Übertragung()

Application.ScreenUpdating = False
With Sheets("Comparison")
'Filterung nach "BS"
    If Sheets("Comparison").AutoFilterMode Then
       Sheets("Comparison").Range("A2:BF10").AutoFilter
    End If
    .Range("$A$2:$U$9").AutoFilter Field:=1, Criteria1:="BS"
'Kopiervorgang alle "BS" Zeilen in neues Arbeitsblatt
    Dim lastCell2 As Long, lastColumn1 As Integer
    lastCell2 = Sheets("comparison").Range("A65536").End(xlUp).Row
    lastColumn1 = Sheets("comparison").UsedRange.Columns.Count
        Sheets.Add.Name = "comparison'BS"
            With ActiveWorkbook.Sheets("comparison'BS").Tab
                .Color = 49407
            End With
    Sheets("comparison").Select
    Range(Cells(1, 1), Cells(lastCell2, lastColumn1)).Copy
    With Sheets("Comparison'BS")
        .Range("A1").PasteSpecial
    End With
    Application.CutCopyMode = False
End With
'Übertragung der benötigten Tabellenblätter in neue mappe.
    Sheets(Array("Agenda", "report", "Comparison'BS", "Plant", "Segment Map", _
        "Cost Criteria")).Select
    Sheets("Agenda").Activate
    Sheets(Array("Agenda", "report", "Comparison'BS", "Plant", "Segment Map", _
        "Cost Criteria")).Copy

'Bis hier funktioniert mein code
'*************
'Jetzt möchte ich die neue Datei speichern. Pfad ist in A1 und Dateiname ist in B1 festgelegt.
ActiveWorkbook.SaveAs Range("A1").Value & Range("B1").Value & ".xlsx"
' dieser Teil wird immer im Debuggmodus angzeigt.

Application.ScreenUpdating = True
End Sub
Nicolaus
Hobby-VBAler


Verfasst am:
20. Sep 2012, 16:57
Rufname: Nic
Wohnort: Rhein Main Gebiet

AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

Hi,

was steht denn zu dem Zeitpunkt in A1 und B1 ?
Sind da vieleicht nicht erlaubte Zeichen drin, oder fehlt dazwischen ein "\" ?

Bist du auf der richtigen Tabelle ? Die beiden Ranges sind ohne Sheetangabe.

Gruss
Nic

_________________
die Forenhelfer freuen sich über eine Antwort
Shortys!
Gast


Verfasst am:
21. Sep 2012, 09:08
Rufname:


AW: Datei erstellen und Speichern. Zielpfad durch zelle def - AW: Datei erstellen und Speichern. Zielpfad durch zelle def

Nach oben
       Version: Office 2007

guten Morgen Nic
In Zelle A1: C:\Documents and Settings\uidv6836\Desktop\
In Zelle B1: YPC-CV

Code:
ActiveWorkbook.SaveAs Sheets("Agenda").Range("A1").Value & Sheets("Agenda").Range("B1").Value & ".xlsx"


Ich hab jetzt nochmal das Sheet hinzugefügt. Hab eigentlich gedacht, dass ich automatisch in dieser tabelle bin. Weil diese die erste ist.
Naja... aufjedefall klappt das mit dem speichern jetzt. super DANKE!!!

Du hast mir sehr geholfen! Hansueli, dir auch vielen Dank.
Schönen Tag noch.

Beste Grüße,
Alex
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: Zelle soll automatisch farbig sein 14 claudy 3176 19. Jun 2006, 00:03
Gast Zelle soll automatisch farbig sein
Keine neuen Beiträge Excel Formeln: erste Zeichen einer Zelle in andere kopieren 2 fisler0815 3067 11. Okt 2004, 15:37
fisler0815 erste Zeichen einer Zelle in andere kopieren
Keine neuen Beiträge Excel Formeln: Datenbankabfragen um einen Bericht zu erstellen -> DBAUSZ 1 Gast 711 05. Okt 2004, 16:20
fl618 Datenbankabfragen um einen Bericht zu erstellen -> DBAUSZ
Keine neuen Beiträge Excel Formeln: Letzten drei Ziffern aus einer Zelle filtern?? 7 Ben 3398 23. Sep 2004, 13:39
Gast Letzten drei Ziffern aus einer Zelle filtern??
Keine neuen Beiträge Excel Formeln: Auslesen mehrer Zahlen aus einer Zelle 7 coatin27 3379 11. Aug 2004, 15:18
Arnim Auslesen mehrer Zahlen aus einer Zelle
Keine neuen Beiträge Excel Formeln: Eigabe nur in einer Zelle zulassen 1 pkegelking 1645 11. Aug 2004, 10:42
icke Eigabe nur in einer Zelle zulassen
Keine neuen Beiträge Excel Formeln: Löschen des Zellinhaltes/von anderer Zelle 2 Gast 1962 07. Aug 2004, 23:32
Gast Löschen des Zellinhaltes/von anderer Zelle
Keine neuen Beiträge Excel Formeln: Auf Zellen einer Datei im Web verweisen. 1 kha 812 30. Jul 2004, 13:18
kha Auf Zellen einer Datei im Web verweisen.
Keine neuen Beiträge Excel Formeln: Erstellen eines Auswahlfeldes 9 Gast 682 23. Jul 2004, 11:47
Gast Erstellen eines Auswahlfeldes
Keine neuen Beiträge Excel Formeln: Extrahieren von Text bis zum ersten Semikolon einer Zelle 8 Gast 2949 13. Jul 2004, 18:59
Arnim Extrahieren von Text bis zum ersten Semikolon einer Zelle
Keine neuen Beiträge Excel Formeln: punkt am ende der zelle? 3 marKUSS 1815 08. Jul 2004, 14:26
Gast punkt am ende der zelle?
Keine neuen Beiträge Excel Formeln: Wort in Zelle immer mit Großbuchstaben beginnen 6 QWERT 2522 24. Jun 2004, 15:56
steve1da Wort in Zelle immer mit Großbuchstaben beginnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps