Hallo zusammen,
kämpfe mich langsam ducrh meine Excel-Datei, bin aber jetz wieder hängen geblieben und komme einfach nicht weiter. Folgendes Problem bzw. Situation:
Ich möchte aus einem Sheet XY die letzte beschriebene Zeile herausfiltern bzw. die erste leere Zeile. Dazu nutze ich derzeit folgenden Code:
For i = Cells(Rows.Count, 3).End(xlUp).Row + 1 To 1 Step -1
Exit For
Next i
Count 3 - weil ich dort immer die letzte beschriebene Zelle habe. Das funktioniert auch soweit ganz gut (findet die richtige Zelle), nur wenn ich jetzt die Zeilen von 4 bis i selektoieren bzw. kopieren möchte, funktioniert es nicht. Mein selektierter Bereich ist viel zu Groß - geht bis Zeile 500 oder so. Nutze folgenden Code:
Rows("4:4" & i).Select --> markiert Zeile 4 bis 500
Rows(i).Select --> markiert Zeile 98 (die richtige Zeile)
Also ich möchte demnach die Zeilen 4 - 98 selektiert bekommen.
Vielen Dank schonmal im Voraus
Grüße
Andi
kämpfe mich langsam ducrh meine Excel-Datei, bin aber jetz wieder hängen geblieben und komme einfach nicht weiter. Folgendes Problem bzw. Situation:
Ich möchte aus einem Sheet XY die letzte beschriebene Zeile herausfiltern bzw. die erste leere Zeile. Dazu nutze ich derzeit folgenden Code:
For i = Cells(Rows.Count, 3).End(xlUp).Row + 1 To 1 Step -1
Exit For
Next i
Count 3 - weil ich dort immer die letzte beschriebene Zelle habe. Das funktioniert auch soweit ganz gut (findet die richtige Zelle), nur wenn ich jetzt die Zeilen von 4 bis i selektoieren bzw. kopieren möchte, funktioniert es nicht. Mein selektierter Bereich ist viel zu Groß - geht bis Zeile 500 oder so. Nutze folgenden Code:
Rows("4:4" & i).Select --> markiert Zeile 4 bis 500
Rows(i).Select --> markiert Zeile 98 (die richtige Zeile)
Also ich möchte demnach die Zeilen 4 - 98 selektiert bekommen.
Vielen Dank schonmal im Voraus
Grüße
Andi