Werte aus mehreren TB in Tabelle suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit 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 Tabelle2 Set objRange = .Range(.Cells(2, 19), .Cells(.Cells(.Rows.Count, 19).End(xlUp).Row, 25)) End With avntControlValues = Array(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 VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 12

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

Beliebteste Forumthreads (12 Monate)

Werte aus mehreren TB in Tabelle suchen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus mehreren TB in Tabelle suchen

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

326 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread