Zellenformat in anderes Tabellenblatt übernehmen

Hi,

vielleicht könnt Ihr mir bei folgendem Problem helfen :

In Tabelle1 befindet sich z.B. in Zelle A1 ein Wert. Dieser ist bedingt formatiert, ist er größer als der Wert in B1 ist der Wert rot, ist er kleiner grün.
Diesen so errechneten Wert möchte ich nun in Tabelle2 mit der Funktion =Tabelle1!A1 übernehmen. Das Funktioniert auch prima. Allerdings soll diese Angabe dasselbe Format (insbes. Farbe) haben wie die Ursprungszelle.

Dies benötige ich für mehrere Zellen, wobei die Anordnung der Felder in Tabelle 1 und 2 voneinander abweichen, ein ziehen zum kopieren somit vermutlich auscheidet. Er müßte also die Formate aus der Quellzelle mitnehmen.

Hoffentlich könnt Ihr mir helfen, hat mich heute fast den ganzen Tag gekostet - ohne Lösung. :-(( (Frust)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,

die bedingte Formatierung in Tabelle 1 kam von dir. :-) Du beziehst dich immer auf B11.

Wenn du Zellen verschiebst musst du den Code anpassen, gleiches gilt für zusätzliche Zellen. Und das meinte ich mit Verrenkungen, bei jeder Änderung in der Struktur muss der Code geändert werden.

Hier nochmal der Code, diesmal etwas besser kommentiert, vielleicht verstehst du dann besser, was passiert.


Private Sub Worksheet_Change(ByVal Target As Range)
'dieser Code läuft automatisch bei jeder manuellen
'Änderung in Tabelle 1 und liefert mit Target die Zelle,
'in der die Änderung stattgefunden hat
'wenn nur eine Zelle geändert wird
If Target.Cells.Count = 1 Then
'wenn sich diese Zelle im Bereich B11:B14 befindet
If Not Intersect(Target, Range("B11:B14")) Is Nothing Then
'stelle fest, in welcher Zeile die Änderung stattgefunden hat
Select Case Target.Row
'je nach Zeile überprüfe,
Case 11
'ob die korrespondierende Zelle in Tabelle 2
'kleiner als der eingegebene Wert in Tabelle 1 ist
If Sheets(2).Cells(3, 2) < Target Then
'wenn ja dann Schriftfarbe grün
Sheets(2).Cells(3, 2).Font.ColorIndex = 43
Else
'wenn nicht kleiner dann Schriftfarbe rot
Sheets(2).Cells(3, 2).Font.ColorIndex = 3
End If
Case 12
If Sheets(2).Cells(3, 3) < Target Then
Sheets(2).Cells(3, 3).Font.ColorIndex = 43
Else
Sheets(2).Cells(3, 3).Font.ColorIndex = 3
End If
Case 13
If Sheets(2).Cells(6, 3) < Target Then
Sheets(2).Cells(6, 3).Font.ColorIndex = 43
Else
Sheets(2).Cells(6, 3).Font.ColorIndex = 3
End If
Case 14
If Sheets(2).Cells(7, 3) < Target Then
Sheets(2).Cells(7, 3).Font.ColorIndex = 43
Else
Sheets(2).Cells(7, 3).Font.ColorIndex = 3
End If
End Select
End If
End If
End Sub

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Zellenformat in anderes Tabellenblatt übernehmen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

50 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenformat in anderes Tabellenblatt übernehmen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

50 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread