eine Schleife
03.10.2004 01:28:05
jede029
Folgendes Problem.
Ich habe einen Code mit den ich *.csv dateien importieren kann
Wie kann ich eine schleife einbringen die das ganze 4 mal wiederholt
und das sich der Range um eins erhöht, anfangen soll er mit "c122 und aufhöhren mit "c14" wer kann mir helfen.
danke und gruß jens
Private Sub CommandButton1_Click()
Dim rngQ As Range
Dim wbQ As Workbook ' Q für Quelle
Dim wbZ As Workbook ' Z für Ziel
Dim wsQ As Worksheet
Dim wsZ As Worksheet
Dim zeileZ As Long
Set wbZ = ThisWorkbook
Set wsZ = wbZ.Worksheets(1)
zeileZ = 2
Do
Workbooks.OpenText Filename:=Range("c12"), _
DataType:=xlDelimited, semicolon:=True
Set wbQ = ActiveWorkbook
Set wsQ = wbQ.Worksheets(1)
Set rngQ = wsQ.UsedRange
rngQ.Copy Destination:=wsZ.Cells(zeileZ, 2)
zeileZ = wsZ.Cells(wsZ.Rows.Count, 2).End(xlUp).Row + 1
wbQ.Close Savechanges:=False
Loop
End Sub
Anzeige