Zellen mit Füllfarbe selektieren und kopieren

12/06/2008 - 11:21 von Harald Schlüter | Report spam
Guten Morgen,

ich habe folgendes Problem:

Ich habe zwei Excel-Dateien. Eine neue und eine alte Version.

Aus der alten Version (alt.xls) sollen alle Zellen mit grauer
Füllfarbe (Zelle.Interior.ColorIndex = 15) selektiert werden (befinden
sich an unterschiedlichen Stellen und nicht zusammenhàngend) und an
gleicher (!) Stelle in die neu Version (neu.xls) kopiert werden.

Kann mir jemand einen VBA-Code nennen?

Besten Dank und viele Grüße

Harald
 

Lesen sie die antworten

#1 Wolfgang Habernoll
12/06/2008 - 16:35 | Warnen spam
Hallo Harald

"Harald Schlüter" schrieb im Newsbeitrag
news:523c270e-f4f5-4612-8544->
Guten Morgen,

ich habe folgendes Problem:

Ich habe zwei Excel-Dateien. Eine neue und eine alte Version.
Aus der alten Version (alt.xls) sollen alle Zellen mit grauer
Füllfarbe (Zelle.Interior.ColorIndex = 15) selektiert werden (befinden
sich an unterschiedlichen Stellen und nicht zusammenhàngend) und an
gleicher (!) Stelle in die neu Version (neu.xls) kopiert werden.

Kann mir jemand einen VBA-Code nennen?



wozu selektieren? kopieren geht auch ohne. Versuche es mit folgendem Code.
Kopiere ihn in ein Modul der *neuen* Datei und passe die Tabellennamen deinen
noch Wünschen an.

Sub GraueZellenKopieren()
Dim wbkAlt As Workbook
Dim wksAlt As Worksheet
Dim wksNeu As Worksheet
Dim rngI As Range
'
'' Alte Datei Name/Tabelle anpassen
Set wbkAlt = Application.Workbooks("alt.XLS")
Set wksAlt = wbkAlt.Worksheets("Tabelle2")
'
'' Neue(aktive Datei mit diesem Makro)
Set wksNeu = ThisWorkbook.Worksheets("Tabelle2")
'
For Each rngI In wksAlt.UsedRange
If rngI.Interior.ColorIndex = 15 Then
rngI.Copy Destination:=wksNeu.Range(rngI.Address)
End If
Next rngI
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen