Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel-Daten in verschiedene Dateien aufspalten

Excel-Daten in verschiedene Dateien aufspalten
13.06.2005 13:01:10
ozmo
Hallo,
ich habe einen Excel-Sheet welches Daten enthält, die ich spaltenweise herauskopieren möchte. Diese Spalten sollen in einer eigenen Dateien abgespeichert werden. Dabei soll die Datei den Namen der ersten Zelle der jeweiligen Spalte bekommen. Wenn möglich sollte der Name noch umformartiert werden (z.B. von B-AVS(x) in b_avs_x_00).
Hat jemand hierzu einen Lösungsansatz?
Grüße und vielen Dank im Voraus,
ozmo.

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

Betreff
Datum
Anwender
Anzeige
AW: Excel-Daten in verschiedene Dateien aufspalten
13.06.2005 13:32:04
ede
hallo azmo,
versuch es doch einfach mit einer formel in der gewünschten spalte.
z.B.:
in Spalte a: prüfe ob leer
in Spalte b: prüfe auf kleiner
=WENN(ISTLEER(A2);"ZELLE LEER";WENN(A2&ltB2;"kleiner";"nicht kleiner"))
viel erfolg
AW: Excel-Daten in verschiedene Dateien aufspalten
13.06.2005 14:48:53
UweD
Hallo
so ginge es:

Sub Abspeichern()
Dim WB, Sh, Datei$, I%, LC%, Pfad$
WB = ActiveWorkbook.Name
Sh = ActiveSheet.Name
Pfad = "C:\temp\" 'anpassen
LC = Cells(1, 256).End(xlToLeft).Column 'letzte Spalte
For I = 1 To LC
If Cells(1, I) <> "" Then
Datei = LCase(Cells(1, I).Text)
Datei = Application.Substitute(Datei, "-", "_")
Datei = Application.Substitute(Datei, "(", "_")
Datei = Application.Substitute(Datei, ")", "_") & "00"
Workbooks.Add
Workbooks(WB).Sheets(Sh).Columns(I).Copy Destination:=ActiveWorkbook.Sheets(1).Columns(1)
ActiveWorkbook.SaveAs Filename:=Pfad & Datei & ".xls"
ActiveWorkbook.Close
End If
Next
End Sub

Gruß UweD
Anzeige
AW: Excel-Daten in verschiedene Dateien aufspalten
14.06.2005 09:35:41
ozmo
Hallo Uwe,
vielen Dank für den Tip. Funktioniert bestens.
Grüße, ozmo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige