VBA: Daten aus zweiter Datei kopieren
29.01.2004 08:18:10
Anita
Immer noch folgendes Problem:
Tabelle 1 enthält Werte in Spalte A-P. Bei Eingabe eines Wertes in Tabelle 2 Spalte P soll diese Eingabe mit den Inhalten in Tabelle 1 Spalte P verglichen und die komplette Zeile MIT Formatierungen (Farbig hinterlegte Zellen, ect.) von Tabelle 1 nach Tabelle 2 kopiert werden.
Mit folgendem Code funktioniert das auch problemlos.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws1 As Worksheet
Dim zeile As Long
Set ws1 = ThisWorkbook.Worksheets(1)
zeile = 2
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 16 Then
Do Until IsEmpty(ws1.Cells(zeile, "P"))
If Target = ws1.Cells(zeile, "P") Then
' Werte aus Tabelle 1 übernehmen
ws1.Range(ws1.Cells(zeile, 1), ws1.Cells(zeile, 16)).Copy
Me.Range(Me.Cells(Target.Row, 1), Me.Cells(Target.Row, 16)). _
PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = xlCut
Target.Select
Exit Do
End If
zeile = zeile + 1
Loop
End If
End Sub
Jetzt die Frage:
Wie muss ich den Code abändern, wenn die Daten nicht in der Tabelle 1 derselben Arbeitsmappe, sondern in einer anderen Arbeitsmappe stehen??
Vielen Dank für jeden Tipp,
Anita