Ich bräuchte nochmals Hilfe:
Hier auszugsweise mein Code ( Dim fehlt )
sFind = textbox1
For each wks in worksheets
Set rng =wks.Cells.Find(what:=sFind,lookat:=xlPart,LookIn:=xlFormulas)
If sFind = "" Then exit Sub
If Not rng Is Nothing Then
sAddress =rngAddress
Do
Application.Goto rng,True
Textbox2.Text = rng
Nun kommt mein problem-- bis hier klappt es das gesuchte Wort erscheint in textbox2.
Textbox3.Text = ActiveWindow.ActiveCell.Cells(1,1 +1)
Das klappt nicht
Ich môchte dass Excel mir den Namen links neben der Zelle(rng)Fundwort gefunden hat in Textbox3 ausgibt
wie kann ich das machen
gruss lucien