Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Matrix durchsuchen -> Überschrift zurück

Forumthread: Matrix durchsuchen -> Überschrift zurück

Matrix durchsuchen -> Überschrift zurück
28.07.2015 13:05:05
Benjamin
Hallo zusammen,
in einer Matrix soll ein String gesucht werden, wird er gefunden, soll der Rückgabewert die Spaltenüberschrift oder die Zeilenbeschriftung zurückgegeben werden.
Damit es verständlicher ist, habe ich eine Beispieltabelle angehängt.
https://www.herber.de/bbs/user/99117.xlsx
Schon mal vielen Dank für die Hilfe.
Viele Grüße
Be.

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Matrix durchsuchen -> Überschrift zurück
28.07.2015 14:25:48
Sepp
Hallo Benjamin,
Tabelle1

 EFGHI
14     
15 Abnahme Nr.DkComp. 
16 213634Comp. 13 
17 213814Comp. 14 
18 21612   
19 238693Comp. 13 
20 242215Comp. 15 
21 242205Comp. 14 
22 242195Comp. 13 
23 251274Comp. 17 

Formeln der Tabelle
ZelleFormel
G16=WENNFEHLER(INDEX($A$2:$A$11;AGGREGAT(15;6;ZEILE($A$1:$A$10)/($B$2:$X$11=$F16); 1)); "")
H16=WENNFEHLER(INDEX($B$1:$X$1;1;AGGREGAT(15;6;SPALTE($A$1:$W$1)/($B$2:$X$11=$F16); 1)); "")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
wobei verbundene Zellen dabei zu Problemen führen können!
Gruß Sepp

Anzeige
AW: Matrix durchsuchen -> Überschrift zurück
28.07.2015 14:40:24
Benjamin
Hallo Sepp,
vielen Dank für Deine Hilfe.
Leider habe ich Excel 2007 und Aggregat gibt es erst ab 2010.
Hast Du eine Idee, wie ich das ohne Aggregat hinbekommen kann?
Danke für Deine Rückmeldung.
Viele Grüße
Benjamin

AW: Matrix durchsuchen -> Überschrift zurück
28.07.2015 14:43:51
Sepp
Hallo Benjamn,
dann als Matrix-Formel.
Tabelle1

 EFGHIJ
13      
14      
15 Abnahme Nr.DkComp.  
16 213634Comp. 13  
17 213814Comp. 14  
18 21612    

Formeln der Tabelle
ZelleFormel
G16{=WENNFEHLER(INDEX($A$2:$A$11;KKLEINSTE(WENN($B$2:$X$11=$F16;ZEILE($A$1:$A$10)); 1)); "")}
H16{=WENNFEHLER(INDEX($B$1:$X$1;1;KKLEINSTE(WENN($B$2:$X$11=$F16;SPALTE($A$1:$W$1)); 1)); "")}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Sepp

Anzeige
AW: Matrix durchsuchen -> Überschrift zurück
28.07.2015 15:18:00
Benjamin
Hallo zusammen,
danke für Eure Lösungne, die Matrixformel funktioniert.
Das Makro werde ich morgen testen.
Danke und schönen Feierabend.
Viele Grüße
Benjamin

AW: Matrix durchsuchen -> Überschrift zurück
28.07.2015 14:42:43
Peter
Hallo Benjamin,
ich kann dir ein kleines Makro anbieten, das die Aufgabe erfüllen sollte.
Das kopierst du dir in ein allgemeines Modul und startest es z. B. über Alt + F8
Gruß Peter
Option Explicit Public Sub Suchen() Dim WkSh As Worksheet Dim rZelle As Range Dim lZeile As Long Set WkSh = ThisWorkbook.Worksheets("Tabelle1") With WkSh.Range("B2:X10") For lZeile = 16 To WkSh.Cells(WkSh.Rows.Count, 6).End(xlUp).Row Set rZelle = .Find(What:=WkSh.Range("F" & lZeile).Value, LookIn:=xlValues, LookAt:= _ xlWhole) If Not rZelle Is Nothing Then WkSh.Range("G" & lZeile).Value = WkSh.Range("A" & rZelle.Row) WkSh.Range("H" & lZeile).Value = Mid(WkSh.Cells(1, rZelle.Column), 7, 2) End If Next lZeile End With End Sub

Anzeige
AW: auch mehrfach Vorkommen berücksichtigen
28.07.2015 17:52:14
Peter
Hallo Benjamin,
dieses Makro listet auch die mehrfach vorkommenden Suchbegriffe an.
Gruß Peter 
Public Sub Suchen_I()
Dim WkSh     As Worksheet
Dim rZelle   As Range
Dim sFundst  As String     ' die erste Fundstelle des Suchbegriffs
Dim iSpalte  As Integer: iSpalte = 7
Dim lZeile   As Long
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
With WkSh.Range("B2:X10")
For lZeile = 16 To WkSh.Cells(WkSh.Rows.Count, 6).End(xlUp).Row
Set rZelle = .Find(What:=WkSh.Range("F" & lZeile).Value, LookIn:=xlValues, LookAt:= _
xlWhole)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address   ' die erste Fundstelle merken/speichern
Do
WkSh.Cells(lZeile, iSpalte).Value = WkSh.Range("A" & rZelle.Row).Value
'WkSh.Range(lZeile, iSpalte + 1).Value = Mid(WkSh.Cells(1, rZelle.Column), 7, 2)
WkSh.Cells(lZeile, iSpalte + 1).Value = WkSh.Cells(1, rZelle.Column).Value
iSpalte = iSpalte + 2
Set rZelle = .FindNext(rZelle) ' den evtl. nächsten Begriff suchen
Loop While Not rZelle Is Nothing And rZelle.Address  sFundst
Else
'MsgBox "Der Begriff  """ & sSuchbegriff & """  wurde nicht gefunden.", _
48, "   Hinweis für " & Application.UserName
End If
iSpalte = 7
Next lZeile
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Liste durchsuchen, Werte übertragen
Markus

