Wert suchen und text aus anderem Feld an Userform übergeben

21/02/2008 - 11:29 von stego | Report spam
Hallo zusammen,

ich bin mir ziemlich sicher, daß mir hier wieder geholfen werden kann.
Kurz erklàrt:

Ich habe eine Userform (UserForm_Anrede):

In der TextBox (zuletzt_angeschrieben) soll geprüft werden, ob in Tabelle
"angeschrieben" der Wert aus Variable sadressblock(6) vorhanden ist.

Wenn ja, dann soll er mir den Wert aus Tabelle "angeschrieben", Zeile (die
Zeile, in der er den Wert gefunden hat), Spalte 3 (=Datumsfeld) ausgeben.

Nàchstes Problem wàre, wenn der Wert aus sadressblock(6) 2 mal gefunden
wird. Dann soll er mir nur das letzte (aktuellste) Datum ausgeben; also die
letzte Zeile, in der der Wert aus sadressblock(6) gefunden wurde -> Spalte 3.

Hoffe das klingt soweit logisch.
Danke schon mal für die Hilfe
Gruß
Stephan
 

Lesen sie die antworten

#1 stefan onken
21/02/2008 - 15:21 | Warnen spam
On 21 Feb., 11:29, stego wrote:
Hallo zusammen,

ich bin mir ziemlich sicher, daß mir hier wieder geholfen werden kann.
Kurz erklàrt:

Ich habe eine Userform (UserForm_Anrede):

In der TextBox (zuletzt_angeschrieben) soll geprüft werden, ob in Tabelle
"angeschrieben" der Wert aus Variable sadressblock(6) vorhanden ist.

Wenn ja, dann soll er mir den Wert aus Tabelle "angeschrieben", Zeile (die
Zeile, in der er den Wert gefunden hat), Spalte 3 (=Datumsfeld) ausgeben.

Nàchstes Problem wàre, wenn der Wert aus sadressblock(6) 2 mal gefunden
wird. Dann soll er mir nur das letzte (aktuellste) Datum ausgeben; also die
letzte Zeile, in der der Wert aus sadressblock(6) gefunden wurde -> Spalte 3.

Hoffe das klingt soweit logisch.
Danke schon mal für die Hilfe
Gruß
Stephan



hallo Stephan,
teste mal dieses Makro:


With Sheets("angeschrieben").Range("A:A")
Set found = .Find(sadressblock(6))
If Not found Is Nothing Then
ErsterTreffer = found.Address
zeile = found.Row
Do
Set found = .FindNext(found)
If Not found Is Nothing Then
If found.Row > zeile Then zeile = found.Row
End If
Loop While found.Address <> ErsterTreffer
End If
MsgBox .Cells(zeile, 3)
End With
End Sub

Gruß
stefan

Ähnliche fragen