Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excel - VBA Code - Optimierung.
Autor: Arno
Datum: 17.12.02 17:16
Habe die Lösung zu meinem Problem gefunden bzw. erarbeitet. Ich speichere die Zelleinhalte als neue Exceltabellen. Sub Speichern() 'Deklaration der VerzeichnissZiel und Speicherung der Dateien. Dim VerzeichnisZiel As String, DateiSpeichern As String ' damit auf dem Bildschirm nichts zu sehen ist Application.ScreenUpdating = False ' Testeintrag für das Verzeichnis in das abgespeichert werden soll VerzeichnisZiel = "C:\Eigene Dateien\" i = 0 Range("d1").Select ' Schleife über Spalte D ab Reihe 1 bis in Reihe x nichts mehr steht While ActiveCell.Offset(i, 0).Value <> "" ' zum Speichern Verzeichnis und eigentlichen Dateinamen zusammenkleben DateiSpeichern = VerzeichnisZiel & ActiveCell.Offset(i, 0).Value ' Datei löschen, falls vorhanden, falls nicht vorhanden erscheint auch keine Fehlermeldung On Error Resume Next Kill DateiSpeichern On Error GoTo 0 ' zum Tetsten als Ausgabe im Direktbereich 'Debug.Print DateiSpeichern ' leere Datei generieren Workbooks.Add ' Datei speichern ActiveWorkbook.SaveAs Filename:=DateiSpeichern, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ' Datei schließen ActiveWorkbook.Close ' Zeilenzähler inkrementieren i = i + 1 Wend Application.ScreenUpdating = True End Sub Danke nochmals für Deine Hilfe Arno

Excel - VBA Code - Optimierung.	205	Arno	16.12.02 14:36
Re: Excel - VBA Code - Optimierung.	776	illuminator	16.12.02 15:07
Re: Excel - VBA Code - Optimierung.	112	Arno	17.12.02 10:59
Re: Excel - VBA Code - Optimierung.	821	landx	17.12.02 12:52
Re: Excel - VBA Code - Optimierung.	118	Arno	17.12.02 14:24
Re: Excel - VBA Code - Optimierung.	674	landx	17.12.02 14:45
Re: Excel - VBA Code - Optimierung.	99	Arno	17.12.02 17:16

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen