Wo kann ich das Range unterbringen
07.09.2013 14:08:10
Thorsten_Z
Ich habe folgenden Code, der mir Daten aus einer csv in ein Tabellenblatt schreibt.
Funktioniert wunderbar!!!
Ich möchte ihn jetzt aber so anpassen, dass die Daten nur in den Bereich
Range("P6:Q44") geschrieben werden.
Wer wäre so freundlich und kompetent mich dabei zu unterstützen?
Danke schon mal, und hier der Codeabschnitt um den es geht und wo meiner Meinung nach die Änderung rein gehört!?.
Sub SicherungHolen()
Sheets("Jan").Select
Open strFileName For Input As #1
arrDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For lngR = 0 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), cstrDelim)
If UBound(arrTmp) > -1 Then
With ActiveSheet 'Irgendwo ab hier müsste doch der Bereich angegeben werden können
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lngLast = Application.Max(lngLast, -1)
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
MsgBox strFileName & " wurde importiert", vbOKOnly, "Info"
End If
End Sub