Moin Leute,
ich soll mit einem Array Daten aus Excelzellen übernehmen. Diese werden dann in einer neuen Exceldatei wieder rein geschrieben. Als Laie habe ich festgestellt, dass ein Array pro Zeile anscheinend max. 256 Zeichen aufnehmen kann.
Nun ist es der Fall, das teils mehr als 256 Zeichen übergeben werden. Entsprechend habe ich in meinem Makro einen Fehler. Jetzt war ich am googlen, ob man nur eine bestimmte Zeichenlänge in ein Array einlesen kann. Da habe ich nichts gefunden. Vielleicht sind es einfach die falschen Schlagwörter gewesen.
Naja, mal der bisherige Code:
loLastRow = Cells(Rows.Count, 13).End(xlUp).Row
arrSource = WorksheetFunction.Transpose(Range(Cells(1, 13), Cells(loLastRow, 13)))
ReDim arrTarget(1 To loLastRow)
For iCnt1 = 1 To loLastRow - 1
If Len(arrSource(iCnt1)) > 0 Then
iCnt2 = iCnt2 + 1
arrTarget(iCnt2) = arrSource(iCnt1)
End If
Next
Workbooks.Add
Range("A1").Resize(iCnt2, 1) = WorksheetFunction.Transpose(arrTarget)
ActiveWorkbook.SaveAs Filename:= _
strMappenpfad, _
FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Kann ich daraus 2 Arrays machen und sagen, dass das erste nur die ersten 150 Zeichen zählen soll? Das 2. sollte dann die restlichen Zeichen zählen. Oder habt ihr auch noch andere Ideen, wie man das machen kann. Alles Zeichen einer Zeile müssen auf jeden Fall in einer Zelle stehen.
Danke für Eure Hilfe!
VG
c4b4l
|