Wieder ein kleines Excel + VBA Problemchen

[chris1308]

Hallo,

ich komme immer mehr mit Excel und VBA zurecht, nur mit dem Export habe ich so meine Probleme:
Ich bin auf einem Tablellenblatt "Temperaturspeicherung", in dem verschiedene Werte für den Export fertig sind.
Und hätte ich sehr gerne, dass die Werte der Zeilen 1 bis 50 und der Spalten A bis L in eine Datei mit dem Namen Betriebspunkt1.plt gespeichert werden und dies in einen Ordner,
der im gleichen Verzeichnis wie die Ursprungsdatei lliegt und einfach Temperarturverteilung heißt.
Danach soll in einer neuen Datei Betriebspunkt2.plt die Zeilen 51 bis 100 und wiederum die Spalten A bis L exportiert werden.
Das ganze soll so oft geschehen wie es der Wert in Feld n1 sagt.

Ich hoffe, das war verständlich.

Gruß
Christopher

Edit:
Meine Idee (Die allerdings den Ordner noch nicht berücksichtigt und nur die ersten 5 Spalten exportiert:

Sub Dateiexport()

Dim Datei As String, Text As String
Dim Zeile As Long
Dim i As Integer
Dim max As Integer

max = Cells(1, 11).Value - 1
i = 0

For i = 0 To max


Datei = ThisWorkbook.Path & "\" & Betriebspunkt & i + 1 & ".plt"
Open Datei For Output As #1
For Zeile = 1 + i * 50 To 50 + i * 50
Print #1, Cells(Zeile, 1) & " " & Cells(Zeile, 2) & " " & Cells(Zeile, 3) & " " & Cells(Zeile, 4) & " " & Cells(Zeile, 5)
Next Zeile
Close #1

Next i

MsgBox (i & " Blätter exportiert")
End Sub

 

[mythink2009]

Hi,

wieso max = Cells(1, 11).Value - 1 => n ist doch 14, oder?

So sollte es gehen:

Sub Dateiexport()

Dim Datei As String, Text As String
Dim Zeile As Long
Dim i As Integer
Dim max As Integer

max = Cells(1, 14).Value - 1


For i = 0 To max

ziffer = i + 1
Datei = ThisWorkbook.Path & "\Betriebspunkt" & ziffer & ".plt"
Open Datei For Output As #1
For Zeile = 1 + i * 50 To 50 + i * 50
ausgabezeile = Cells(Zeile, 1)
For Spalten = 2 To 12
ausgabezeile = ausgabezeile & " " & Cells(Zeile, Spalten)


Next
Print #1, ausgabezeile
Next Zeile
Close #1

Next i

MsgBox (ziffer & " Blätter exportiert")
End Sub