Hallo,
ich würde gerne die erste Zeile nach einem Wort durchsuchen lassen und die Spaltennummer als Variable in einer MsgBox ausgeben
In den weiten des Internets hab ich mir als Laie folgenden für mich sehr kompakten Code zusammengesucht, welcher leider aber folgende Fehler noch enthält:
- Durchsucht soll nur Zeile 1 werden, Ergebnis wird leider auch geliefert wenn der gesuchte Wert in Zeile 20 steht
- wenn nichts gefunden wurde, soll eine msgbox "nichts gefunden" melden
- wenn doppelt gefunden wurde, soll eine msgbox "doppelt gefunden" melden
Sub FindeSpalte()
Dim Suchwort As String, SMaterial As Integer
Suchwort = "abcd" 'Suchwort
SMaterial = ThisWorkbook.ActiveSheet.Cells.Find(Suchwort).Column
MsgBox SMaterial
End Sub
Der Code gefällt mir sonst sehr gut, weil er sehr kompakt ist, ich weiß, bringt nix wenn die Sachen noch fehlen!
Kann mir jemand bitte helfen?
Danke und liebe Grüße