Office: Daten von einer Arbeitsmappe in eine Andere übernehmen

Mein Problem ist folgendes:

In Arbeitsmappe 1 habe ich alle Daten zur Rechnungserstellung in einer Zeile. In Arbeitsmappe 2 existieren die gleichen Felder nur halt als Rechnungsvormular.

Ist es möglich mit einem "Klick" die entsprechenden Daten aus Arbeitsmappe 1 Zeile xy zu bekommen? Beim Öffnen der Arbeitsmappe soll also gefragt werden welche Daten eingefügt werden sollen.

 

Hi,

Code:

Sub Uebertrag()
    Dim lngAbfrage As Long
    Dim wshTab As Worksheet
    Set wshTab = ThisWorkbook.Worksheets("Tabelle1") '<== Arbeitsmappe mit dem Code
    lngAbfrage = Application.InputBox(prompt:="Bitte Zeilennummer eingeben", Title:="Daten Übertragen", Type:=2)
    If lngAbfrage <> 0 Then
        With Workbooks("Mappe3.xls").Worksheets("Tabelle1") '<== da hin soll übertragen werden
            .Range("A1") = wshTab.Cells(lngAbfrage, 1)
            .Range("A2") = wshTab.Cells(lngAbfrage, 2)
            .Range("A3") = wshTab.Cells(lngAbfrage, 3)
        End With
    End If
    Set wshTab = Nothing
End Sub

Name der Arbeitsmappe, der Tabellenblätter und der Zellen musst du an deine Bedingungen anpassen.

Bis später,
Karin

 

Hallo Karin,

muss zugeben, dass ich mit dem Programmieren überhaupt keine Ahnung habe und daher auch nicht weiß wo ich wie dem Code eingeben müsste.

Habe mal die Dateien im Anhang gesetzt. In „Ringverteilerdaten-Liste – TEST“ stehen in der jeweiligen Spalte die einzelnen Daten. In „Ringausweis – TEST“ sollen dann die Daten der entsprechenden Spalte und Zelle eingefügt werden wobei ich möglichst einfach die jeweilige Spalte wählen möchte.

Hoffe Du kannst mir nochmals helfen (oder jemand anderes in diesem Forum)

Danke im Voraus und einen guten Rutsch ins neue Jahr!

Bernd