Hallo zusammen,

gibt es jemand, der mir bei dieser Anforderung weiterhelfen kann und möchte. Zum Automatischen Erzeugen verschiedener csv-Dateien steht eine Excel-Datei zur Verfügung. Diese sieht so aus:


Spalte_A Spalte_B Spalte_C Spalte_D
01 Name_xyz Verz.123 ABC_.csv Wert1
02 Name_xyz Verz.123 ABC_.csv Wert2
03 Name_xyz Verz.123 ABC_.csv Wert3

04 Name_xyz Verz.000 DEF_.csv Wert1
05 Name_xyz Verz.000 DEF_.csv Wert2

06 Name_ABC Verz.000 GHI_.csv Wert1
07 Name_ABC Verz.000 GHI_.csv Wert2

08 Name_KLM Verz.777 JKL_.csv Wert1
09 Name_KLM Verz.777 JKL_.csv Wert2
10 Name_KLM Verz.777 JKL_.csv Wert3

Aufgabe:
Wenn sich der Wert in Spalte_C ändert, muss eine Datei* erzeugt werden, die den Inhalt der Spalte_D enthält.
Jeweils ein Wert in einer Zeile, fortlaufend angeordnet.

Inhalt also:

Wert1
Wert2
Wert3

*Wohl am besten mittels Texteditor***

Diese erzeugte Datei muss in einem Verzeichnis (Spalte_A / SPalte_B) gespeichert** werden.


**dabei müssen dort bestehende gleichnamige Dateien überschrieben werden.
Alle Zielverzeichnisse (Spalte_A) liegen auf der gleichen Ebene.
Die Excel liegt ebenfalls in einem der Verzeichnise der Spalte_A.


Ergebnis:

4 Dateien, bespeichert wie folgt:
Name_xyz / Verz.123 / ABC_.csv
Name_xyz / Verz.000 / DEF_.csv
Name_ABC / Verz.000 / GHI_.csv
Name_KLM / Verz.777 / JKL_.csv

..natürlich ohne Leerzeichen beim /. Die ich zugunsten der Lesbarkeit so geschrieben habe ;-)


***Beim Erzeugen einer csv aus xls heraus wird leider die jeweilige Zeile in Anführungszeichen dargestellt. Diese stören natürlich die csv. Abspeichern mittels Zwischenablage in den / einen Texteditor funktioniert.


Genügend Infos? Dann mal los - oder?
XP, Excel 2003

Ich freue mich auf jede Unterstützung
Thomas Becker

Hallo Thomas,

"dann mal los" ist gut. Das ist ja auch fast keine Arbeit ;-))

Das könnte dir jemand in VBA scripten, ist eigentlich kein Problem, aber als eine Gefälligkeit für lau doch zu viel.

Falls du dich selbst schon mal mit VBA befasst haben solltest:
den Trigger kriegst du über ein Worksheet_Change Ereignis mit
deiner Spalte als Target, den CSV-Export über "Open ... for output as ...", auch ohne Anführungszeichen in den Zeilen.

Es geht, aber wie gesagt, da steckt schon ein bisschen Arbeit drin.

Gruß

Peter

Hallo Peter, danke für Deine Antwort.
klar bin ich davon ausgegangen, dass das nicht mal eben so zu erledigen ist. VBA sagt mir leider nichts. Kannst Du mir vielleicht jemanden Empfehlen?

Grüße, Thomas

Hallo Thomas,

empfehlen kann ich dir da leider niemand, ich selbst habe keine Zeit dazu.

Mein erster Beitrag hatte sich mit dem zweiten Thread von dir überschnitten (bzw. hatte ich den übersehen). Mein eigentliches Anliegen war, dich darauf hinzuweisen, dass es mit "na denn mal los" etwas unterschätzt schien, aber das war dir ja offenbar schon klar.

VBA (Visual Basic for Applications) ist die Skriptsprache (manche sagen auch Makrosprache) von MS Office, damit schreibt man sowas. Wenn du jemanden findest, der sich damit gut auskennt, ist dein Anliegen wirklich keine "Rocket Science", der Aufwand hält sich in Grenzen. Ohne deine echte Tabelle gesehen zu haben, vermute ich hier etwas im niedrigen einstelligen Stundenbereich, selbst wenn man es sauber mit ein bisschen Dokumentation macht.

Gruß

Peter

Wenn ich das richtig verstehe, dann geht es nicht drum, dass sich irgendwann ein Wert ändert, so dass das "Worksheet_Change" Ereignis abfeuert, sondern dass dur quasi nach Spalte C gruppiert CSVs erstellen willst, die eben den Namen aus Spalte C haben, im Verzeichnis [Spalte A]\[Spalte B]\, die die Werte aus Spalte D enthalten.
Richtig so?
Die Gesamttabelle besteht also bereits vollständig?

Dann brauchst Du ein anderes Makro. Wenn Du mir diese Info bestätigst, kann ich es dir in 5 Minuten hier hinkritzeln...
:P

gutes Zitat!

Anforderung bestens verstanden und glänzend umformuliert; ja, das ist das,was ich brauche. Würde mich freuen, wenn es funktioniert.

viel Spass beim 5-Min hinkritzeln...
Grüße, Thomas

Okie dokie.
Hier isses:

Code

Sub SchreibeCSVs() 
Dim fso As FileSystemObject, f As Folder 
Dim a As Integer 
Dim alt As String, Verz As String 
Dim i As Long, maxnum As Long 
 
maxnum = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 
 
Set fso = New FileSystemObject 
 
alt = Range("c1").Text 'Zum Prüfen, wann Text sich ändert 
i = 1 
Do While i <= maxnum 
    '***** 
    'Verzeichnis prüfen, ggf. erstellen 
    '***** 
    Verz = Range("a" & i) 
    If Not fso.FolderExists(Verz) Then fso.CreateFolder Verz 
    Verz = Verz & "\" & Range("b" & i) 
    If Not fso.FolderExists(Verz) Then fso.CreateFolder Verz 
    Set f = fso.GetFolder(Verz) 
    '****** 
    a = FreeFile 
    Open Verz & "\" & Range("c" & i) For Output As a 
        Do While (Range("c" & i).Text = alt) 
            Print #a, Range("d" & i) 
            i = i + 1 
        Loop 
        'So, jetzt kommer anne neue CSV 
    Close a 
    alt = Range("c" & i) 
Loop 
 
 
End Sub 

:)

Achtung, vorher immer backups machen, gelle? :)


EDIT: Haaalt, Du musst auch im Excel-VBA-Editor auf Extras->Verweise klicken und "Microsoft Scripting Runtime" hinzufügen!
-----

vielen Dank. Werde etwas brauchen um es zu testen, hab noch keine Erfahrung mit Makros in xls.
Jedenfalls vielen Dank!
Thomas