Moin Tobi,
bisher hat sich noch niemand gemeldet. Ich hoffe Du zelebrierst kein Crossposting.
Da ich Lust (und Code) hatte:
Würde Ich in Deinem Fall so lösen:
Option Explicit
Sub ImportA()
Dim sLineBuffer As Variant, sColumnsBuffer As Variant
Dim x As Long, y As Long
Dim sArr2D()
Dim rng As Range
Dim sDateiname As String
'#### anpassen ###########################
sDateiname = "C:\Test\Test.txt"
'#########################################
sLineBuffer = Split(getFile(sDateiname), Chr(10))
sColumnsBuffer = Split(sLineBuffer(0), ";")
'
ReDim sArr2D(1 To UBound(sLineBuffer), 1 To UBound(sColumnsBuffer) + 1)
'
For x = LBound(sLineBuffer) To UBound(sLineBuffer) Step 1
sColumnsBuffer = Split(sLineBuffer(x), ";")
For y = LBound(sColumnsBuffer) To UBound(sColumnsBuffer) Step 1
sArr2D(x + 1, y + 1) = sColumnsBuffer(y)
Next y
Next x
'ggf. vorher noch letzte Zelle ermitteln oder andere Position angeben oder in ne Function auslagern
ActiveSheet.Range("A1").Resize(UBound(sArr2D, 1), UBound(sArr2D, 2)) = sArr2D
End Sub
Function getFile(sFile As String) As String
Dim ff As Integer: ff = FreeFile
'
Open sFile For Binary As #ff
getFile = Space$(LOF(ff))
Get #ff, , getFile
Close #ff
'
End Function
Hinwes:
Schau mal in Deiner Datei nach, wieviel Abfragen diese schon beherbergt.
Die wurden bislang nur hinzugefügt, nicht wieder gelöscht. Google mal welche Auswirkung das haben kann.
|