VBA Wert alphabetisch zuordnen
09.05.2020 19:59:33
Marian
ich würde gerne per InputBox einen Namen eingeben. Dieser Name wird dann in Spalte 3 ab Zelle 5 mit den Werten in den Zeilen nacheinander verglichen. Liegt der Name weiter hinten im Alphabet soll die nächste Zelle verglichen werden.
Sobald der Text in Zelle weiter hinten im Alphabet liegt soll die Zelle aktiviert werden, ab da kommt dann ein Makro ins Spiel, das dort eine neue Zeile einfügt, dieses Makro habe ich schon.
Wenn kein Wert weiter hinten im Alphabet liegt soll die letzte Zelle mit Inhalt markiert werden.
Ich habe schon viel rumgesucht, sobald man irgendwas mit alphabetisch eingibt, geht es leider immer ums Sortieren.
Hier ein erster Anfang, der nicht funktioniert, mir ist auch bewusst warum, nur leider weiß ich nicht wie man das eingibt.
"Größer als" funktioniert bei Buchstaben leider nicht.
Sub Test()
Dim i As Integer
Dim strEingabe As String
strEingabe = InputBox("Namen eingeben")
For i = 5 To Range("C1999")
If strEingabe > Range("C" & i) Then
Range("C" & i).Activate
'Ab hier kommt das andere Makro
End If
Next
End Sub
Anzeige