Hallo liebe User,
Ich habe eine Excel Datei. Ich möchte von b3 bis zur Zeile wo das E(nlz) kommt alles selektiert haben, um es dann zu löschen. Ich hoffe dass meine Idee das Programm schneller macht, als immer nur DoLoop oder fornext schleifen zu benutzen. Aufjedenfall benötige ich den code für meine Idee, möchte aber keine schleifen benutzen, weil es schneller gehen muss. Dringende Hilfe ist nötig.
Danke im Voraus...
VB.NET-Quellcode
- Option Explicit
- Sub k()
- 'Alphabetische Sortieren
- Workbooks.Open "T:\Lanouar\Vba\Daten.xlsx"
- ActiveSheet.Range("b3").Select
- Selection.Sort Key1:=Range("b4"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
- 'letzte Zeile herausfinden
- Dim lz As Integer
- Dim nlz As String
- lz = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
- nlz = ActiveSheet.Cells(lz, 2).Text
- Debug.Print nlz
- End Sub
Ich habe eine Excel Datei. Ich möchte von b3 bis zur Zeile wo das E(nlz) kommt alles selektiert haben, um es dann zu löschen. Ich hoffe dass meine Idee das Programm schneller macht, als immer nur DoLoop oder fornext schleifen zu benutzen. Aufjedenfall benötige ich den code für meine Idee, möchte aber keine schleifen benutzen, weil es schneller gehen muss. Dringende Hilfe ist nötig.
Danke im Voraus...