Excel VBA: Automatisiert Verknüpfungen herstellen

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich möchte zwei Tabellen automatisiert verknüpfen.
In Tabelle1 in Feld A1 steht der Wert 4711, in der Tabelle2 steht die 4711 ebenfalls aber z.B. in Feld B2.
Jetzt soll die Spalte A von Tabelle1 mit der Spalte B von Tabelle2 verglichen werden, wenn der Wert 4711 in Spalte A gefunden wird, soll eine Verknüpfung (zu Feld A1 Tabelle1) in das Feld B2 von Tabelle2 geschrieben werden. So soll die gesamte Spalte A von Tabelle1 und die gesamte Spalte B von Tabelle2 überprüft werden.

Hat jemand irgendein Idee dies zu Programmieren
Vielen Dank

mlyxs

#2

Jetzt soll die Spalte A von Tabelle1 mit der Spalte B von
Tabelle2 verglichen werden, wenn der Wert 4711 in Spalte A
gefunden wird, soll eine Verknüpfung (zu Feld A1 Tabelle1) in
das Feld B2 von Tabelle2 geschrieben werden. So soll die
gesamte Spalte A von Tabelle1 und die gesamte Spalte B von
Tabelle2 überprüft werden.

Hi mlyxs,

Option Explicit
'
Sub tt()
Dim wks1 As Worksheet, wks2 As Worksheet, Zei1 As Long, Zei2 As Long
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
With Application.WorksheetFunction
 For Zei1 = 1 To wks1.Cells(Rows.Count, 1).End(xlUp).Row
 If .CountIf(wks2.Range("B:B"), wks1.Cells(Zei1, 1)) \> 0 Then
 Zei2 = .Match(wks1.Cells(Zei1, 1), wks2.Range("B:B"), 0)
 wks2.Cells(Zei2, 2).FormulaLocal = "=Tabelle1!" & wks1.Cells(Zei1, 1).Address(0, 0)
 End If
 Next Zei1
End With
End Sub

Gruß
Reinhard