Hallo ,

dann sollte das Makro wie folgt aussehen:

[b]Sub Test()
Dim zeile As Integer
Dim spalte As Integer
Dim intz As Integer
Dim ints As Integer
Dim LangString As String


zeile = 1
spalte = 1

LangString = ""
For intz = 1 To 70 ' 70 Zeilen ab Zeile 1
For ints = 1 To 6 ' 6 Spalten A bis F
LangString = LangString + Trim$(Tabelle1.Cells(zeile, spalte))
spalte = spalte + 1
Next ints
Tabelle2.Cells(zeile, 1) = LangString
zeile = zeile + 1
spalte = 1
LangString = ""
Next intz

Columns("A:A").Select
Selection.NumberFormat = "00"
Columns("B:B").Select
Selection.NumberFormat = "000"
Columns("D:D").Select
Selection.NumberFormat = "000000000.00"
Columns("E:F").Select
Selection.ClearContents
Columns("E:E").Select
Selection.NumberFormat = "000000000000000"
Range("E1").Select
ActiveCell.FormulaR1C1 = "0"
Range("E2").Select
ActiveCell.FormulaR1C1 = "0"
Range("E1:E2").Select
Selection.AutoFill Destination:=Range("E1:E72"), Type:=xlFillDefault
Range("E1:E72").Select
ActiveWindow.SmallScroll Down:=-93
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
ActiveCell.FormulaR1C1 = "#"
Columns("D:D").Select
Range("D2").Activate
ActiveCell.FormulaR1C1 = "#"
Range("D1:D2").Select
Selection.AutoFill Destination:=Range("D1:D72"), Type:=xlFillDefault
Range("D1:D72").Select
ActiveWindow.SmallScroll Down:=-75
Range("F1").Select
ChDir "C:\Dokumente und Einstellungen\tstoehr\Desktop"
End Sub[/b]

Ob allerdings alles so abgearbeitet wird, wie Du Dir das denkst, also in der richtigen Reihenfolge, kann ich nicht beurteilen, da ich keine Datei zum Testen habe. Aber das sollte so funktionieren.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}