If Target.Address(0, 0) = "B6" And Target.Value <> "" Then
selectedOption = Me.Range("B6").Value
With Sheets("Rohdaten")
searchData = Application.Match(selectedOption, .Columns(1), 0)
If IsNumeric(searchData) Then
Application.EnableEvents = False
Me.Range("L5:L9") = WorksheetFunction.Transpose(.Cells(searchData, 2).Resize(1, 5))
Application.EnableEvents = True
End If
End With
Else
If Not Intersect(Target, Me.Range("L5:L9")) Is Nothing Then
If Me.Range("B6") <> "" Then
With Sheets("Rohdaten")
searchData = Application.Match(Me.Range("B6").Value, .Columns(1), 0)
If IsNumeric(searchData) Then
.Cells(searchData, 2).Resize(1, 5) = WorksheetFunction.Transpose(Me.Range("L5:L9"))
End If
End With
End If
End If
End