25.01.2017, 19:57
Hallo verehrtes Forum,
ich wende mich mal wieder mit einer Frage an Euch.
Ich möchte ein Workbook aus 12 Sheets nach dem Datumsbereich aus Datum1 und Datum2 durchsuchen.
Der Datumsbereich soll dann kopiert werden und in eine andere Datei geschrieben werden.
Der unten stehende Teil eines Codes basiert auf einer Datei, bei der ich ein einzelnes Tabellenblatt nach dem Datumsberich durchsuche und funktioniert wie gewünscht.
Es müsste also die Variable isheet (siehe letzte Zeile des Codes) ausgelesen werden.
Weiß jemand eine Lösung?
____________________________
For i = 2 To Sheets.Count
wsQuelle.Sheets(i).Select
For Each zelle3 In wsQuelle.Sheets(i).Range(Cells(8, 1), Cells(Rows.Count, 1).End(xlUp))
If wsQuelle.Sheets(i).Cells(zelle3.Row, 1) = Datum1 Then
irow3 = zelle3.Row
End If
Next zelle3
For Each zelle4 In wsQuelle.Sheets(i).Range(Cells(8, 9), Cells(Rows.Count, 1).End(xlUp))
If wsQuelle.Sheets(i).Cells(zelle4.Row, 1) = Datum2 Then
irow4 = zelle4.Row
End If
Next zelle4
Next i
wsQuelle.Sheets(isheet).Range(Cells(irow3, 1), Cells(irow4, 9)).Copy
Gruß
tmessers
ich wende mich mal wieder mit einer Frage an Euch.
Ich möchte ein Workbook aus 12 Sheets nach dem Datumsbereich aus Datum1 und Datum2 durchsuchen.
Der Datumsbereich soll dann kopiert werden und in eine andere Datei geschrieben werden.
Der unten stehende Teil eines Codes basiert auf einer Datei, bei der ich ein einzelnes Tabellenblatt nach dem Datumsberich durchsuche und funktioniert wie gewünscht.
Es müsste also die Variable isheet (siehe letzte Zeile des Codes) ausgelesen werden.
Weiß jemand eine Lösung?
____________________________
For i = 2 To Sheets.Count
wsQuelle.Sheets(i).Select
For Each zelle3 In wsQuelle.Sheets(i).Range(Cells(8, 1), Cells(Rows.Count, 1).End(xlUp))
If wsQuelle.Sheets(i).Cells(zelle3.Row, 1) = Datum1 Then
irow3 = zelle3.Row
End If
Next zelle3
For Each zelle4 In wsQuelle.Sheets(i).Range(Cells(8, 9), Cells(Rows.Count, 1).End(xlUp))
If wsQuelle.Sheets(i).Cells(zelle4.Row, 1) = Datum2 Then
irow4 = zelle4.Row
End If
Next zelle4
Next i
wsQuelle.Sheets(isheet).Range(Cells(irow3, 1), Cells(irow4, 9)).Copy
Gruß
tmessers