Thema Datum  Von Nutzer Rating
Antwort
02.10.2020 16:00:59 Christoph
NotSolved
Blau Inhalt in Zelle mit Text aus Tabelle vergleichen
 02.10.2020 16:31:53 Gast34831
Solved
02.10.2020 17:59:06 Gast37626
NotSolved
02.10.2020 20:40:17 Gast34831
NotSolved

Ansicht des Beitrags:
Von:
Gast34831		 Datum:
02.10.2020 16:31:53		 Views:
500		 Rating:
     
Antwort:
 Nein
Thema:
Inhalt in Zelle mit Text aus Tabelle vergleichen

Willst du z.b. nach dem Text 'Edeka' in Spalte A suchen:

Option Explicit

Sub Test()
  
  Dim rngFirst As Excel.Range
  Dim rngResult As Excel.Range
  
  With Worksheets("Table").Columns("A")
    
    Set rngResult = .Find(What:="Edeka", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
                          MatchCase:=False, MatchByte:=False)
    
    If Not rngResult Is Nothing Then
      Set rngFirst = rngResult
      Do
        Call MsgBox("Edeka gefunden in Zelle '" & rngResult.Address & "'", vbInformation)
        Set rngResult = .FindNext(rngResult)
      Loop While rngResult.Address <> rngFirst.Address
    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
02.10.2020 16:00:59 Christoph
NotSolved
Blau Inhalt in Zelle mit Text aus Tabelle vergleichen
 02.10.2020 16:31:53 Gast34831
Solved
02.10.2020 17:59:06 Gast37626
NotSolved
02.10.2020 20:40:17 Gast34831
NotSolved