|
Hallo
der Code ist sehr simpel wenn man sich mit VBA auskennt. Ich habe ihn so kommentiert das man ihn verstehen kann. Mich würde mal interssieren wie lange er bei 120.000 Zeilen laeuft??? In der Statusanzeige sieht man die aktuelle Zeile, die gesamten Zeilen und wiviel schon gefunden wurden. Sollte die Anzeige stehen bleiben nicht aufregen, intern laeuft der Code bis zum Ende weiter.
mfg Nobody
Sub Express_ausfüllen()
Dim rFind As Range, n As Long
Dim Adr1 As String, lz1 As Long
'LasrZell für StatusBar suchen
lz1 = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
'1. Suche in Spalte B nach Zahl 1000 (Ganzzahl)
Set rFind = Columns("B").Find(What:="1000", After:=Range("B1"), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If rFind Is Nothing Then MsgBox "Kein 1.000 Wert in dieser Spalte": Exit Sub
Adr1 = rFind.Address
Do 'Do Loop Schleife zum weitersuchen und markieren
Application.StatusBar = rFind.Row & " / " & lz1 & " / " & n
rFind.Offset(0, 1) = "Ja": n = n + 1
Set rFind = Columns("B").FindNext(rFind)
Loop Until rFind.Address = Adr1
Application.StatusBar = Empty
Application.ScreenUpdating = True
MsgBox n & " Expressdaten gefunden"
End Sub
|