Herbers Excel-Forum - das Archiv

Cells.Find

Bild

Betrifft: Cells.Find
von: Thomas

Geschrieben am: 24.02.2005 18:38:44
Hallo liebes Forum
Ich bin in der Recherche nicht fündig geworden. Folgende, ich möchte in der Tabelle Default den UserName suchen, dann die Telefon, Mail, Funktion und Nr ausschreiben. Funktioniert auch gut so. Nur wenn der UserName nicht in der Liste vorhanden ist, soll etwas anderes gemacht werden!
Ich möchte eine Abfrage nach Cells.Find(Waht:=.....
If UserName nicht vorhanden, Then etwas anderes
UserName = Application.UserName
Sheets("Default").Select
Worksheets("Default").Range("U3").Activate
Cells.Find(What:=UserName, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate ' SearchFormat:=False (Version 2000 Fehler)
Telefon = ActiveCell.Offset(0, 1).Value
Mail = ActiveCell.Offset(0, 2).Value
Funktion = ActiveCell.Offset(0, 3).Value
Nr = ActiveCell.Offset(0, 4).Value
Danke für eure Mühe.
Gruss Thomas
Bild

Betrifft: AW: Cells.Find
von: Josef Ehrensberger

Geschrieben am: 24.02.2005 18:52:10
Hallo Thomas!
Das sollte es tun!
Sub UserSuche()
Dim rng As Range
Dim UserName As String, Telefon As String, Mail As String
Dim Funktion As String, Nr As String
UserName = Application.UserName
With Sheets("Default")
Set rng = .Cells.Find(What:=UserName, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not rng Is Nothing Then
Telefon = rng.Offset(0, 1).Value
Mail = rng.Offset(0, 2).Value
Funktion = rng.Offset(0, 3).Value
Nr = rng.Offset(0, 4).Value
Else
MsgBox "Nicht gefunden!"
End If
End With
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: Sepp, das tut es auch! Danke o.T
von: Thomas
Geschrieben am: 24.02.2005 19:07:41
.
 Bild