Office: Werte selektieren und ausgeben

Guten Tag,

Ich habe derzeit ein kleineres Problem mit VBA im Excel.

Ich habe eine Datei mit 2 Tabellen.

Die Werte aus Tabelle 2 Spalte B sollen in Tabelle 1 Spalte B gesucht werden. Es sollten allerdings alle Werte in Tabelle 1 Spalte B gesucht werden, nicht Zeilenspezifisch.

habe eine Datei mit implementierten Makro, dieses bringt mir aber eine Fehlermeldung.

Kann mir hier einer weiterhelfen?

 

Es wäre natürlich schön, wenn du uns sagst, welche Fehlermeldung da kommt. Ich habe schon 2 Fehler gefunden. Die Korrektur desd ersten:

Code:

              Do While xAdresse = xErste  'UNTIL geändert ...
                  iRowU = iRowU + 1
                  ReDim Preserve arr(1 To 3, 1 To iRowU)
                  arr(1, iRowU) = rng.Offset(0, -1)
                  arr(2, iRowU) = arrBereich(iCounter, 1)
                  arr(3, iRowU) = arrBereich(iCounter, 2)
                  Set rng = .Cells.FindNext(after:=rng)
                  xAdresse = rng.Address(False, False)
              Loop

... ist in der ersten Code-Zeile. Damit hast den "Dauerbrenner" kalt gestellt :).

Sag uns jetzt doch noch einmal, was geschehen soll, wenn der Wert gefunden wurde. (Dein Code ist mir zu individuell )

 

Guten Tag,


erstmal Entschuldigung das ich noch nicht Antworten konnte da mir etwas Privates dazwischen kam.

Mein Ziel war es: Das ein Wert aus Tabelle 2 Spalte B zum Beispiel B2 in Tabelle 1 Spalte B gesucht wird. Wenn etwas gefunden wird soll das Ergebnis in Tabelle 3 ausgegeben werden.

Leider sucht dieses Makro aber Zeilen- und nicht Spaltenorientiert.


Wenn ich das Makro so wie es jetzt ist laufen lasse kommt folgende Fehlermeldung:

"Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler"

Habe jetzt erfahren das da wohl ne schleife im Code enthalten ist die nicht erfüllt wird und deshalb den Fehler verursacht.

Do Until xAdresse = xErste
iRowU = iRowU + 1
ReDim Preserve arr(1 To 3, 1 To iRowU)
arr(1, iRowU) = rng.Offset(0, -1)
arr(2, iRowU) = arrBereich(iCounter, 1)
arr(3, iRowU) = arrBereich(iCounter, 2)
Set rng = .Cells.FindNext(after:=rng)
xAdresse = rng.Address(False, False)
Loop

Leider habe ich noch keine großen Erfahrungen mit VBA, daher komme ich nicht weiter.