Wenn der Wert den ich in "B9" im Sheet "Aufträge Umsätze eingeben" eingebe im Sheet "Bestand" gar nicht vorhanden ist bekomme ich einen Laufzeitfehler. Super wäre es wenn ein kleines Fenster aufgehen würde mit "Wert nicht vorhanden" oder so ähnlich. Habt ihr auch dafür eine Lösung ? mein Code sieht so aus. Der Fehler erscheint in der Fett gedruckten Zeile
Gruss Peter
Option Explicit
Dim Zeile As String
Dim Stammdatensheet As String
Dim Bearbeitungssheet As String
'Die Variablen werden einfach hier oben deklariert, damit sie übergreifend verwendbar werden.
Sub Zeileholen_für_Änderung_AB()
Dim SuchBegriff As String
Dim DropDown As String
Dim Namenspalte As String
Zeile = 0
Stammdatensheet = "Bestand"
Bearbeitungssheet = "Aufträge Umsätze eingeben"
DropDown = "B9"
Namenspalte = "D:D"
SuchBegriff = ThisWorkbook.Sheets(Bearbeitungssheet).Range(DropDown).Value
'Holt den ausgewählten Wert aus dem Dropdownfeld
If IsNumeric(SuchBegriff) Then
Zeile = WorksheetFunction.Match(--SuchBegriff, Sheets(Stammdatensheet).Range(Namenspalte) _
_
, 0)
'Ermittelt die Zeile, wo der Name steht
Else
Zeile = WorksheetFunction.Match(SuchBegriff, Sheets(Stammdatensheet).Range(Namenspalte), 0) _
_
'Ermittelt die Zeile, wo der Name steht
End If
Call Bestand_für_Änderung_holen
Call Zeilemarkieren_Auftrag_ändern
End
Sub