Wert aus Zelle in Userform ausgeben

[Björn.412]

Moin,
irgendwie hänge ich auf dem Schlauch.

Mein Code soll Folgendes machen:
Suche die Zahl 1
Aktiviere die Zelle und rücke eine Zelle weiter nach rechts.

Bis hierher ok!

Aber....
Der Text aus der jetzt aktiven Zelle soll in der Userform1 in die Textbox1 ausgegeben werden.

An diesem Punkt hilft mir gerade Google nicht weiter.
Würde mit jemand bitte unter die Arme greifen ...

Code:

Sub FindenUndAusgeben1()

Dim finden As Range

Set finden = Range("C1:C5").Find(what:=1, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext)
finden.Cells.Select
ActiveCell.Offset(0, 1).Select
???


'MsgBox "" & ActiveCell
'MsgBox "Der Wert lautet: " & finden & " Der Wert findet sich in Zelle: " & finden.Address

End Sub

[DIZA]

Sowas wie...

Code:

UserForm1.TextBox1.Value = ActiveCell.Value

[Björn.412]

Moin,
danke für Deine Antwort, aber das hatte ich schon probiert und das funktioniert nicht.

Die Userform öfffnet sich nicht einmal.

Björn

[DIZA]

mhh. bei mir gings, hast du eine beispieldatei zum gucken ?

P.S.
Das musst du natürlich durch ein change event ausführen lassen bzw irgendein "Auslöser"

[Björn.412]

Moin,
anbei die Datei.

Björn

[DIZA]

so als Ansatz, du kannst natürlich den Auslöser anpassen

[EarlFred]

Code:

Option Explicit

Sub SuchenUndAusgeben1()

Dim finden As Range

Set finden = Range("C1:C5").Find(what:=1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)

If Not finden Is Nothing Then
   With New UserForm1
      .TextBox1.Text = finden.Offset(0, 1).Value
      .Show
   End With
End If

End Sub

[Björn.412]

Schaue ich mir morgen an und danke.

[snb]

Reicht schon:

Code:

Private Sub UserForm_Initialize()
    TextBox1 = Sheet2.Columns(1).Find(1).Offset(, 1)
End Sub