Suchen von Werten in zwei Spalten

Dim rng As Range, LRow As Long, r As Long, ze As Variant, sw1 As Variant, sw2 As Variant, fnd As Boolean sw1 = .Cells(Zeile, ARTIKELNR).Value sw2 = .Cells(Zeile, KUNDENNR).Value With wks3 Set rng = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp)) '.Offset(0, -1)) r = Application.WorksheetFunction.CountIf(rng, sw1) For LRow = 1 To r ze = Application.Match(sw1, rng, 0) If IsNumeric(ze) Then r = IIf(LRow = 1, ze, r + ze) If .Cells(r, 2) = sw2 Then .Select .Cells(r, 3).Select fnd = True Exit For Else Set rng = .Range(rng.Offset(ze, 0), rng(rng.Cells.Count)) ze = Application.Match(sw1, rng, 0) End If End If Next LRow End With If fnd = False Then MsgBox "wurde nicht gefunden!" End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
sorry, hatte nur einen Teil des Codes gezeigt, da ich dachte, zwei Spalten nach zwei Werten zu suchen, wobei eine Zeile existiert, die beide Werte beinhaltet, ist etwas was ggf. häufiger gefragt wird...
Ich habe Deinen Hinweis aber aufgegriffen. In der nun angehängten Tabelle habe ich jetzt nur das Tabellenblatt und eine angepasste Sub in Modul 1 mit Beispiel-Suchwert. Nun kann ich die Zeile ermitteln (bzw. aktuell wird noch eine Zelle markiert), aber nur, wenn der Suchbegriff nicht in Anführungszeichen ist.
Ich ziehe aber die Suchbegriffe später aus Zellenwerten eines anderen Tabellenblatts und da werden diese in Anführungszeichen in einer variablen übergeben.
Dann wird mir auch wieder der Fehler 2042 angezeigt.
https://www.herber.de/bbs/user/154281.xlsm
Wie bekomme ich diese Anführungszeichen weg, bzw. was müsste ich anders deklarieren?
Läuft:


Private Sub Testsub()
Dim rng As Range, LRow As Long, r As Long, ze As Variant, sw1 As Variant, sw2 As Variant, fnd As Boolean, wks3 As Worksheet
Set wks3 = ThisWorkbook.Worksheets("Stammdt1")
sw1 = 56412022
sw2 = 51712
With wks3
Set rng = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp)) '.Offset(0, -1))
r = Application.WorksheetFunction.CountIf(rng, sw1)
For LRow = 1 To r
ze = Application.Match(sw1, rng, 0)
If IsNumeric(ze) Then
r = IIf(LRow = 1, ze, r + ze)
If .Cells(r, 7) = sw2 Then
.Select
.Cells(r, 7).Select
fnd = True
Exit For
Else
Set rng = .Range(rng.Offset(ze, 0), rng(rng.Cells.Count))
ze = Application.Match(sw1, rng, 0)
End If
End If
Next LRow
End With
If fnd = False Then MsgBox "wurde nicht gefunden!"
End Sub

Läuft nicht (so wurden die Werte in meinem vorherigen Beispiel übergeben:


Private Sub Testsub()
Dim rng As Range, LRow As Long, r As Long, ze As Variant, sw1 As Variant, sw2 As Variant, fnd As Boolean, wks3 As Worksheet
Set wks3 = ThisWorkbook.Worksheets("Stammdt1")
sw1 = "56412022"
sw2 = "51712"
With wks3
Set rng = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp)) '.Offset(0, -1))
r = Application.WorksheetFunction.CountIf(rng, sw1)
For LRow = 1 To r
ze = Application.Match(sw1, rng, 0)
If IsNumeric(ze) Then
r = IIf(LRow = 1, ze, r + ze)
If .Cells(r, 7) = sw2 Then
.Select
.Cells(r, 7).Select
fnd = True
Exit For
Else
Set rng = .Range(rng.Offset(ze, 0), rng(rng.Cells.Count))
ze = Application.Match(sw1, rng, 0)
End If
End If
Next LRow
End With
If fnd = False Then MsgBox "wurde nicht gefunden!"
End Sub

Private Sub Testsub() Dim rng As Range, LRow As Long, r As Long, ze As Variant, sw1 As Variant, sw2 As Variant, fnd As Boolean, wks3 As Worksheet Dim num As Range Set wks3 = ThisWorkbook.Worksheets("Stammdt1") sw1 = 56412022 sw2 = 51712 Set rng = wks3.Range("B:B").SpecialCells(xlConstants, xlNumbers) For Each num In rng If num = sw1 And Cells(num.Row, "G") = sw2 Then wks3.Rows(num.Row).Select 'Exit For Exit Sub End If Next num MsgBox sw1 & " in Kombination mit " & sw2 & " wurde nicht gefunden!", vbCritical + vbOKOnly End Sub

With wks3 Set rng = wks3.Range("B4:B50").SpecialCells(xlConstants) For Each num In rng Select Case True Case num = sw1 And .Cells(num.Row, "G") = sw2 .Activate .Rows(num.Row).Select Exit For Exit Sub End Select Next num MsgBox sw1 & " in Kombination mit " & sw2 & " wurde nicht gefunden!", vbCritical + vbOKOnly

dim arrB, arrG dim z as long arrB = ActiveSheet.Usedrange.Columns(2) arrG = ActiveSheet.Usedrange.Columns(7) for z = 1 to ubound(arrB, 1) if arrB(z, 1) = Suchwert1 Then if arrG(z, 1) = Suchwert2 Then hier der Code, der bei einem Treffer ausgeführt werden soll, z ist die Zeilennummer der jeweiligen Zeile Exit for end if end if Next if z > ubound(arrB, 1) then Msgbox "kein Treffer"

Beliebteste Forumthreads (12 Monate)

Suchen von Werten in zwei Spalten

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen von Werten in zwei Spalten

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread