Suchen im Bereich

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Suchen im Bereich
von: Branko
Geschrieben am: 26.09.2003 14:46:03

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
Bild


Betrifft: AW: Suchen im Bereich
von: Andi_H
Geschrieben am: 26.09.2003 14:49:41

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


Bild


Betrifft: AW: Suchen im Bereich
von: ChrisL
Geschrieben am: 26.09.2003 14:51:05

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


Bild


Betrifft: AW: Suchen im Bereich
von: Branko
Geschrieben am: 26.09.2003 14:57:26

Danke ihr beiden habt mir sehr geholfen klappt einwandfrei.

Gruß
Branko


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Suchen im Bereich"