Mit VGA in Intelligente Tablle Überschrift finden
01.05.2024 14:07:28
DerUschi
Ich nutze Diesen VGA Befehl, um mir ein Textfeld nach einer Zelle aus einer Tabelle zu benennen:
Me.Parameter01L.Caption = .DataBodyRange(Zeile, 2)
Wobei ich die "Zeile" schon über diese Funktion bestimmt habe:
Dim tbl As ListObject
Dim FoundCell As Range
Dim LookupValue As String
'Lookup Value
LookupValue = "ID-123"
'Store Table Object to a variable
Set tbl = ActiveSheet.ListObjects("Table1")
'Attempt to find value in Table's first Column
On Error Resume Next
Set FoundCell = tbl.DataBodyRange.Columns(1).Find(LookupValue, LookAt:=xlWhole)
On Error GoTo 0
'Return Table Row number if value is found
If Not FoundCell Is Nothing Then
MsgBox "Found in table row: " & _
tbl.ListRows(FoundCell.Row - tbl.HeaderRowRange.Row).Index
Else
MsgBox "Value not found"
End If
Jetzt würde ich auch die Spalte noch gerne über eine Funktion bestimmen, damit ich in meiner Ausgangstabelle zur Not weitere Spalten einfügen kann, ohne das ich alles permanent ändern muss.
Die Ausgangstabelle sieht so aus:
Parameter1|Parameter2|PArameter3|Prarameter.......
Ich würde also gerne nach dem "Parameter" suchen.
Es ist quasi das Äquivalent zu:
Index(Ergbnismatrix;Vergleich(Suchparameter1;Suchmatrix1;0);Vergleich(Suchparameter2;Suchmatrix2;0))
Ich hoffe ihr könnt mir folgen ;)
Ich hoffe auch mal, dass die Frage nicht zu trivial ist, denn ich fange gerade erst an, mich in VGA einzuarbeiten ;)
Mfg
Dirk
Anzeige