Werte aus mehreren TB in Tabelle suchen

Peter · 2019-06-06T07:34:34+00:00

Guten Morgen ihr Excelspezialisten, mittels einem Makro werden mehrere Daten bei jedem Eintrag in eine Tabelle in eine andere Tabelle eingetragen. Nun benötige ich eine Lösung, wie es möglich wird die Daten in der anderen Tabelle zu finden und zu markieren. In einer UF werden in den Textboxen 1, 7, 2, ComboBox1, Testboxen 4, 5, 6, gefüllt aus der ersten Tabelle. In der zweiten Tabelle sollen diese Werte im Bereich der Spalten S bis Y ab Zeile 2 bis letzte beschriebene Zeile gesucht und wenn gefunden markiert werden. Könnt ihr mir bitte hierbei helfen? Besten Dank Gruss Peter

Hallo Mullit,
grundsätzlich funktioniert der Code. Ich habe diesen erweitert:
<pre>Private Sub CommandButton1_Click()
Dim objRange As Range, objUnion As Range, objCell As Range
Dim avntControlValues() As Variant
Dim ialngIndex As Long
Dim strFirstAddress As String
With Worksheets("Gesamtbuchungen")
.Activate
Set objRange = .Range(.Cells(2, 13), .Cells(.Cells(.Rows.Count, 13).End(xlUp).Row, 25))
End With
avntControlValues = Array(TextBox8.Value, TextBox1.Value, TextBox2.Value, TextBox4.Value, _
TextBox5.Value, TextBox6.Value, TextBox7.Value, ComboBox1.Value)
For ialngIndex = 0 To UBound(avntControlValues)
If avntControlValues(ialngIndex) <> vbNullString Then
With objRange
Set objCell = .Find(What:=avntControlValues(ialngIndex), _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not objCell Is Nothing Then
strFirstAddress = objCell.Address
Do
If objUnion Is Nothing Then
Set objUnion = objCell
Else
Set objUnion = Union(objUnion, objCell)
End If
Set objCell = .FindNext(After:=objCell)
Loop Until objCell.Address = strFirstAddress
End If
End With
End If
Next
If objUnion Is Nothing Then
Call MsgBox("Keine Werte gefunden...!", vbExclamation)
Else
With objUnion
Call .Parent.Activate
Call .Select
End With
Set objUnion = Nothing
End If
Set objCell = Nothing
Set objRange = Nothing
End Sub</pre>
1. Worksheeets("Gesamtbuchungen") da im Test doch nicht Tabelle2
2. Set objRange = .Range(.Cells(2, 13), .Cells(.Cells(.Rows.Count, 13).End(xlUp).Row, 25)) erweitert auf Spalte13 da noch eine zusätzliche Textbox8 hinzukommt.
3. avntControlValues = Array(TextBox8.Value, TextBox1.Value, TextBox2.Value, TextBox4.Value, _
TextBox5.Value, TextBox6.Value, TextBox7.Value, ComboBox1.Value) um TextBox8.value erweitert.
Egal ob mit oder ohne Erweiterung es wird der falsche Wert selectiert.
Es sollen die Werte gemäss Textboxes bzw. Combobox gesucht werden und wenn diese gefunden wurden, dann sollen Werte in der gefundenen Zeile markiert werden. Es werden anstatt nur in konkretem Fall die Zelle T2 die Zellen T2 und T3 markiert.
Richtigerweise soll da die suchten Werte sich in Zeile 2 befinden nur die T2 markiert werden. Ich benötige jedoch, dass nicht nur T2 markiert wird sondern A2 bis Y2.
Kannst Du mir hierbei bitte noch behilflich sein.
Besten Dank
Gruss
Peter

Hallo Mullit,
ich habe jetzt mit Deiner Lösung folgendes erfolgreich getestet:
<pre>Private Sub CommandButton1_Click()
Dim objRange As Range, objUnion As Range, objCell As Range
Dim avntControlValues() As Variant
Dim ialngIndex As Long
Dim strFirstAddress As String
With Worksheets("Gesamtbuchungen")
Set objRange = .Range(.Cells(2, 13), .Cells(.Cells(.Rows.Count, 13).End(xlUp).Row, 25))
End With
avntControlValues = Array(TextBox8.Value, TextBox1.Value, TextBox7.Value, TextBox2.Value, ComboBox1.Value, _
TextBox4.Value, TextBox5.Value, TextBox6.Value)
'For ialngIndex = 0 To UBound(avntControlValues)
If avntControlValues(ialngIndex) <> vbNullString Then
With objRange
Set objCell = .Find(What:=avntControlValues(ialngIndex), _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not objCell Is Nothing Then
strFirstAddress = objCell.Address
' Do
If objUnion Is Nothing Then
Set objUnion = objCell
Else
Set objUnion = Union(objUnion, objCell)
End If
Set objCell = .FindNext(After:=objCell)
' Loop Until objCell.Address = strFirstAddress
End If
End With
End If
'Next
If objUnion Is Nothing Then
Call MsgBox("Keine Werte gefunden...!", vbExclamation)
Else
With objUnion
Call .Parent.Activate
Call .Select 'ergibt die aktive Zelle - mittels dieser wird u. a. Bereich markiert
Range(ActiveCell.Offset(0, -12), ActiveCell.Offset(0, 12)).Select
End With
Set objUnion = Nothing
End If
Set objCell = Nothing
Set objRange = Nothing
End Sub</pre>
Ich habe For - do und Loop weggelassen.
Dadurch wird die gesuchte Zelle M entsprechende Zeile gefunden und mittels Call .parent.Activate und Call .select die gesuchte Zelle selectiert.
Mittels der von mir eingefügten Zeile: Range(ActiveCell.Offset(0, -12), ActiveCell.Offset(0, 12)).Select wird der gesuchte Bereich von A bis Y selectiert.
Was mir jetzt jedoch noch fehlt ist, wenn sich die Werte in der Textbox bzw. ComboBox ändert.
Wie kann ich dies dann einfügen?
Hast Du hierfür einen Rat?!
Besten Dank
Gruss
Peter

Werte aus mehreren TB in Tabelle suchen

Forumthread: Werte aus mehreren TB in Tabelle suchen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Werte aus mehreren TB in Tabelle suchen

Forumthread: Werte aus mehreren TB in Tabelle suchen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread