Thema Datum  Von Nutzer Rating
Antwort
14.06.2022 10:02:22 Chrisi
NotSolved
Blau Zwei verschiedene Werte in gleicher Zeile suchen
14.06.2022 11:04:34 Gast99978
NotSolved

Ansicht des Beitrags:
Von:
Gast99978
Datum:
14.06.2022 11:04:34
Views:
456
Rating: Antwort:
  Ja
Thema:
Zwei verschiedene Werte in gleicher Zeile suchen

Ehrlich gesagt verstehe ich das Problem noch nicht ganz.

Option Explicit

Sub Test()
  
  Dim rngLotId As Excel.Range
  Dim rngConfirmId As Excel.Range
  'Dim blnFlag As Boolean
  Dim strWhat As String
  
  strWhat = Trim$(InputBox("Bitte geben Sie eine Losnummer ein:"))
  
  If Len(strWhat) = 0 _
    Then Exit Sub
  
  With Worksheets("Vorgabedatei").Range("A1:A100")
    
    'erstes Vorkommen von Losnummer suchen (liefert Referenz auf Zelle)
    Set rngLotId = .Find( _
                      What:=strWhat, _
                      LookIn:=xlValues, _
                      LookAt:=xlWhole, _
                      SearchOrder:=xlByColumns, _
                      MatchCase:=False)
    
    'blnFlag = False
    If Not rngLotId Is Nothing Then
      
      Dim strFirstAddr As String
      strFirstAddr = rngLotId.Address
      
      '<ggf. hier InputBox für Rückmeldenummer>
      
      Do
        'Rückmeldenummer (als Zellen-Referenz) in der selben Zeile der Losnummer
        Set rngConfirmId = rngLotId.Worksheet.Cells(rngLotId.Row, "C")
        
        'Ausgabe von Losnummer und Rückmeldenummer
        Debug.Print "LotId: '"; rngLotId.Value; "', ConfirmId: '"; rngConfirmId.Value; "' (Row: "; CStr(rngLotId.Row); ")"
        
        'If <Rückmeldenummer überprüfen> Then
        ' blnFlag = True 'Übereinstimmung gefunden
        ' Exit Do
        'End If
        
        'weitere Vorkommen von LotId suchen
        Set rngLotId = .FindNext(After:=rngLotId)
        
      Loop While rngLotId.Address <> strFirstAddr
    End If
    
    'If blnFlag Then
    '  <Aktion bei gefundener Übereinstimmung>
    'End If
    
  End With
  
End Sub

Damit suchst du nach der Losnummer in A. Wird eine Losnummer gefunden, werden alle Vorkommen der Losnummern gesucht. Dabei wird jedesmal der Wert in der gleichen Zeile, Spalte C referenziert (Rückmeldenummer) und kann mit einer Eingabe verglichen werden (im Code nur angedeutet). Stimmt die Rückmeldenummer, wird ein Flag gesetzt und die Schleife verlassen (über die Referenzen hat man die entsprechenden Zellen noch verfügbar ).

 


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
14.06.2022 10:02:22 Chrisi
NotSolved
Blau Zwei verschiedene Werte in gleicher Zeile suchen
14.06.2022 11:04:34 Gast99978
NotSolved