Werte und Formate aus Datei auslesen
28.01.2004 09:05:20
Anita
Ich hatte letzte Woche bereits folgendes Problem hier angefragt:
Ich habe 2 Tabellen: Tabelle 1 enthält alle Werte in Spalte A-P. Ich möchte nun bei Eingabe eines Wertes in Tabelle 2 Spalte P diese Eingabe mit den Inhalten in Tabelle 1 Spalte P vergleichen und die komplette Zeile MIT Formatierungen (Farbig hinterlegte Zellen, ect.) von Tabelle 1 nach Tabelle 2 kopieren.
Von Dieter kam folgende, super funktionierende Lösung:
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
Nochmal danke. Aber jetzt gehts weiter:
Wie kann oder muss ich den Code abändern, wenn die Daten nicht wie beim ersten Beispiel in der Tabelle 1 derselben Arbeitsmappe, sondern in einer anderen Arbeitsmappe stehen??
Vielen Dank für jeden Tipp,
Anita
Anzeige