Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Suche 2 Zahlenuntereinander in Spalte | Herbers Excel-Forum


Betrifft: Suche 2 Zahlenuntereinander in Spalte von: born
Geschrieben am: 17.12.2009 10:15:11

Guten Morgen,

ich habe viele Zahlen in einer Spalte und Suche danach, wann die Zahl 7 und in der nächsten
Zeile die Zahl 14 vorkommen. Statt 20000 Zeilen von Hand zur durchsuchen müßte das doch mit
der suchfunktion irgendwie zu machen sein, oder?

Sub sucher()
    Range("CD3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Find(What:="7", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Selection.FindNext(After:=ActiveCell).Activate
End Sub
Nur wie kriege ich die zweite Zahl da rein, wo after:= activecell steht?

Danke für Eure Hilfe,

Born

  

Betrifft: AW: Suche 2 Zahlenuntereinander in Spalte von: Rudi Maintaire
Geschrieben am: 17.12.2009 10:27:05

Hallo,

Sub sucher()
  Dim rFound As Range
    With Range(Range("cd3"), Range("CD3").End(xlDown))
    Set rFound = .Find _
      (What:=7, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    Do While rFound.Offset(1) <> 14
      Set rFound = .FindNext(After:=rFound)
    Loop
    End With
    If Not rFound Is Nothing Then rFound.Activate
End Sub

Gruß
Rudi


  

Betrifft: AW: Suche 2 Zahlenuntereinander in Spalte von: Tino
Geschrieben am: 17.12.2009 10:41:37

Hallo,
kannst ja mal testen.

Sub test()
Dim meAr()
Dim A As Long
Dim strInfo As String
Dim SuchBereich As Range
Dim SWert1 As Double, SWert2 As Double

'Suchwerte *** 
SWert1 = 7
SWert2 = 14

With ActiveSheet
    Set SuchBereich = _
    .Range("CD3", IIf(IsEmpty(.Cells(.Rows.Count, 82)), .Cells(.Rows.Count, 82).End(xlUp), .Cells(.Rows.Count, 82)))
    
    meAr() = SuchBereich.Value2
    
    For A = 1 To Ubound(meAr) - 1
        If meAr(A, 1) = SWert1 Then
           If meAr(A + 1, 1) = SWert2 Then
            strInfo = strInfo & _
            ActiveSheet.Range(SuchBereich.Cells(A, 1), SuchBereich.Cells(A + 1, 1)).Address(0, 0) & vbCr
           End If
        End If
    Next A
    
    If strInfo <> "" Then
        strInfo = Left$(strInfo, Len(strInfo) - 1)
        MsgBox "gefunden in:" & vbCr & strInfo
    Else
        MsgBox "nix gefunden"
    End If

End With

End Sub
Gruß Tino


  

Betrifft: AW: Suche 2 Zahlenuntereinander in Spalte von: born
Geschrieben am: 17.12.2009 11:54:16

Hi Tino,

danke für die Lösung. Und wieder hab ich was gelernt über die Verwendung von Datenfeldern.

Liebe Grüße und Dank,

Born


  

Betrifft: also zu o.w.T. von: Reinhard
Geschrieben am: 17.12.2009 11:57:18




Beiträge aus den Excel-Beispielen zum Thema "Suche 2 Zahlenuntereinander in Spalte"