Office: VBA hilfe

Hallo,

ich bin neu hier und habe ein problem das ich alleine nicht hinbekomme. Vielleicht kann mir hier jemand helfen.

Also ich habe eine große exceltabelle (Matrix) mit 100 spalten und ca 20 zeilen. In jedem Feld ("kästchen") steht nun ein recht großer text. Diesen würde ich nun gerne automatisch in eine txt. oder word datei exportieren lassen. Der Titel der jeweiligen Datei soll den Namen haben: Name Spalte_Name Zeile. (also für jedes Kästchen eine separate datei)-> 100*20= 2000 datein

Wenn ich das händisch mache geht das natürlich extrem lang. Ich dachte das es viellicht mit einem Makro geht? hat jemand vielleicht einen Tip?
(vielleicht nochmal im konkreten Beispiel zum Verständnis: wenn ich eine Tabelle hätte mit 2 zeilen und 2 spalten, dann würde sich daraus 4 Felder ("kästchen") ergeben die ich jeweils einzeln exportieren will. also 4 Dateien sollte das ergeben.)

Vielen Dank für jeden Tip :D

Gruss

marius

p.s ich benutze office 2010

 

Grüezi marius

Je nachdem wo der Bereich ist und wo die Dateien erzeugt werden sollen, musst Du den Code noch anpassen.
Aber versuche es doch mal damit - der Bereich muss immer mit den Zeilen/Spalten Überschriften definiert werden:

Code:

Sub tr_SaveMatrix()Dim rngMatrix            As Range
Dim a                    As Variant
Dim Z                    As Long
Dim S                    As Byte
Dim R                    As Long
Dim C                    As Byte
Dim Filename             As String


Const path               As String = "C:\Test\"
Const Extension          As String = ".TXT"


    'Here you can define your own Range, too
    a = ActiveSheet.Range("A1:D4")


    If Not IsEmpty(a) Then
        Z = UBound(a, 1)
        S = UBound(a, 2)
        For R = 2 To Z
            For C = 2 To Z
                Filename = a(1, C) & "_" & a(R, 1)
                Open path & Filename & Extension For Output As #1
                Print #1, a(R, C)
                Close #1
            Next C
        Next R
    End If
End Sub