Sub Aufbereiten()
    TextNEU = Umwandeln(Text)
  End Sub
 
  Function Umwandeln(tx As String) As String
    If tx.ToUpper.Contains("AMAZON") AndAlso tx <> "Amazon" Then
      Return "Amazon"
    ElseIf tx.ToUpper.Contains("MIETE") AndAlso tx <> "Miete" Then
      Return "Miete"
    ElseIf tx.ToUpper.Contains("VERSICHERUNG") AndAlso tx <> "Versicherung" Then
      Return "Versicherung"
    Else
      Return tx 'ohne Umwandlung
    End If
  End Function