Suchen und kopieren
14.11.2004 10:22:22
Peter
ich habe folgendes Problem, komme mit der Makroaufzeichnung jedoch nicht weiter.
Wer kann helfen?
Ich möchte den Inhalt aus Spalte A der Tabelle "Kopie alt" in
der Tabelle "aktuell" in Spalte A jeweils ab Zeile 7 suchen.
Vorhandene Leerzeilen sollen übersprungen werden.
Bei Übereinstimmung soll der Inhalt der Fundzeile der Tabelle "Kopie alt",
mit Übernahme der vorhandenen Schrift und Hintergrundfarbenformatierung,
der Spalten E - G in die Tabelle "aktuell", Spalten E - G kopiert werden.
Danke Peter
Sub VergleichenKopieren()
Dim rng As Range
Dim Zeile As Integer
For Zeile = 7 To 300
Set rng = Worksheets("Kopie alt").Columns(1).Find(Cells(Zeile, 1), _
lookat:=xlWhole, LookIn:=xlValues)
Range(Worksheets("Kopie alt").Cells(rng.Row, 5), Worksheets("Kopie alt").Cells(rng.Row, 8)).Select
Selection.Copy
Range(Worksheets("aktuell").Cells(Zeile, 5), Worksheets("aktuell").Cells(Zeile, 8)).Select
ActiveSheet.Paste
Next Zeile
End Sub