Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1024to1028
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
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern von Teilen einer Excel-Datei

Speichern von Teilen einer Excel-Datei
22.11.2008 10:45:00
Teilen
Hallo.
Ich habe ein Problem!! Ich habe mir ein Rechnungsrogramm in Excel zusammengebaut, von dem ich immer einen Teil der Tabelle (B1-AM76) abspeichern möchte. Als Dateiname soll dabei die Rechnungsnummer (Zelle AE21 )verwendet werden. Leider reichen meine Kenntnisse nicht aus, um ein solches Makro zu erzeugen. Ich würde mich über einen Lösungsvorschlag riesig freuen. Bis bald...... Roland

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern von Teilen einer Excel-Datei
22.11.2008 12:24:00
Teilen
Hallo,
teste mal diesen Code.
Pfad wo die Datei gespeichert werden soll noch anpassen!
Sub Transfer()
Dim tempTab As Worksheet
Dim tempDatei As Workbook
Dim Bereich As Range, DateiName As String

Const strPfad As String = "C:\DatenOrdner\"   'Speicherpfad anpassen !!!!!! 
With Application
     .ScreenUpdating = False
     .DisplayAlerts = False
            DateiName = Range("AE21") & ".xls"       'Dateiname 
            Set Bereich = Range("B1:AM76")           'Bereich der kopiert wird 
        
            Set tempTab = Sheets.Add                 'Neue Tabelle erstellen 
            Bereich.Copy tempTab.Range("A1")         'Bereich in neue Tabelle einfügen 
            tempTab.Copy                             'mit Tabelle neue Mappe erstellen 
            Set tempDatei = ActiveWorkbook           'Merke neue Datei 
                tempDatei.SaveAs strPfad & DateiName 'neue Datei speichern 
                tempDatei.Close False                'Datei schließen 
                tempTab.Delete                       'Tabelle wieder löschen 
     .ScreenUpdating = True
     .DisplayAlerts = True
End With 'Application 
End Sub


Gruß Tino

Anzeige
AW: Speichern von Teilen einer Excel-Datei
22.11.2008 12:57:18
Teilen
Hallo. Tino. Habe den Code mal in eine Befehlsschaltfläche eingebunden.
Jetzt sieht die Sache wie unten aufgeführt aus.
Leider giebt mir das Programm beim schalten der Schaltfläche eine Fehlermeldung.
Fehler beim Kompilieren
End Sub

erwartet


Private Sub CommandButton8_Click()
Sub Transfer()
Dim tempTab As Worksheet
Dim tempDatei As Workbook
Dim Bereich As Range, DateiName As String
Const strPfad As String = "C:\DatenOrdner\"   'Speicherpfad anpassen !!!!!!
With Application
.ScreenUpdating = False
.DisplayAlerts = False
DateiName = Range("AE21") & ".xls"       'Dateiname
Set Bereich = Range("B1:AM76")           'Bereich der kopiert wird
Set tempTab = Sheets.Add                 'Neue Tabelle erstellen
Bereich.Copy tempTab.Range("A1")         'Bereich in neue Tabelle einfügen
tempTab.Copy                             'mit Tabelle neue Mappe erstellen
Set tempDatei = ActiveWorkbook           'Merke neue Datei
tempDatei.SaveAs strPfad & DateiName 'neue Datei speichern
tempDatei.Close False                'Datei schließen
tempTab.Delete                       'Tabelle wieder löschen
.ScreenUpdating = True
.DisplayAlerts = True
End With 'Application
End Sub


Kannst du mir kurz sagen, was ich falsch mache?. Habe wirklich nicht die größte Ahnung von Makro´s

Anzeige
AW: Speichern von Teilen einer Excel-Datei
22.11.2008 13:00:29
Teilen
Hallo,
entferne die Zeile Sub Transfer()
Gruß Tino
AW: Speichern von Teilen einer Excel-Datei
22.11.2008 13:21:00
Teilen
Super...Danke Tino. Aber zwei Sachen habe ich noch. Die Formatierungen, die Ich gemacht habe, werden nicht übernommen. Ich habe z.B. die Spaltenbreite in meinem Rechnungsformular stark verkleinert. Wenn ich die Rechnung jetzt speichere, wird die Spaltenbreite der einzelnen Zellen nicht geändert und die Rechnung ist stark verändert.
Zur 2. ich habe in meinem Rechnungsformular Bezüge von einem anderen Tabellenblatt. Diese Bezüge werden in meinem gespeicherten Tabellenblatt leider auch nicht übernommen.
Besteht für sowas die Möglichkeit einer Lösung.?
Das Speichern funktioniert soweit wirklich sehr gut und ich würde das gerne so benutzen.
Anzeige
AW: Speichern von Teilen einer Excel-Datei
22.11.2008 13:55:20
Teilen
Hallo,
versuche es mal mit dieser Version,
jetzt werden die Werte (keine Formel), Format und Zeilenbreite kopiert.
Habe dies unter xl2003 und xl2007 getestet,
kann jetzt aber nicht sagen ob die XP Version xlPasteColumnWidths kennt.
 Private Sub CommandButton8_Click()
 Dim tempTab As Worksheet
 Dim tempDatei As Workbook
 Dim Bereich As Range, DateiName As String
 
 Const strPfad As String = "C:\DatenOrdner\"   'Speicherpfad anpassen !!!!!! 
 With Application
      .ScreenUpdating = False
      .DisplayAlerts = False
             DateiName = Range("AE21") & ".xls"       'Dateiname 
             Set Bereich = Range("B1:AM76")           'Bereich der kopiert wird 
         
             Set tempTab = Sheets.Add                 'Neue Tabelle erstellen 
             Bereich.Copy
             tempTab.Range("A1").PasteSpecial (xlPasteValues) 'Werte einfügen 
             tempTab.Range("A1").PasteSpecial (xlPasteFormats) 'Format einfügen 
             tempTab.Range("A1").PasteSpecial (xlPasteColumnWidths) 'Spaltenbreite einfügen 
             tempTab.Copy                             'mit Tabelle neue Mappe erstellen 
             Set tempDatei = ActiveWorkbook           'Merke neue Datei 
                 tempDatei.SaveAs strPfad & DateiName 'neue Datei speichern 
                 tempDatei.Close False                'Datei schließen 
                 tempTab.Delete                       'Tabelle wieder löschen 
      .ScreenUpdating = True
      .DisplayAlerts = True
 End With 'Application 
 End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Speichern von Teilen einer Excel-Datei
22.11.2008 14:13:00
Teilen
Super. Ist genau das was ich brauche. Funktioniert ohne mukken. Nochmals vielen Dank

299 Forumthreads zu ähnlichen Themen

fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Anzeige
AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Lagerverwaltung mit Excel
Ralf

Hallo,
ich habe eine Lagerverwaltungsliste, in Spalte A stehen die Produkte, in Spalte B die Lagerzugänge und in Spalte C die Lagerabgänge.
In jeder Zeile befindet sich immer nur ein Buchungsvorgang, also entweder nur Zugang oder nur Abgang vom Lager.
Ich möchte in Spalte F, die akt...
08.08.2008 09:51:52
Thread-ID: 1000187
4 Beiträge
Anzeige
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Word Dokument in Excel einlesen
Silva


Hallo an alle Exceluser,
ich stehe mal wieder vor einer neuen Herausforderung und komme nicht weiter.
Ich habe ca. 100 Worddateien (ALLE gleich aufgebaut). Und ich habe 1 Exceldatei.
Jetzt möchte ich eine definierte Anzahl an Informationen automatisch aus den Worddateien in Exc...
11.08.2008 11:24:00
Thread-ID: 1000766
8 Beiträge
Access update von Excel
Excel

Hi Excel Freaks,
Ich habe folgendes Problem.
Ich habe eine Access Datenbank mit ca. 150000 Artikel und neben den normalen Preisen enthält diese auch selbst erstellte Preise.
Jetzt bekomme ich per Excel einmal im Monat eine aktualisierte Preisliste mit ca. 12000 Artikeln.
Diese j...
11.08.2008 13:28:57
Thread-ID: 1000834
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
3
12
1
3
1
9
2
4
7
6
3
4
3
1
6
2
9
10
4
1
2
1
1
7
15