In den Büchern in die ich geguckt habe ist alles immer so ganz einfach, in Wirklichkeit natürlich nicht. Ich hab schon dran gedacht die Liste zu erweitern die ich durchsuche in dem ich die Wortstämme umdrehe oder die weibliche Form automatisch weglasse (/ entfernen), trotzdem muss ich danach noch diesen Levenshtein Algorithmus in irgendeiner Form anwenden. Der angegebene Code klappt so nicht.
Visual Basic-Quellcode
- Sub Detail2()
- Dim Eingabe, Vorgabe, Suchen, Zelle, Suchzelle As Range
- Dim Einteil As String
- Dim i, i2 As Integer
- Set Eingabe = Worksheets("Eingabe").Range("A:A")
- Set Vorgabe = Worksheets("Vorgabe").Range("A:A")
- Set Suchen = Worksheets("Suchen").Range("A:A")
- i = InStr(Vorgabe.Value, "/")
- i2 = Len(Vorgabe.Value)
- Einteil = Left(Vorgabe.Value, i - 1)
- Sheets("Suchen").Value = Einteil
- For Each Zelle In Eingabe
- If Zelle = "" Then Exit For
- For Each Suchzelle In Suchen
- If Suchzelle = "" Then Exit For
- If InStr(Suchzelle, Einteil) > 0 And Zelle.Offset(0, 1) = "" Then
- Zelle.Offset(0, 1) = Suchzelle.Offset(0, 1)
- Exit For
- End If
- Next Suchzelle
- Next Zelle
- ' ...
- End Sub
- ' ...
- Sub Drehen()
- Dim Zelle As Range
- Set Zelle = Worksheets("Umdrehen").Range("A:A")
- For Each Zelle In Selection
- Zelle.Offset(0, 1).Value = Mid(Zelle.Value, InStr(Zelle.Value, " ") + 1, _
- (Len(Zelle.Value) - InStr(Zelle.Value, " "))) & _
- " " & Left(Zelle.Value, InStr(Zelle.Value, " ") - 1)
- Next Zelle
- End Sub