Zellfarbe per makro kopieren

Computer: Software & Programmierung Visual Basic
#1

Hi zusammen,

wie kann man die Zellfarbe von tabelle1 in eine bestimmte andere Tabelle(z.B. 2)kopieren.

ich hab zwar einen Code, allerdings kopiert dies die Farbe in alle Tabellen.

Option Explicit
Public AZ$
Private Sub Workbook_Open()
AZ = ActiveCell.Address
End Sub
Private Sub Workbook_SheetselectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim x%
For x = 1 To Sheets.Count
If x = ActiveSheet.Index Then
x = x + 1
If x > Sheets.Count Then Exit Sub
End If
Sheets(x).Range(AZ).Interior.ColorIndex = ActiveSheet.Range(AZ).Interior.ColorIndex
Next
AZ = Target.Address
End Sub

Danke + Gruss
danisahne

#2

Hi danisahne!

wie kann man die Zellfarbe von tabelle1 in eine bestimmte
andere Tabelle(z.B. 2)kopieren.

ich hab zwar einen Code, allerdings kopiert dies die Farbe in
alle Tabellen.

Option Explicit
Public AZ$
Private Sub Workbook_Open()
AZ = ActiveCell.Address
End Sub
Private Sub Workbook_SheetselectionChange(ByVal Sh As Object,
ByVal Target As Excel.Range)
Dim x%

Diese folgende Zeile läuft in einer Schleife über alle Deine Tabellen. Daher der beschriebene Effekt:

For x = 1 To Sheets.Count

If x = ActiveSheet.Index Then
x = x + 1
If x > Sheets.Count Then Exit Sub
End If

Wenn Du in der folgenden Zeile Sheets(x) durch z. B. Tabelle2 ersetzt (je nach dem, wie Deine Tabelle denn heißt), wird das Makro nur für Dein gewünschtes Sheet ausgeführt.

Sheets(x).Range(AZ).Interior.ColorIndex =
ActiveSheet.Range(AZ).Interior.ColorIndex

Heißt außerdem, dass Du die ganze Schleife nicht benötigst.
Würde also

Private Sub Workbook\_SheetselectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
 Tabelle2.Range(AZ).Interior.ColorIndex =
 ActiveSheet.Range(AZ).Interior.ColorIndex
 AZ = Target.Address
End Sub

langen.

Gruß, Manfred