Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Tomschi vom 31.08.2019, 07:35 Options
Daten von Mappe A nach Mappe B kopieren
Guten Morgen!
Vielleicht kann mir jemand weiterhelfen.
Ich erzeuge aus einem Programm eine "temporäre" Excel-Datei.
"Temporär" = Datei wurde noch nicht gespeichert, bekommt jedoch standardmäßig einen Dateinamen der ~ beinhaltet.
Beispiel: ~17.xls
Nun möchte ich gerne sämtliche offenen Excel-Dateien auf den Dateinamen ~ hin überprüfen.
Falls es eine Datei mit ~ im Namen gibt, sollen aus dem ersten = einzigen Blatt (Blattname = Dateiname --> ~17) die Werte in eine andere (bereits offene) Mappe, Blatt Rohdaten kopiert werden.
Läßt sich das umsetzen?
Wünsche bereits jetzt ein schönes Wochenende!
Tom
Vielleicht kann mir jemand weiterhelfen.
Ich erzeuge aus einem Programm eine "temporäre" Excel-Datei.
"Temporär" = Datei wurde noch nicht gespeichert, bekommt jedoch standardmäßig einen Dateinamen der ~ beinhaltet.
Beispiel: ~17.xls
Nun möchte ich gerne sämtliche offenen Excel-Dateien auf den Dateinamen ~ hin überprüfen.
Falls es eine Datei mit ~ im Namen gibt, sollen aus dem ersten = einzigen Blatt (Blattname = Dateiname --> ~17) die Werte in eine andere (bereits offene) Mappe, Blatt Rohdaten kopiert werden.
Läßt sich das umsetzen?
Wünsche bereits jetzt ein schönes Wochenende!
Tom
Antwort 1 von Hajo_Zi vom 31.08.2019, 08:29 Options
Hallo Tom,
zum prüfen folgender Ansatz, der angepast werden muss.
Dim BoOffen As Boolean
BoOffen = False
For Each x In Workbooks
If x.Name = "Auftragsplanung Übersicht.XLS" Then
Workbooks("Auftragsplanung Übersicht.XLS").Save
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then Workbooks.Open Filename:=StNetz & "Auftragsplanung Übersicht.XLS", Password:=StDatei
Gruß Hajo
zum prüfen folgender Ansatz, der angepast werden muss.
Dim BoOffen As Boolean
BoOffen = False
For Each x In Workbooks
If x.Name = "Auftragsplanung Übersicht.XLS" Then
Workbooks("Auftragsplanung Übersicht.XLS").Save
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then Workbooks.Open Filename:=StNetz & "Auftragsplanung Übersicht.XLS", Password:=StDatei
Gruß Hajo
Antwort 2 von Tomschi vom 31.08.2019, 09:03 Options
Hallo Hajo!
Danke, dass Du Dich meiner Problemstellung angenommen hast!
Werde mir den Code am Wochenende mal durch den Kopf gehen lassen.
Kurz noch eine Frage:
Wie kann ich im (temporären) Dateinamen auf ~ prüfen?
Gibt es in VBA quasi einen Befehl wie finden/suchen?
Tom
Danke, dass Du Dich meiner Problemstellung angenommen hast!
Werde mir den Code am Wochenende mal durch den Kopf gehen lassen.
Kurz noch eine Frage:
Wie kann ich im (temporären) Dateinamen auf ~ prüfen?
Gibt es in VBA quasi einen Befehl wie finden/suchen?
Tom
Ähnliche Themen
Suchen und Ersetzen
Diskshut 05.01.2007 - 80 Hits -
Excel Fernbezüge
Manni55 13.05.2007 - 108 Hits - 2 Antworten
wie übernehme ich daten von einer mappe in ne andere mappe?
alpha_industries 11.12.2007 - 67 Hits - 3 Antworten
WENN-Formel
Wartenix 08.02.2008 - 39 Hits - 2 Antworten
suchen und überschreiben
compill 24.06.2008 - 48 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
