kurzes .find
04.07.2016 14:51:24
Becker
ich brauche kurz Eure Hilfe. Vielleicht ist auch nur Montags, aber weiter komme ich nicht. Ich bin außerem Anfänger.
Er soll prüfen, ob eine Zahl in einer Spalte aufsteigend zu finden ist und sonst diese weiterverwenden.
Laufzeile soll die erste leere Zeile wählen.
Der Debugger meckert erst bei Set rng = .Find(w...
Sub Schaltfläche2_Klicken()
Application.ScreenUpdating = False
Dim LaufZeile As Long
Dim VZ As Long
Dim rng As Range
Dim i As Long
LaufZeile = 18
VZ = 1
Do While Trim(CStr(Tabelle1.Cells(LaufZeile, 2).Value)) ""
LaufZeile = LaufZeile + 1
Loop
Do While i 1
With Sheets("Tabelle1").Range("B16:B100")
Set rng = .Find(what:=VZ, lookat:=x1Whole, LookIn:=xlValues, MatchCase:=True)
If rng Is Nothing Then VZ = VZ + 1
Else i=1
Endif
End With
Loop
danach folgt ein umtragen von zellen.
endsub.