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
Anzeige