Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Suchen im Bereich

Suchen im Bereich
26.09.2003 14:46:03
Branko
Hallo Forum,

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen im Bereich
26.09.2003 14:49:41
Andi_H
Hi Branko,
so etwa


Sub NamenSuchen()
Dim nTeleNr As Integer
Dim Bereich As Range
Dim Zelle As Range
Dim i, x As Long
x = Sheets("Namen").Cells(1, 2).End(xlDown).Row
Set Bereich = Sheets("Namen").Range("B1:B" & x)
nTeleNr = InputBox("Bitte Telefonnummer eingeben")
For Each Zelle In Bereich
If Zelle.Value = nTeleNr Then _
MsgBox Zelle.Value & " " & Zelle.Offset(0, -1).Value
Next Zelle
End Sub


Gruß

ANdi
AW: Suchen im Bereich
26.09.2003 14:51:05
ChrisL
Hi Branko


Sub NamenSuchen()
Dim nTeleNr As Integer
Dim Bereich As Range
Dim Zelle As Range
Dim i As Long
Set Bereich = Sheets("Namen").Range("B1:B" & Sheets("Namen").Range("B65536").End(xlUp).Row)
nTeleNr = InputBox("Bitte Telefonnummer eingeben")
For Each Zelle In Bereich
If Zelle.Value = nTeleNr Then _
MsgBox Zelle.Value & Cells(Zelle.Row, 1)
Next Zelle
End Sub



Gruss
Chris
Anzeige
AW: Suchen im Bereich
26.09.2003 14:57:26
Branko
Danke ihr beiden habt mir sehr geholfen klappt einwandfrei.

Gruß
Branko

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige