Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile/Spalte Schnittpunkt finden

Forumthread: Zeile/Spalte Schnittpunkt finden

Zeile/Spalte Schnittpunkt finden
12.12.2022 15:43:54
Much
Liebe Excel Spezialisten.
Es quält mich schon seit Tagen das Problem keinen wirklich brauchbaren Input zu folgendem Problem zu bekommen.
Ich habe eine UF_Eingabe mit 2 Comboboxen (cmb_Kollektion , cmb_Saison), diese geben die Parameter für die Suche in der Tabelle (tab_Kriterium) Zeile/Spalte, damit sollten Sie mir am Schnittpunkt einen Wert finden und in UF_Eingabe (txt_Deliver) ausgeben.
Habe es mit Application.Intersect und Match. etc....probiert. Verfahre mich dabei immer mehr!
Hoffe auf Input, anbei auch die Beispieldatei.
lg Much
https://www.herber.de/bbs/user/156671.xlsm
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile/Spalte Schnittpunkt finden
12.12.2022 16:28:11
GerdL
Hallo Much,
nur angetestet.

Public Sub SearchDeliver() ' in Arbeit!!!!!1
Dim ws As Worksheet
Dim rg1 As String, rg2 As String
Dim Spalte As Variant, Zeile As Variant
Set ws = Worksheets(tab_Kriterium.Name)
ws.Activate
rg1 = UF_Eingabe.cmb_Kollektion.Value
rg2 = UF_Eingabe.cmb_Saison.Value
Spalte = Application.Match(rg1, ws.Rows(1), 0)
If IsNumeric(Spalte) Then
Zeile = Application.Match(rg2, ws.Columns(3), 0)
End If
If Not IsNumeric(Zeile) Then
MsgBox "...mit diesen Parametern ist eine Auswahl nicht möglich": Exit Sub
Else
UF_Eingabe.txt_Deliver.Value = ws.Cells(Zeile, Spalte).Text
End If
End Sub
Gruß Gerd
Anzeige
AW: Zeile/Spalte Schnittpunkt finden
12.12.2022 17:15:14
Much
Hallo Gerd!
Das funktioniert perfekt, dachte das es doch nicht so kompliziert sein kann.
Vielen Dank dafür, habe Beide Lösungen - Deine und die von Chris einmal eingebaut, und werde es dann im Betrieb sehen welche ich im Alltag brauchen werde.
Nochmals echt Spitze von Euch Beiden.
AW: Zeile/Spalte Schnittpunkt finden
12.12.2022 16:57:07
ChrisL
Hi
Hier dasselbe in Grün. 

Public Sub SearchDeliver()
Dim Zeile As Long
With tab_Kriterium.ListObjects("tbl_Lieferung")
Zeile = Application.Match(UF_Eingabe.cmb_Saison.Value, .ListColumns(1).DataBodyRange, 0)
UF_Eingabe.txt_Deliver.Value = .ListRows(Zeile).Range(.ListColumns(UF_Eingabe.cmb_Kollektion.Value).Index)
End With
End Sub
Im Gegensatz zu GerdL habe ich fehlende Einträge nicht abgefangen. Wenn du die ComboBox-Eigenschaften MatchRequired=True einstellst, sollte es eigentlich gar nicht zu Fehleingaben kommen.
cu
Chris
Anzeige
AW: Zeile/Spalte Schnittpunkt finden
12.12.2022 17:15:59
Much
Hallo Chris
Das funktioniert perfekt, dachte das es doch nicht so kompliziert sein kann.
Vielen Dank dafür, habe Beide Lösungen - Deine und die von Gerd einmal eingebaut, und werde es dann im Betrieb sehen welche ich im Alltag brauchen werde.
Nochmals echt Spitze von Euch Beiden.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige