Wert in Spalte weitersuchen (rückwärts)

Hallo an die VBA-Experten,
ich suche ein Makro was folgendes realisieren kann:
In Spalte D meiner Tabelle (Tabelle mit 32.000 Zeilen) sind nur wenige (oder gar keine) Zellen mit dem Wert 1 befüllt. In Spalte A steht in jeder Zelle ein Datum.
Ich möchte mit einer Input-Box die unterste Zelle in Spalte D mit dem Wert 1 finden und das dazugehörige Datum aus Spalte A soll dann in einer Message-Box ausgegeben werden. Bei jedem weiteren Klick auf den OK-Button der Input-Box soll die "Suche und Datumsausgabe" nach oben fortgeführt werden.
Wird keine Zahl 1 in Spalte D gefunden soll in einer Infobox "Kein zutreffendes Datum gefunden !" ausgeben werden und das Makro soll ohne weitere "Fehlermeldung" beendet werden.
Kann der OK-Button auch anders benannt werden? "OK" könnte am besten durch "Datum suchen" ersetzt werden. Ein zweiter Button mit "Abbrechen" soll das Makro jederzeit beenden/abbrechen können - das wäre wirklich perfekt!
Vielen Dank für eure Hilfe - Mfg Luca-Darius

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub aaa() Dim rngC As Range, rngF As Range On Error Resume Next With Columns(4) Set rngF = .Find(What:="1", after:=.Cells(1), LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False) Set rngC = rngF If Not rngF Is Nothing Then Do MsgBox Cells(rngF.Row, 1) Set rngF = .FindPrevious(rngF) Loop Until rngC.Address = rngF.Address Else MsgBox "Kein zutreffendes Datum gefunden !" End If End With End Sub

Hallo Luca-Darius,
die Find-Methode ist eigentlich die schnellste. Daran kann die Verzögerung nicht liegen.
Ich habe die Spalte mal komplett gefüllt und nur in Zeile 10 eine 1 eingetragen.
Die MsgBox kam ohne spürbare Verzögerung.
Deshalb habe ich zu Beginn mal eine Umschaltung auf manuelle Berechnung eingebaut.
Vielleicht hilft das.


Sub ZeigeEinser()
Dim rngC As Range, rngF As Range
Dim iMsgBox As Integer, iCalc As Integer
iCalc = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Columns(4)
Set rngF = .Find(What:="1", after:=.Cells(1), LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
Set rngC = rngF
If Not rngF Is Nothing Then
Do
iMsgBox = MsgBox(Cells(rngF.Row, 1), vbRetryCancel)
Set rngF = .FindPrevious(rngF)
Loop Until rngC.Address = rngF.Address Or iMsgBox = 2
Else
MsgBox "Kein zutreffendes Datum gefunden !"
End If
End With
Application.Calculation = iCalc
End Sub

Gruß Uwe

Sub ZeigeEinser_2() Dim i As Long, vArray As Variant vArray = Columns(4).Value For i = UBound(vArray) To 1 Step -1 If vArray(i, 1) = 1 Then If MsgBox(Cells(i, 1), vbRetryCancel) = vbCancel Then Exit For End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

Wert in Spalte weitersuchen (rückwärts)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

374 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert in Spalte weitersuchen (rückwärts)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

374 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread