If Left$(Sh.Name, 2) = "MA" Then
If Target.Cells.Count > 1 Then
Set Target = Target.Cells(1)
End If
If Target.Row >= 2 Then
If 2 <= Target.Column And Target.Column <= 5 Then
Dim rngResult As Excel.Range
Dim strID As String
Dim strThema As String
Dim strBuddy As String
Dim strVerantwk As String
Dim Ort As String
With Target.Worksheet
strID = .Cells(Target.Row, "A").Value
strThema = .Cells(Target.Row, "B").Value
strBuddy = .Cells(Target.Row, "C").Value
strVerantwk = .Cells(Target.Row, "D").Value
Ort = .Cells(Target.Row, "E").Value
End With
If strBuddy <> "" And strID <> "" Then