Verknüpfung zwischen 2 Tabellen

[zwen79]

Hi,

leider bin ich im Excel nicht so fit, wie ich es gern schon wäre .

Ich hätte folgende Frage. Ist es möglich, dass ich einen Zellbezug von einer Tabelle in eine andere Tabelle herstellen kann?

In der Praxis sollte es wie folgt aussehen.

Ich habe eine Inventarliste (Tabelle 1) wo z.B. in der Spalte B Zelle 1 eine Inventarnummer steht und in Spalte C Zelle 1 die dazu gehörende Bezeichnung. 
Als Bsp. 

Spalte B                Spalte C
Inventarnummer    Bezeichnung

  9000                   PC

Nun möchte ich, wenn ich auf die Inventarnummer Klicke, dass das Gerät mit Nummer und Bezeichnung in eine anderen Tabelle 2 (Baustelle) Übertragen wird.
Ist das möglich?

Mit freundlichen Grüßen
Zwen79

[Klaus-Dieter]

Hallo,

mit einem Makro schon. Darf es so etwas sein?

[zwen79]

Ja, das wäre auch super!

[zwen79]

Wie würde das Makro aussehen?

[schauan]

Hallöchen,

Wie würde das Makro aussehen?

schauen wir mal :21:

[Klaus-Dieter]

Hallo,

das konnte ich aus deinen Angaben ableiten:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim lngZeile As Long
   If Target.Column = 2 Then
       lngZeile = Tabelle2.Range("B" & Rows.Count).End(xlUp).Row + 1
       Tabelle2.Range("B" & lngZeile, "C" & lngZeile) = Tabelle1.Range("B2:C2").Value
       Tabelle1.Range("A1").Select
   End If
End Sub

Das Makro kommt in das Modul von Tabellenblatt 1.

[zwen79]

Hallo Klaus - Dieter,

danke für das Makro und für deine investierte Zeit.

Ich habe das Makro in das Modul der Tabelle 1 eingefügt, dass Problem was jetzt besteht ist das, dass immer nur die Inventarnummer der Zeile 1 in die Tabelle 2 einfügt wird, egal welche Inventarnummer ich drücke.

Bsp.

Tablle1                                                       Tabelle 2

Spalte B                Spalte C                               Spalte B                Spalte C
Inventarnummer    Bezeichnung                         Inventarnummer    Bezeichnung

  9000                   PC                                       9000                   PC

  9001                    Monitor                                9000                   PC

Im Anhang hab ich mal eine Beispiel der Excel hinzugefügt.

Wie kann ich das Problem lösen

Mit freundlichen Grüßen
Zwen79

[Klaus-Dieter]

Hallo,

du hast recht, war die falsche Version. So ist es richtig:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim lngZeile As Long
   If Target.Column = 2 Then
       lngZeile = Tabelle2.Range("B" & Rows.Count).End(xlUp).Row + 1
       Tabelle2.Range("B" & lngZeile, "C" & lngZeile) = Tabelle1.Range("B" & Target.Row, "C" & Target.Row).Value
       Tabelle1.Range("A1").Select
   End If
End Sub

[zwen79]

Es funktioniert jetzt!!

Vielen Danke für deine Bemühungen   :23: :23:


Grüße 

Zwen