VBA: Zu einem Mitarbeiter-Kürzel in Tabelle 1 den Firmennamen aus Tabelle 2 holen

Hallo Claus,
<br />danke für die schnelle Hilfe!
<br />Funktioniert grundsätzlich, einen kleinen Schönheitsfehler gibt es aber noch:
<br />In Spalte M der Tabelle 1 wird überall ein statischer Firmennamen geschrieben - und zwar der, der in Tabelle 2 zum ersten Datensatz gehört (also der Inhalt von D2).
<br />Mit besten Grüße, Philipp
<br />

Hallo Philipp,
<br />das geht auch in einem Rutsch:
<br />

Sub Ersetzen()

Dim LRow1 As Long, LRow2 As Long

Dim i As Long

Dim varCheck As Variant

Dim c As Range

Dim FirstAddress As String

'Hier den Bereich und den Blattnamen

'für die Tabelle mit den Zuordnungen anpassen

With Sheets("Tabelle2")

LRow2 = .Cells(.Rows.Count, "A").End(xlUp).Row

varCheck = .Range("A2" & LRow2)

End With

'Hier den Bereich und den Blattnamen

'für die Haupttabelle anpassen

With Sheets("Tabelle1")

LRow1 = .Cells(.Rows.Count, "C").End(xlUp).Row

For i = LBound(varCheck) To UBound(varCheck)

Set c = .Range("C1:C" & LRow1).Find(varCheck(i, 3), LookIn:=xlValues, _

lookat:=xlPart, MatchCase:=True)

If Not c Is Nothing Then

Do

c = varCheck(i, 1) & " " & varCheck(i, 2)

.Cells(c.Row, "M") = varCheck(1, 4)

Set c = .Range("C1:C" & LRow1).FindNext(c)

Loop While Not c Is Nothing

End If

Next

End With

End Sub

Claus
<br />

OK, habe das Problem gerade gefunden. In
<br />.Cells(c.Row, "M") = varCheck(1, 4)
<br /> hat sich eine '1' geschlichen, die natürlich ein 'i' sein muss;-)
<br />Ich teste noch mal und gebe Bescheid!
<br />

Hallo Karl,

also ich habe 2 verschiedene Excel-Tabellen mit Produktkey-IDs, das sind auch gleichzeitig die Primärschlüssel.

Die beiden Exceltabellen haben sagen wir 10 Felder inklusive dem PK. In deiner einen Tabelle sind die ersten 5 Felder ausgefüllt und in der anderen die anderen 5 Felder. Beide haben wie gesagt jeweils den gleichen PK.

Leider kann es sein, dass Reihenfolgen der PKs in der Excel unterschiedlich sind, sodass bei einer Abfrage die Werte der 2. Tabelle nicht mit dem PK und den Werten der ersten Tabelle übereinstimmen.

Um das Problem nochmal einfacher zu erläutern - Das VBA sollte in etwa so aussehen:

1. Prüfung ob PK von Tabelle 1 und Tabelle 2 gleich ist

2. Wenn ja, füge Inhalte von Tabelle 2 in Tabelle 1

3. Wenn nein, do nothing.

Hallo Claus,

ich habe meine Frage bestimmt falsch erklär. Ich möchte in VBA nichts berechnen.

In meinem Tabellenblatt werden Summen berechnet die aus Zellen aus einem anderen Tabellenblatt in der gleichen .xls Datei kommen.

Das klappt auch sehr gut. Die Tabelle ist sehr groß. Nun möchte ich irgendwie per Mausklick in die Tabelle in die Zelle kommen aus der die Daten kommen. Um zu wissen wie sich der Wert zusammensetzt. Und das halt variabel für die ganze Tabelle.

Sagen wir ich habe in Tabelle 1 in der Zelle A1 einen berechneten Wert. Dieser Wert setzt sich aus der Summe aus den Zelle C895:C896 aus Tabelle 2 zusammen. Wenn ich nun z.b. in Tabelle 1 in der Zelle A1 einen Doppelklick mache, dann soll Excel in Tabelle 2
in die Zelle C895 springen.

Wenn ich nun in Tabelle 1 in der Zelle A2 einen Doppelklick mache, dann soll Excel in Tabelle 2 in die Zelle C901 springen weil in Tabelle 1 in der Zelle A2 die Formel =SUMME(Tabelle!C901:C902)

Oh man, ist nicht leicht zu erklären ;-)



Gruß Axel