Thema Datum  Von Nutzer Rating
Antwort
20.01.2021 16:49:54 Alex
NotSolved
20.01.2021 17:48:03 Msse
NotSolved
Rot Search for specific cell with value in column/row
 21.01.2021 00:19:26 Gast42899
NotSolved
21.01.2021 08:54:03 Alex
NotSolved
21.01.2021 14:24:30 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast42899		 Datum:
21.01.2021 00:19:26		 Views:
852		 Rating:
     
Antwort:
  Ja
Thema:
Search for specific cell with value in column/row

Well... like this, I guess?

Option Explicit

Sub Test()
  
  Dim rngResult(0 To 1) As Excel.Range
  Dim rngCell As Excel.Range
  Dim strWhat As String
  
  'e.g. Range("A1")
  ' -> search row 1 for strWhat
  ' -> search column A for strWhat
  ' => on success: both results get combined to rngCell
  With Worksheets("Sheet1").Range("A1")
    
    strWhat = "Match"
    
    Set rngResult(0) = .EntireRow.Find( _
                            What:=strWhat, _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False)
    
    Set rngResult(1) = .EntireColumn.Find( _
                            What:=strWhat, _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByColumns, _
                            MatchCase:=False)
    
    If Not (rngResult(0) Is Nothing Or rngResult(1) Is Nothing) Then
      Set rngCell = .Worksheet.Cells(rngResult(1).Row, rngResult(0).Column)
    End If
    
    If rngCell Is Nothing Then
      Call MsgBox("No entry was found for value '" & strWhat & "'.", vbExclamation)
    Else
      Call MsgBox("Cell for value '" & strWhat & "'" & vbNewLine & _
                  "  -> " & rngCell.Address() & " = '" & rngCell.Value & "'", _
                  vbInformation)
    End If
    
  End With
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.01.2021 16:49:54 Alex
NotSolved
20.01.2021 17:48:03 Msse
NotSolved
Rot Search for specific cell with value in column/row
 21.01.2021 00:19:26 Gast42899
NotSolved
21.01.2021 08:54:03 Alex
NotSolved
21.01.2021 14:24:30 Mase
NotSolved