Ich habe eine Liste in deren 1. Zeile eine Projektnummer steht und in der 2. Zeile ein Name. Jetzt möchte ich in einer anderen Liste in der 1. Zeile die Projektnummer und in der 2. Zeile den Namen haben, aber sortiert nach Mitarbeitern. D.h. eine Liste für Mitarbeiter A, eine Liste mit Mitarbei...
27.08.2008 10:05:31
Thread-ID: 1004995
2 Beiträge
Durchsuchen von Bereichen
Bereichen


Hallo zusammen,
für euch wahrscheinlich sehr einfach ;) ich komme aber leider einfach nicht weiter.
Ich möchte folgendes machen:
Ich gebe in eine Liste (Zeile 2 bis max. 5000) Daten ein
Spalte A: Produkt
Spalte B: Produktnummer
Spalte D: Priorität
Spalte E: Mita...
19.09.2008 16:59:00
Thread-ID: 1011094
5 Beiträge
Sverweis und mehrere Dateien durchsuchen
Benjamin

Hallo,
ist es möglich mit sverweis oder einer anderen Funktion mehere gleich aufgebaute Dateien zu durchsuchen und ein bestimmten wert (z.b in der zweiten Spalte) auszugeben. Also keine sheets sondern, dass das Makro die dateien eigenständig öffnet z.b. all dateien in diesem Odner öfnnet un...
26.09.2008 02:00:36
Thread-ID: 1012468
2 Beiträge
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 11:27:54
Thread-ID: 1021806
4 Beiträge
Spaltenbereich durchsuchen
Mag

Hallo,
in einem Spaltenbereich stehen leere Zellen, in bestimmten Zellen aber in einem nicht bekannten Abstand eine Reihe von Einsen. Gesucht wird die erste auftretende Eins und dann nach einer unbekannten Anzahl Einsen mit anschließenden Leerzellen wieder die nächste auftretende Eins.
...
13.11.2008 11:49:38
Thread-ID: 1024127
5 Beiträge
Anzeige
Sheetname nach bestimmtem Teil durchsuchen
Marc

Hallo liebe Experten,
ich habe eine Tabelle, in der jeden Tag ein neuer Sheet erzeugt und mit dem Tagesdatum benannt wird. Das funktioniert auch sehr gut. Damit die Datei aber nicht bis ins unendliche wächst sollen nur die Sheets der letzten 5 Tagesdaten behalten werden. Alles was davor war...
13.11.2008 12:29:00
Thread-ID: 1024152
5 Beiträge
@ Tino wg. 100 Excellisten durchsuchen
Jessi

Hallo Tino,
Du hast nachträglich auf mein vorheriges Posting folgenden Code gepostet:
Option Explicit
Sub Test() Dim Fso, Ordner, varDatei Dim DateiName As String Dim i As Long 'ab welcher Zeile einfügen i = 2 Set Fso = CreateObject("Scripting.FileSystemObject") 'hier Pfad angeben...
20.11.2008 08:20:00
Thread-ID: 1026299
16 Beiträge
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Anzeige
Bereich nach Datum durchsuchen und Werte vergleich
Michael

Hallo zusammen,
ich habe in der Spalte A Datumsangaben im Format Tag.Monat.Jahr
In der Spalte B befinden sich verschiedene Werte.
Ich möchte nun die Anzahl aller Werte in der Spalte B feststellen die z.b. grösser 50 sind und in der Spalte A das Jahr 2007 aufweisen.
Danke für eue...
04.12.2008 15:10:13
Thread-ID: 1030190
7 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Anzeige
Bereich durchsuchen
adrian

Hallo,
kann mir jmd helfen wie ich einen Bereich (hier "SonyODM") nicht nur so durchsuche wie folgt:
erste zelle des Bereichs:
If Not Application.Range("SonyODM").Range("A1").Value = "" Then "do someting"
sondern ob überhaupt eine von allen Zellen in dem Bereich "SonyODM" "" is...
16.01.2009 16:02:52
Thread-ID: 1040615
2 Beiträge
Spalten nach Text durchsuchen
Kall

Hallo zusammen,
ich brächte mal eure Hilfe, in der such habe ich nichts passendes gefunden. Ich nöchte die Spalte A ab Reihe 16 bis zum Ende nach einem Begriff "UA" durchsuchen (den es öfter geben kann), und wenn ich diese gefunden habe die komplette Zeile in die Tabelle 5 kopieren, über VB...
19.01.2009 12:47:13
Thread-ID: 1041382
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige