Zeile bei der Suche auslassen

Sub Zeilemarkieren_Auftrag_ändern() Dim Dropdown As String Dim Namenspalte As String Dim Suchbegriff ' As Variant Dim myRow ' As Variant Stammdatensheet = "Bestand" Bearbeitungssheet = "Aufträge Umsätze eingeben" Dropdown = "B9" Namenspalte = "D:D" With Sheets(Stammdatensheet) .Activate 'Holt den ausgewählten Wert aus dem Dropdownfeld Suchbegriff = ThisWorkbook.Sheets(Bearbeitungssheet).Range(Dropdown).Value If IsNumeric(Suchbegriff) Then Suchbegriff = --Suchbegriff 'Ermittelt die Zeile, wo der Name steht myRow = Application.Match(Suchbegriff, .Range(Namenspalte), 0) If IsNumeric(myRow) Then .Rows(myRow).Select Else MsgBox Suchbegriff & " nicht gefunden" End If End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo!
Also sauber ist der Code ja nicht gerade; da gäbe es einiges Aufzuräumen. Aber rein grds. zu Deiner Frage: Am einfachsten, ohne viel Verrenkungen, ist es wohl, den Suchbereich entsprechend einzugrenzen - Du suchst ja aktuell in der gesamten Spalte D; Du könntest aber genauso gut auch erst ab D12, bis zum Ende von D, suchen. Würde ich dann so schreiben (mit ein paar ersten kosmetischen Veränderungen in Deinem Code):

Sub Zeilemarkieren_Auftrag_aendern_Neu()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsStamm As Worksheet: Set WsStamm = Wb.Worksheets("Bestand")
Dim WsBearb As Worksheet: Set WsBearb = Wb.Worksheets("Aufträge Umsätze eingeben")
Dim DropDown As Range: Set DropDown = WsBearb.Range("B9")
Dim SuchBereich As Range, myRow, SuchBegriff
With WsStamm
.Activate
'SuchBereich eingrenzen auf D12:Dx, wobei x = letzte gefüllte Zelle in D
Set SuchBereich = .Range("D12:D" & .Cells(.Rows.Count, 4).End(xlUp).Row)
SuchBegriff = DropDown.Value
If IsNumeric(SuchBegriff) Then SuchBegriff = --SuchBegriff
myRow = Application.Match(SuchBegriff, SuchBereich, 0)
If Not IsError(myRow) Then
.Rows(myRow).Select
Else:
MsgBox SuchBegriff & "nicht gefunden!"
End If
End With
End Sub

LG
Michael

Sub Zeilemarkieren_Auftrag_ändern() Dim wksBestand As Worksheet, wksUmsatz As Worksheet Dim rngDropdown As Range, rngSuchspalte As Range, rngTreffer As Range Set wksBestand = ThisWorkbook.Worksheets("Bestand") Set wksUmsatz = ThisWorkbook.Worksheets("Aufträge Umsätze eingeben") Set rngDropdown = wksUmsatz.Range("B9") Const strNamenspalte As String = "D" With wksBestand Set rngSuchspalte = .Range(.Range(strNamenspalte & "12"), _ .Cells(Rows.Count, strNamenspalte).End(xlUp)) Set rngTreffer = rngSuchspalte.Find(rngDropdown, LookIn:=xlValues) If rngTreffer Is Nothing Then MsgBox rngDropdown & " nicht gefunden" Else .Activate .Rows(rngTreffer.Row).Select End If End With End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread