VBA Wert der Überschritten wird feststellen
04.09.2003 11:05:31
Bernd
mir wurde gestern hier schon sehr geholfen und nun würde ich das Makro gerne noch ein wenig erweitern. Das Makro sucht nach einem Wert in Spalte D. Wurde der Wert gefunden gibt es den Wert aus Spalte A gleicher Zeile aus.
Die Daten werden aber nur automatisch aufgenommen und so wird nie genau dieser Wert erreicht. Ich würde deshalb gerne nach dem Wert suchen wann der Wert 37 das erste mal überschritten und dann wie bisher den Wert aus Spalte A gleicher Zeile ausgeben.
Bin für jeden Hinweis dankbar.
Sub SuchOffset()
Dim rngFind As Range
Dim strSuch As Long
strSuch = 37 ' Suchbegriff
Set rngFind = Worksheets(1).Columns(4).Find(strSuch) ' in D:D Suchen
If Not rngFind Is Nothing Then ' es wurdewas gefunden
Range("F1").value = rngFind.Offset(0, -3) 'Wert aus Spalte A in der gleichen Zeile ausgeben
End If
End Sub