wie kann ich den per Inbutbox abgefragten Suchbegriff in (Tabelle1) Spalte F, Zeile 1 bis 100 suchen lassen, und mir dann den gefundenen Wert in (Tabelle2) ausgeben lassen. Also der gefundene Wert soll dann in Tabelle 2 kopiert werden.
Hier mal ein kleinen Ansatz gefunden, dieser Sucht jedoch über Rows ich will ja über Columns suchen, und unten fehlt noch was... Kann mir jemand helfen?
Sub Suche()
Dim C As Range
Suchbegriff = InputBox("Suchbegriff")
Set C = Rows("1:100").Find(What:=Suchbegriff, LookIn:=xlValues, LookAt:=xlPart)
If C Is Nothing Then
MsgBox "Nicht gefunden"
Else
'gefundenen Wert in neues Tabellenblatt kopieren ?!
End If
Vielen Dank schonmal : )