Suchen im Bereich
26.09.2003 14:46:03
Branko
ich habe gleich 2 Fragen zu diesem Code. Die erste lautet wie kann ich den Bereich so festlegen das er abhängig ist von der Anzahl der Einträgen. Das heißt wenn ich Einträge dazu schreibe das sich der Bereich automatisch vergrößert um die Einträge. Die zweite Frage ist wie kann ich denn Namen der zugehörigen Telefonnumer ausgeben. Das heißt wenn die Telefonnumer gefunden wurde das er eine Spalte zurück geht aber in der gleichen Zeile und dann den Namen ausgiebt.
Sub NamenSuchen()
Dim nTeleNr As Integer
Dim Bereich As Range
Dim Zelle As Range
Dim i As Long
Set Bereich = Sheets("Namen").Range("B1:B17")
nTeleNr = InputBox("Bitte Telefonnummer eingeben")
For Each Zelle In Bereich
If Zelle.Value = nTeleNr Then _
MsgBox Zelle.Value
Next Zelle
End Sub
Danke schon im voraus
Gruß
Branko