Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in neue Datei kop. und unter Datum speichern

Forumthread: Daten in neue Datei kop. und unter Datum speichern

Daten in neue Datei kop. und unter Datum speichern
23.10.2004 22:25:14
Niels
Hallo Excel-Helfer,
ich brauche mal wieder etwas Hilfe bei einem Projekt...
Als erstes möchte gern folgende Aktionen ausführen lassen.
* einen Zellbereich in der aktuellen Datei kopieren (A2:C31)
* eine neue Tabelle öffnen
* kopierten Zellbereich in A1:C30 einfügen
* "neue" Datei unter dem Datum, das in der Ursprungsdatei A1 steht(TT.MM.JJ),speichern(C:/aaa/TTMMJJJJ.xls).
* "neue" Datei (TTMMJJJJ.xls) schließen
In einer anderen Datei, möchte ich die abgespeicherten "Datumsdateien" wieder aufrufen...
* in A1 ein Datum eintragen (TT.MM.JJ)
* makro starten, der nach der zum Datum gehörigen Datei sucht und diese öffnet (TTMMJJJJ.xls)
* wenn Datei nicht vorhanden, soll Möglichkeit geboten werden, manuell nach Alternativdatei zu suchen (Browse) ... geht sowas?
* ... weiter Schritte bekomme ich dann allein hin ....
Ich hoffe Ihr könnt mir helfen, habe schon Euer Archiv durchsucht, kann aber nicht das richtige finden ;o(
Vielen Dank im Voraus
Niels
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in neue Datei kop. und unter Datum speichern
Marcl
Hallo Niels,
hier der 1. Teil Deines Makros. Weiter habe ich keine Ahnung. Kleiner Tip:
Mit dem Makrorekorder einfach die Schritte, die Du machen willst aufzeichnen.
Sub Makro1() dat = Range("A1") Range("A2:C31").Copy Workbooks.Add Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False pfadname = "C:\aaa\" & dat & ".xls" ActiveWorkbook.SaveAs Filename:=pfadname End Sub
Gruß
Marcl
Anzeige
AW: Daten in neue Datei kop. und unter Datum speichern
23.10.2004 23:11:59
Josef
Hallo Niels!
Kopiere diesen Code in deine Datei.

' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit

Sub Speichern()
Dim strName As String
Dim aktSHT As Worksheet
Dim newWKB As Workbook
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Set aktSHT = ActiveSheet
strName = "D:\Temp\" & Format(aktSHT.Range("A1"), "ddmmyyyy") & ".xls"
'Pfad anpassen
Set newWKB = Workbooks.Add
With newWKB
.Sheets(2).Delete
.Sheets(2).Delete
aktSHT.Range("A2:C31").Copy Destination:=.Sheets(1).Range("A1")
.SaveAs strName
.Close
End With
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub

Sub Oeffnen()
Dim strName As String
Dim fs As Object
strName = "D:\Temp\" & Format(ActiveSheet.Range("A1"), "ddmmyyyy") & ".xls"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileexists(strName) Then
Workbooks.Open (strName)
Else
strName = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If strName = False Then Exit Sub
Workbooks.Open (strName)
End If
End Sub
Gruß Sepp
Anzeige
Danke schön!
23.10.2004 23:46:07
Niels
Danke Euch beiden...
Ich werd´s morgen früh gleich ausprobieren
Viele Grüße
Niels
;

Forumthreads zu verwandten Themen

Excel-Sheet als text-Datei speichern
Florian

Hallo!
Ich habe nur eun kleines Problem:
Ich lasse per Makro ein Excel-Blatt als TXT-Datei abspeichern!
Das ist der Code hierfür:
Sub DB_Kündigung_erstellen() Sheets("Kündigung").Select Rows("1:2").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.DisplayAlert...
05.09.2008 09:57:00
Thread-ID: 1007593
5 Beiträge
Email versenden Outlook - Problem
Peter

Ich versende via Excel/VBA alle 3 Minuten ein Email.
Nun kommt es ca. 1x am Tag vor, dass Outlook Emails nicht sofort sendet und sich die Emails im Postausgang sammeln bis ich Outlook schließe und wieder öffne.
Danke für die Unterstützung.
Grüße
Peter
29.09.2008 13:58:00
Thread-ID: 1013103
2 Beiträge
Anzeige
Eingebettete Powerpoint datei speichern
Dirk

Hallo Forum,
ich habe eine excel tabelle mit einer eingebetteten Powerpoint presentation. Diese mochte ich gerne per VBA auf die Fesplatte kopieren, ohne dazu Powerpoint oeffnen zu muessen.
Ist das moeglich und falls ja, koennt Ihr mir eine Loesung zeigen?
Danke im Voraus!
Dirk...
12.10.2008 22:13:22
Thread-ID: 1015914
2 Beiträge
Einzelne Registerkarte in neue Datei speichern
Herbert

Hallo Experten,
ich möchte per Button eine einzelne Registerkarte meiner Excel-Datei im Format: "Text (Tabstopp-getrennt)(*.txt)" abspeichern. Die neue Datei soll im Ordner C:\temp erscheinen. Der Name der neuen Datei ist eigentlich egal.
Wäre für jeden Vorschlag dankbar.
Danke und...
14.10.2008 11:46:43
Thread-ID: 1016279
5 Beiträge
Wert um eins erhöhen, dann die Datei speichern ?
Selma

Hallo Leute,
in der aktive Datei möchte ich ein Makro ausführen, der folgendes macht:
1. MsgBox "Bitte den Startwert eintragen" anzeigen.
Der eingegebene Wert soll in Zelle C4 eingetragen werden und die Datei in selben Pfad wie die aktive Datei mit Namen "Berechnungsblatt_UNI_(Wert...
22.10.2008 17:23:24
Thread-ID: 1018424
6 Beiträge
Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
Tabelle in neue Datei speichern
Robert

Hallo,
kann mir bitte jemand helfen...bin am verzweifeln ;-)
Ein Tabellenblatt der geöffneten Datei sollte in eine neue Datei gespeichert werden - und das mit dem Zellinhalt eines anderen Tabellenblattes derselben Datei als Dateiname. Sollte eine Datei mit demselben Namen bereits besteh...
26.12.2008 10:18:00
Thread-ID: 1035274
4 Beiträge
Excel Daten in einer Datei speichern
rwrw

hi,
weiss einer wie man Excel Daten in einer Datei abspeichern und wieder reinladen kann ?
Beispiel:
B2 bis B13 und B2 bis BA2 die Daten die in den Zellen stehen sollen per Button abgespeichert werden.
Beim Öffnen von der Excel-Datei sollen die abgespeicherten Daten wieder in de...
07.01.2009 17:33:00
Thread-ID: 1037636
20 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Arbeitsblätter in eine .csv-Datei abspeichern
Dylan666

Hallo,
ich moechte mehrere Arbeitsblaetter einer Excel-Datei gleichzeitig abspeichern als tapstopp-getrenntes .txt, als kommasepariertes .csv-Format oder als neue .xls-Datei (mit nur einer Arbeitsmappe). Dabei sollen nur befuellte Zeilen gespeichert werden. Weiss jemand eine schnelle Method...
14.01.2009 10:18:37
Thread-ID: 1039496
2 Beiträge
Einzelnes Sheet als Datei speichern
Thomas

Hallo,
ich möchte ein einzelnes ausgewähltes Tabellenblatt bzw. einen ausgewählten Bereich als neue Datei speichern. Wenn ich den Bereich auswähle mit Range("P1:AB32").select, kommt die Meldung dass in diesem Bereich keine Eingaben erfolgen dürfen, da ich mit einem anderen Makro einen Teil...
16.02.2009 03:34:00
Thread-ID: 1051012
4 Beiträge
In neue Datei speichern
Patrik

Hi Allerseits
Habe diesen Code im Forum gefunden welchen ich gerne anwenden möchte.
Eine neue Datei mit +1 wird angelegt.
Nun, meine Frage:
Falls die Datei von Anfang an nicht das richtige Format hat, wollte ich erreichen, dass nichts geschieht oder noch besser, dass eine Meldun...
23.02.2009 21:32:58
Thread-ID: 1053298
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige