Clever-Excel-Forum

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

Sowas wie...

Code:
UserForm1.TextBox1.Value = ActiveCell.Value

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

Die Userform öfffnet sich nicht einmal.

Björn

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"

Moin,
anbei die Datei.

Björn

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

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

Schaue ich mir morgen an und danke.

Reicht schon:

Code:
Private Sub UserForm_Initialize()

    TextBox1 = Sheet2.Columns(1).Find(1).Offset(, 1)

End Sub

Björn.412

DIZA

Björn.412

DIZA

Björn.412

DIZA

EarlFred

Björn.412

snb