title image


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



nochmal eine verbesserte Version des Makros:



Also hier die Funktion:





Option Explicit

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

Dim c As Variant

Dim such As String

Dim laR As Long

'Suchbereich festlegen

such = Nachname

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

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

Set c = .Find(such, LookIn:=xlValues, lookat:=xlWhole)

If Not c Is Nothing Then ' Nachname gefunden

ErsteZeile = c.Row ' gefunden in Zeile

Do

'Vornamen noch pruefen

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

SuchNamen = c.Row 'Rückgabe der Zeilen-Nr.

Exit Function 'beenden der Funktion

End If

Set c = .FindNext(c)

Loop While c.Row ErsteZeile

Else

SuchNamen = 0 ' Rückgabe von 0 wenn nicht gefunden

End If

End With

End Function





und hier der Aufruf aus einer Procedure heraus:





Sub finde()

Dim Zeile As Long

Dim NN As String

Dim VN As String

NN = InputBox("NName:")

VN = InputBox("VName:")

Zeile = SuchNamen(NN, VN)

MsgBox Zeile

End Sub







Der Rückgabewert, wenn kein Name gefunden wurde,

ist derzeit 0





Viele Grüße

Herby





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: