Zeilenweise kopieren
11.01.2006 21:59:10
Peter
'Ich möchte den Inhalt aus Spalte A der Tabelle "BestandAlt" in
'der Tabelle "Jan 2006" in Spalte A jeweils ab Zeile 9 suchen.
'Vorhandene Leerzeilen sollen übersrungen werden.
'Bei Übereinstimmung soll der Inhalt der Fundzeile der Tabelle "BestandAlt",
'(Spalten 3-99) mit Übernahme der vorhandenen Schrift und Hintergrundfarbenformatierung,
'in die Tabelle "Jan 2006", Spalten 3-99 kopiert werden.
Wer kann helfen?
Danke im voraus
Peter
Sub VergleichenKopieren()
Dim rng As Range
Dim lEnd As Long
Dim lRow As Long
Dim wksK As Worksheet
Dim wksA As Worksheet
Set wksK = Worksheets("BestandAlt")
Set wksA = Worksheets("Jan 2006")
lEnd = wksK.Range("A65536").End(xlUp).Row
'For lRow = 3 To lEnd
For lRow = 3 To 99 'zu kopierende Spalten
Set rng = wksA.Range("A:A").Find(what:=wksK.Cells(lRow, 1), _
LookIn:=xlValues, lookAt:=xlWhole)
If Not rng Is Nothing Then
wksK.Range(wksK.Cells(lRow, 4), wksK.Cells(lRow, 99)).Copy _
Destination:=wksA.Cells(rng.Row, 3)
End If
Next
End Sub