habe unter folgenden Link:
https://www.herber.de/bbs/user/94880.txt
eine Datei die ich Anhand eines Makros automatisch erstellen möchte. Für die erste Zeile funktioniert das mit den unten angegebenen Makro auch ganz gut.
Allerdings bekomme ich das Makro nicht so umgestellt, das es für die Zeilen 2 und 3 ein anderes Makro verwendet.
Es wäre schön wenn mir jemand weiterhelfen könnte.
Vielen Dank
Sub Test()
Dim i As Integer, arr(1 To 230)
Dim arrStart, j As Integer
'Startpositionen
arrStart = Array("", 1, 10, 36, 39, 145, 180, 190, 225)
'Array mit Leerzeichen
For i = 1 To 230
arr(i) = Chr(32)
Next i
With Sheets(1)
For j = 1 To 8 'A1:H1 abklappern
For i = 1 To Len(.Cells(1, j))
'Leerzeichen durch Buchstaben ersetzen
arr(i + arrStart(j) - 1) = Mid(.Cells(1, j), i, 1)
Next i
Next j
End With
'Text ausgeben
Sheets(2).Cells(1, 1) = Join(arr, "")
End Sub