title image


Smiley Re: Person per VB anhand Name in Spalte A und Vorname in Spalte B finden?
Hallo Peter,



hier die Funktion:





Function SuchNamen(Nachname As String, Vorname As String) As Long

Dim such As String

such = Nachname

laR = Cells(Rows.Count, 1).End(xlUp).Row

With ActiveSheet.Range("A1:A" & laR)

Set c = .Find(such)

If Not c Is Nothing Then

'Vornamen noch pruefen

If Cells(c.Row, 2) = Vorname Then

SuchNamen = c.Row

Exit Function

End If

Else

SuchNamen = 0

End If

End With

End Function







und hier die Sub für den Aufruf aus einem Makro



Sub finde()

Dim NN As String

Dim VN As String

NN = InputBox("NName:")

VN = InputBox("VName:")

Zeile = SuchNamen(NN, VN)

MsgBox Zeile

End Sub







Viele Grüße

Herby



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: