Das Archiv des Excel-Forums

Suchen im Bereich

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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

Excel-Beispiele zum Thema " Suchen im Bereich"

Zellinhalt suchen und Zelle auswählen download Suchbegriff über mehrere Tabellenblätter suchen. download
Suchen und weitersuchen download Zahl +/- 1 suchen download
Ein Zeichen in einer Formel suchen download Datum suchen und Wert eintragen download
Wert in Tabelle suchen und in UserForm ausgeben download Letzte Zelle mit Inhalt suchen download
Textdatei nach Begriff durchsuchen und Fundzeile importieren download Wert in Array suchen, ohne jedes Datenfeld abzufragen download
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen download Suchen von Nachnamen in Zeichenfolgen download
Dateien in einem Verzeichnis und Unterverzeichnissen suchen download Datum suchen und Adresse der Fundzelle ausgeben download
Begriffe in zweiter Tabelle suchen und Werte anfügen download Text aus UserForm-TextBox in Tabelle suchen download
Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download Suchbegriff in vorhergehenden Tabellen suchen download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Neueste Textdatei eines Verzeichnisses suchen und umbenennen download
Artikelnummern suchen und jeweils letzte Fundstelle listen download Wörter eines Satzes in Indizliste suchen download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Zellwert nach Doppelklick in Tabelle suchen download
Suchen in 2. Tabelle und Ersetzen der Quelldaten download Wert in Tabelle 2 suchen und Fundstellen übertragen download
Suchbegriff in Tabelle suchen und Fundzeilen auswählen download Suchbegriffe aus Tabelle im Excel-WebArchiv suchen download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Artikelnummer über InputBox suchen und eintragen download
Anwendung auf Fesplatte suchen download Tabelle nach ComboBox-Auswahl durchsuchen download
Werte suchen, eintragen und löschen download Zeile 1 nach Wert der aktiven Zelle durchsuchen download
Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben download Wert in zweiter Tabelle suchen und als Kommentar ausgeben download
Wert in externer Mappe suchen und mit Format übernehmen. download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Wert in ComboBox einlesen, suchen, editieren, ausgeben download Grafikdateien suchen download
Suchen der Nachbarzelle der Zelle mit dem Maximalwert download Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Zahl suchen und an den Fundstellen Zeile einfügen download
Name und Vorname suchen, Werte und Fundstellen importieren download Begriff in der ersten Spalte einer ListBox suchen download
Leerzeichen aus einem Bereich löschen download Befindet sich die aktive Zelle in einem bestimmten Bereich? download
Mehrbereichsauswahl auf eine Seite drucken. download Spalten einer Mehrbereichsauswahl ausblenden. download
Bereich mit Maximalwert markieren download Benannten Bereich erweitern download
Bereich in RefEdit-Element eingeben und auslesen download Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download
Letzter Wert aus einem Bereich download Bereiche bei Mehrfachauswahl prüfen download
Auswahl eines Zellbereiches verhindern download Bereiche in Abhängigkeit eines Zellinhaltes drucken download
Den selben Bereichsnamen in mehreren Tabellenblättern download Leere Zeilen und Spalten in ausgewähltem Bereich löschen download
URLs eines ausgewählten Bereiches in HyperLinks umwandeln download Werte aus Zellbereich in eine Matrix übernehmen und auslesen download
Zellauswahl auf den ausgewählten Bereich beschränken download Berechnung des ausgewählten Bereiches in der Statusleiste download
Bereiche auf Übereinstimmung vergleichen download Scrollbereich begrenzen download
Tabellenblattbereich als Email versenden download Serie von Bereichsnamenteilen einer Arbeitsmappe ändern download
Worte in einem vorgegebenen Bereich zählen download Bereichsnamen ermitteln und als Kommentare anzeigen download
Bereichsnamen in UserForm-ListBox auflisten und editieren download Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download
Werte aus einem nicht zusammenhängendem Bereich auslesen download Druckbereich variabel gestalten download
Tabellenblattbereich sortiert als Zellkontextmenü download Überschriften aus Spalte C in Spalte D in den relevanten Bereich download
Druckbereich bis zum ersten Nullwert festlegen download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Markierten Bereich mit jeweiligem Mwst-Satz multiplizieren download Cursor in bestimmtem Zellbereich in Eieruhr verwandeln download
Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen download Formelbereich in Einzelelemente aufschlüsseln download
Datenreihenbeschriftungs-Quellbereich ausserhalb des Datenbereiches download Diagramm-Datenbereich über Schaltfläche festlegen download
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Namen eines ausgewählten Bereiches auslesen download Den in einer Zelle genannten Bereich eines Blattes drucken download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Bereich aus anderer Tabelle für 2 Sekunden anzeigen download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Aktuellen Bereich in den Spalten A:F als Druckbereich download
Über UserForm-RefEdit-Steuerelement Bereich auswählen download Über InputBox festzulegenden Bereich kopieren download
Anzahl der Übereinstimmungen in zwei Bereichen ermitteln download