Zeile bei der Suche auslassen
24.03.2017 09:24:59
Peter
ich hab mal wieder ein Problemchen. Ich möchte unten stehenden Code so ändern das die Suche erst bei Zeile 12 beginnt. Wie kann ich das lösen ?
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