12
Wert im nicht zusammenhängendem Bereich finden und Zeilen-Nummer ausgeben
Hallo,
ich habe eine Frage und hoffe, dass mir hier jemand weiterhelfen kann:
Name: Bereich1
Bezieht sich auf: =Tabelle1!$B$5;Tabelle1!$B$7;Tabelle1!$B$10;Tabelle1!$B$14
Der Bereich bildet sich also aus NICHT-Zusammenhängenden Zellen
Nun möchte ich innerhalb vom Bereich1
- einen bestimmten Wert suchen
- und mir die Zeilennummer anzeigen lassen, in der der Wert steht.
Hier ein Beispiel:
B2: Eingabe des gesuchten Wertes
B1: Ausgabe der Zeilennummer
Danke
Gruß
ich habe eine Frage und hoffe, dass mir hier jemand weiterhelfen kann:
Name: Bereich1
Bezieht sich auf: =Tabelle1!$B$5;Tabelle1!$B$7;Tabelle1!$B$10;Tabelle1!$B$14
Der Bereich bildet sich also aus NICHT-Zusammenhängenden Zellen
Nun möchte ich innerhalb vom Bereich1
- einen bestimmten Wert suchen
- und mir die Zeilennummer anzeigen lassen, in der der Wert steht.
Hier ein Beispiel:
B2: Eingabe des gesuchten Wertes
B1: Ausgabe der Zeilennummer
Danke
Gruß
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 496330
Url: https://administrator.de/forum/wert-im-nicht-zusammenhaengendem-bereich-finden-und-zeilen-nummer-ausgeben-496330.html
Ausgedruckt am: 09.04.2025 um 05:04 Uhr
12 Kommentare
Neuester Kommentar
In ein Modul packen
und in Zelle A2 die Formel schreiben
1
2
3
4
5
6
2
3
4
5
6
Public Function SearchRange(rangeSearch As String, subject As String)
Set f = Range(rangeSearch).Find(subject,LookIn:=xlValues)
If Not f Is Nothing Then
SearchRange = f.Row
End If
End Function=SearchRange("B5,B7,B10,B14";B2)
Hallo psuser,
vielen Dank. Das klappt schon mal sehr gut.
Allerdings hatte ich gehofft, dass es eine Formel als Lösung gibt.
Falls nicht, geht es natürlich auch mit dem Makro.
Danke
vielen Dank. Das klappt schon mal sehr gut.
Allerdings hatte ich gehofft, dass es eine Formel als Lösung gibt.
Falls nicht, geht es natürlich auch mit dem Makro.
Danke
Hallo!
Natürlich würde das als Formel auch gehen. Ist dann aber grausam zu warten und sehr unflexibel.
Eine Möglichkeit wäre dann zB. alles in eine verschachtelte WENN-Formel in Zelle A2 zu packen.
Gruß
eisbein
Natürlich würde das als Formel auch gehen. Ist dann aber grausam zu warten und sehr unflexibel.
Eine Möglichkeit wäre dann zB. alles in eine verschachtelte WENN-Formel in Zelle A2 zu packen.
1
=WENN(Tabelle1!$B$5=B2;5;WENN(Tabelle1!$B$7=B2;7;WENN(Tabelle1!$B$10=B2;10;WENN(Tabelle1!$B$14=B2;14,"")))) Gruß
eisbein
Ist doch eine Formel 
Ansonsten ginge mit deinem Beispiel auch
Ansonsten ginge mit deinem Beispiel auch
1
=SUMMENPRODUKT(ZÄHLENWENN(INDIREKT({"B5";"B7";"B10";"B14"});$B$2);{5;7;10;14})
Hallo psuser,
vielen Dank für die beiden Lösungen.
Die VBA Version ist die elegantere Lösung.
Besten dank dafür.
Gruß
vielen Dank für die beiden Lösungen.
Die VBA Version ist die elegantere Lösung.
Besten dank dafür.
Gruß
Hallo psuser,
eine Frage hätte ich noch:
Kann ich die Funktion auch über ein Makro bzw. per Schaltfläche starten?
Danke
eine Frage hätte ich noch:
Kann ich die Funktion auch über ein Makro bzw. per Schaltfläche starten?
Danke
Zitat von @mreske:
Hallo psuser,
eine Frage hätte ich noch:
Kann ich die Funktion auch über ein Makro bzw. per Schaltfläche starten?
Ja klarHallo psuser,
eine Frage hätte ich noch:
Kann ich die Funktion auch über ein Makro bzw. per Schaltfläche starten?
1
2
3
4
5
6
7
8
9
10
11
2
3
4
5
6
7
8
9
10
11
Public Function SearchRange(rangeSearch As String, subject As String)
Set f = Range(rangeSearch).Find(subject,LookIn:=xlValues)
If Not f Is Nothing Then
SearchRange = f.Row
End If
End Function
Sub NutzeDieFunktion()
Result = SearchRange("B5,B7,B10,B14",ActiveSheet.Range("B2").Text)
ActiveSheet.Range("A2").Value = Result
End Sub
1
Hallo psuser,
ich habe die Tabelle, die Funktion und das Makro jetzt so ausgebaut, dass mir für 6 Ränge die jeweilige Zeilenzahl angezeigt werden soll.
Das Problem ist jetzt, dass mir immer nur die Zeile vom Rang 1 angezeigt wird, wenn die Daten in Tabelle "Kalk" per Formel geholt werden.
Wenn ich die Ränge in "Kalk" überschreibe, funktioniert das Makro.
Was mache ich hier falsch?
Kann man hier eigentlich Excel-Tabellen hochladen?
So sieht das Ergebnis aus, wenn ich die Werte in Kalk überschreibe
Gruß
ich habe die Tabelle, die Funktion und das Makro jetzt so ausgebaut, dass mir für 6 Ränge die jeweilige Zeilenzahl angezeigt werden soll.
Das Problem ist jetzt, dass mir immer nur die Zeile vom Rang 1 angezeigt wird, wenn die Daten in Tabelle "Kalk" per Formel geholt werden.
Wenn ich die Ränge in "Kalk" überschreibe, funktioniert das Makro.
Was mache ich hier falsch?
Kann man hier eigentlich Excel-Tabellen hochladen?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function SearchRange(rangeSearch As String, subject As String)
Set f = Range(rangeSearch).Find(subject)
If Not f Is Nothing Then
SearchRange = f.Row
End If
End Function
Sub NutzeDieFunktion()
Result = SearchRange("RangBereich1", 1)
Sheets("AuswDetail").Range("Rang1").Value = Result
Result = SearchRange("RangBereich1", 2)
Sheets("AuswDetail").Range("Rang2").Value = Result
Result = SearchRange("RangBereich1", 3)
Sheets("AuswDetail").Range("Rang3").Value = Result
Result = SearchRange("RangBereich1", 4)
Sheets("AuswDetail").Range("Rang4").Value = Result
Result = SearchRange("RangBereich1", 5)
Sheets("AuswDetail").Range("Rang5").Value = Result
Result = SearchRange("RangBereich1", 6)
Sheets("AuswDetail").Range("Rang6").Value = Result
End SubSo sieht das Ergebnis aus, wenn ich die Werte in Kalk überschreibe
wenn die Daten in Tabelle "Kalk" per Formel geholt werden
Darf ich ned, alda ich hab "Köln-Kalk" Verbot
.Wenn du in Ergebnissen von Formeln suchst musst du das der Find-Funktion auch sagen
Zeile 2 den entsprechenden Parameter hinzufügen:
Set f = Range(rangeSearch).Find(subject, LookIn:=xlValues)
https://docs.microsoft.com/de-de/office/vba/api/excel.xlfindlookin
super!!! Tausend Dank,
KALK-Verbot ist somit umgehend aufgehoben :-=)
Beste Grüße und schönes WE
KALK-Verbot ist somit umgehend aufgehoben :-=)
Beste Grüße und schönes WE
Yess, endlich wieder Ramsdorfer Kölsch jipijehhhh!
Beste Grüße und schönes WE
Dito.
Mit einer Hilfsspalte ginge es auch so:
=ZEILE(INDEX(C:D;VERGLEICH(B1&B2;C:C&D:D;0);0))
dann mit Strg+Umschalt+Enter
Gruß
=ZEILE(INDEX(C:D;VERGLEICH(B1&B2;C:C&D:D;0);0))
dann mit Strg+Umschalt+Enter
Gruß
