Thema Datum  Von Nutzer Rating
Antwort
30.06.2022 09:35:09 Rob
NotSolved
Blau "Komplizierte Suche" von Werten in einer Liste
 30.06.2022 21:28:53 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
30.06.2022 21:28:53		 Views:
404		 Rating:
     
Antwort:
  Ja
Thema:
"Komplizierte Suche" von Werten in einer Liste
hier ein Versuch, ungetestet. 
Sub suchebw()

Dim lcnt As Long
Dim lend As Long
Dim A, B

 A = InputBox("LG: ", "Eingabe")
 B = InputBox("BG: ", "Eingabe")
 If Not IsNumeric(A) Or Not IsNumeric(B) Then MsgBox ("falsche Eingabe"): Exit Sub
lend = 3909
For lcnt = 1 To lend
    If Cells(lcnt, 1) = A And Cells(lcnt, 2) = B Then
      MsgBox "BW = " & Cells(lcnt, 3)
      Exit For
    End If
Next
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
30.06.2022 09:35:09 Rob
NotSolved
Blau "Komplizierte Suche" von Werten in einer Liste
 30.06.2022 21:28:53 ralf_b
NotSolved