VBA - Spalte löschen vor dem Speichern

Hallo zusammen,
ich bin neu hier... und wie man sich vorstellen kann auf der Suche nach einer Lösung! :-)
Ich bin kein VBA-Experte und erweitere im Moment ein bestehendes VBA Projekt.
So nun zu meinem "Problem":
- Das bestehende Projekt macht aus einem Tabellenblatt mehrere neue Tabelllenblätte mit bestimmter Formatierung.
- ich habe nun das automatische Speichern der einzelnen Tabellenblätter als *.csv File implementiert (was auch (oh Wunder) funktioniert).
- die einzelnen Tabellenblätter bleiben nach dem Speichern in der Excel-Fil vorhanden (nichts wird gelöscht, etc.). Dies ist auch so gewollt und soll so bleiben.
- Sodele... nun die Frage: kann ich die ganze "Spalte A" VOR dem Speichern in die *.csv File löschen?
- es soll quasi im "Tabellenblatt 2" die Spalte A bestehen bleiben, in der *.csv File sollen aber in Spalte A die Werte aus Spalte B des "Tabellenblatt 2" stehen...
Phu... ich bin schlecht im Erklären... hoffe aber das es vlt. einer bverstanden hat und mir helfen kann wie ich das per VBA lösen könnte!
Vielen Dank schon im Voraus für eure Geduld mit mir! :-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Lars
der Befehl zum Löschen ganzer Spalten würde so aussehen:


Sheets(?).Columns(1).Delete

Die ? MUSST DU durch den richtigen Namen des Tabellenblatts ersetzen, in dem die Spalte gelöscht werden soll, z Bsp Sheets("Tabelle1").
Sheets(?) könntest du auch weglassen. Dann würde aber immer im jeweils angezeigten Tabellenblatt die Spalte gelöscht werden.
Wird also z Bsp gerade "Tabelle2" angezeigt und du startest den obigen Befehl, würde in "Tabelle2" die Spalte gelöscht werden - aber du wolltest ja in "Tabelle1" die Spalte löschen!
Daher ist es also empfehlenswert im Code immer genau anzugeben, wo,wann,was,warum passieren soll.
Konnte ich helfen?
Wenn nein, zeig bitte per Upload eine oder mehrere Bsp-Dateien mit Bsp-Daten, so, dass mit Hilfe der Bsp-Dateien dein Problem erkennbar ist.
Ciao
Thorsten

AnzSheets = ActiveWorkbook.Worksheets.Count For i = 2 To AnzSheets 'Name aktives Tebellenblatt speichern SheetName = Sheets(i).Name 'Datei speichern Worksheets(SheetName).Select Worksheets(SheetName).Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs filename:=Dateipfad_csv & "\" & SheetName, FileFormat:=xlCSV, CreateBackup:=False, local:=True 'CurDir ActiveWorkbook.Close False Application.DisplayAlerts = True Next i

For i = 2 To AnzSheets 'Name aktives Tebellenblatt speichern SheetName = Sheets(i).Name 'Datei speichern Worksheets(SheetName).Select Worksheets(SheetName).Copy Application.DisplayAlerts = False ActiveWorkbook.Sheets(1).Columns(1).Delete ActiveWorkbook.SaveAs filename:=Dateipfad_csv & "\" & SheetName, FileFormat:=xlCSV, CreateBackup:=False, local:=True 'CurDir ActiveWorkbook.Close False Application.DisplayAlerts = True Next i

Beliebteste Forumthreads (12 Monate)

VBA - Spalte löschen vor dem Speichern

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Spalte löschen vor dem Speichern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread