Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.find methode bei ausblenden

Forumthread: .find methode bei ausblenden

.find methode bei ausblenden
26.04.2013 15:30:12
Chris
Hallo Leute,
ich suche per .find einen bestimmten Bereich nach einem Suchkriterium ab, Ausgabe in Userform.
Soweit ok.
Leider geht das nicht, wenn der Bereich in dem gesucht werden soll, ausgeblendet ist. Gibt' s da ne einfache Lösung?
With ActiveSheet.Range("O1:AA30")
Set c = .Find(what:=TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious)
If Not c Is Nothing Then
Label4 = c.Offset(, 1)
Label5 = Format(c.Offset(0, 2), "hh:mm:ss")
Else
Label4 = "--"
Label5 = "--"
End If
End With
Danke

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .find methode bei ausblenden
26.04.2013 23:53:32
Gerd
Hallo Chris! 
Sub b()
Dim X As Variant, lngCol As Long, lngRow As Long
Dim y As Variant, Z As Variant
y = "--"
Z = "--"
With ActiveSheet.Range("O1:AA30")
X = .Value
For lngCol = UBound(X, 2) To 1 Step -1
For lngRow = UBound(X, 1) To 1 Step -1
If X(lngRow, lngCol) = TextBox1.Value Then
y = .Cells(lngRow, lngCol + 1)
Z = Format(.Cells(lngRow, lngCol + 2), "hh:mm:ss")
Exit For
End If
Next
Next
End With
Label4 = y
Label5 = Z
End Sub
Gruß Gerd
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige