Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1192to1196
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
Inhaltsverzeichnis

In Dateien 1 Blatt löschen und je 1 Blatt einfügen

In Dateien 1 Blatt löschen und je 1 Blatt einfügen
helena
Hallo
Ich suche Lösung um aus Datei welche in Ordner liegt wie Zieldatei(en)
ein Blatt mit Name "Zeit10" un Zieldatei(en) zu löschen und ein Neues mit Name "Zeit11"
d.h. Blatt löschen und neues in die Datei kopieren, pro Ordner liegen ca. 20 Dateien.
DANKE
Gruss aus CH
Helena

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

Betreff
Benutzer
Anzeige
AW: In Dateien 1 Blatt löschen und je 1 Blatt einfügen
10.01.2011 13:37:49
gerwas
Hallo Helena
soweit ich switzerdeutsch verstehe geht es dir hier rum:
(Ordner mußt du anpassen, ebenso die Dateinamen)
Sub blätter_löschen_einfügen()
Dim qDatei, qOrdner, tDatei, tBlatt, nBlatt
tBlatt = "Zeit10"
nBlatt = "Zeit11"
qOrdner = "P:\temp\"
qDatei = Dir(qOrdner & "Mappe*.xls")
Application.DisplayAlerts = False
Do While qDatei  ""
Set tDatei = GetObject(qOrdner & qDatei)
tDatei.Sheets(tBlatt).Delete
tDatei.Sheets.Add.Name = nBlatt
tDatei.Close savechanges:=True
qDatei = Dir
Loop
Application.DisplayAlerts = True
Set qDatei = Nothing
Set tOrdner = Nothing
Set tDatei = Nothing
End Sub

Anzeige
AW: In Dateien 1 Blatt löschen und je 1 Blatt einfügen
10.01.2011 15:33:30
helena
Hallo
ich habs getestet bekomme Laufzeitfehler 9 in Z15
ich nehme an du meinst mit tBlatt "alte Blatt"
mit nBlatt "neue Blatt"
qDatei ist qOrdner mit der Quelldatei worin nBlatt "neue Blatt" sich befindet
qDatei = Dir(qOrdner & "blätter tauschen.xls")
im gleichen Ordner befinden sich einige Files in diesen muss ich das Blatt tauschen die
Files haben als Name Vor_Nachname.xls
tauschen meine ich alte raus und neue muss rein
DANKE
gruss aus CH
helena
AW: In Dateien 1 Blatt löschen und je 1 Blatt einfügen
11.01.2011 08:02:26
GERWAS
Holla Helena
mit Kommentar:
Sub blätter_löschen_einfügen()
Dim qDatei, qOrdner, tDatei, tBlatt, nBlatt 'Variablen deklarieren
tBlatt = "Zeit10" 'das ist der Blattname, vom Blatt welches weg soll
nBlatt = "Zeit11" 'das der Blattname vom neuen Blatt
qOrdner = "P:\temp\" 'Pfad zum Ordner wo die Dateien, die bearbeitet werden sollen liegen
qDatei = Dir(qOrdner & "Mappe*.xls") 'Muster-Dateiname, der zu bearbeitenden Dateien
'wenn alle im Ordner zu  _
bearbeiten sind nimm "*.xls"
Application.DisplayAlerts = False 'damit excel nicht jedesmal fragt, ob es etwas löschen  _
soll
On Error Resume Next 'Fehler abfangen
Do While qDatei  "" 'alle dateien abarbeiten
Set tDatei = GetObject(qOrdner & qDatei) 'Datei (verdeckt) öffnen
On Error Resume Next 'eingefügt, um mögliche Fehler zu ignorieren
tDatei.Sheets(tBlatt).Delete 'Blatt löschen, geht aber nur, wenn es auch existiert  _
sonst Fehler!
tDatei.Sheets.Add.Name = nBlatt 'neues Blatt einfügen und gleich Namen vergeben
tDatei.Close savechanges:=True 'die Datei speichern und schließen
qDatei = Dir 'nächsten Dateinamen holen, wennn alle durch sind ist qDatei=""
Loop 'weiter oben
Application.DisplayAlerts = True 'Sicherheitsfragen wieder einschalten
On Error Goto 0 ' Fehlerbehandlung wieder abschalten
Set tDatei = Nothing 'Speicher wieder freigeben
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige