Hintergrundfarbe einer Zeile in eine andere Arbeitsmappe übertragen

Vielen Dank! Hat geklappt!

Naja, muss man halt abgleichen...

Für jedes Fahrzeug in Liste1

Suche es in Liste 2

Wenn gefunden, dann übertrage das Zellformat

Das muss man dann mit VBA programmieren... Beispiel ist unten.

Andreas.

Option Explicit

Sub Test()

Dim Wb As Workbook

Dim Source As Range, Dest As Range



'Referenz auf die andere Mappe

Set Wb = OtherWorkbook

'Jede Zelle in A2:A10

For Each Source In Range("A2:A10")

'Suche in anderer Mappe

Set Dest = Wb.ActiveSheet.Range("A:A").Find(Source.Value, LookIn:=xlValues, LookAt:=xlWhole)

'Gefunden?

If Dest Is Nothing Then

'Egal

Else

'Übertragen

Source.Copy Dest

End If

Next

End Sub

Private Function OtherWorkbook() As Workbook

'Return the other opened workbook

For Each OtherWorkbook In Workbooks

'Skip the personal workbook, this is usual hidden

If OtherWorkbook.Windows(1).Visible Then

'Skip our own workbook

If OtherWorkbook.Name <> ThisWorkbook.Name Then Exit Function

End If

Next

End Function

Hallo Susanne,

über Optionen kannst du das für die gesamte Arbeitsmappe einstellen.

oder

Über benutzerdefiniertes Zahlenformat z.B. mit: Standard;-Standard;

oder

bedingte Formatierung mit Zellwert = 0, Schriftart = Hintergrundfarbe.

Hallo,

sind die Zellen in Excel per bedingter Formatierung oder manuell mit Hintergrundfarbe formatiert?

Hast du die Excel-Arbeitsmappe tatsächlich als solche "eingebettet" (und eventuell auch verknüpft) oder als Word-Tabelle eingefügt?

Viele Grüße

Lisa

Hallo,

es ist lange her das ich mal wieder soweit das ich deine Hilfe gebrauchen könnte. Falls du dich noch erinnern kannst, es ging hier darum das Excel in zwei Zeilen nach Hintergrundfarbe suchen. In diesen Zeilen sind farbliche markierte Zellen, in diesen
Zellen steht wiederum Arbeitsstunden. Ich möchte nun diese Stunden nachdem jeweiligen Hintergrundfarbe summiert haben.

Ich habe in dein Code diese Zeile hinzugefügt aber irgendwie funktioniert das ganze nicht wie ich mir das Vorstelle.

Set r = Zeile.Find("*", Zeile.Cells(Zeile.Cells.Count), SearchFormat:=True)
If Zeile.Interior.ColorIndex = 44 Then
zeilesum = zeilesum + 1
Else
End If

Kannst du mir bitte erneut behilflich sein?

Gruß

Muharrem