Zelleninhalt und Format kopieren ohne vba

Hallo liebes Forum,
Ich möchte in Tabelle1 eine Zelle mit dem selben Inhalt und dem selben Format einer Zelle aus Tabelle2 füllen. Die Zellen sollen komplett identisch sein.
In der Zelle aus Tabelle2 ist ein fomatierter Text enthalten (z.B. ein Teil ist tiefgestellt). Dieser Text ändert sich gelegentlich und soll dann genau so in Tabelle1 übernommen werden.
Der Sinn dahinter: Tabelle1 dient als Layout für ein Protokollausdruck. Die Labels für die Werte sind in Tabelle2 als Liste enthalten. Für eine Sprachumschaltung werden andere Werte in die Liste kopiert (funktioniert).
Zu meinem Problem:
- Verweise ich in einer Zelle von Tabelle1 auf Tabelle2 (=Tabelle2!A1) wird nur der Wert übernommen
- Mit vba Copy und Paste wird das Format auch mitkopiert ABER: Ich müsste jeden Copyjob von einer Zelle in Tabelle2 zu Tabelle1 in einem Makro einpflegen. Da nicht nur ich mit der Excel-Datei arbeite ist das ein Problem für andere und zudem sehr zeitaufwändig.
Gibt es kein Excel Hausmittel mit dem eine Zelle genau das gleiche enthält wie eine andere Zelle und auch noch so aussieht?
Gruß MM

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das Problem könntest du so lösen (auch wenns aufwendig ist)
erstelle für jede Zelle, die von Tab2 nach Tab1 übertragen werden muss jeweils einen Namen für die Quellzelle auf Tab2 und einen Namen für die Zielzelle auf Tab1.
lass die Nammen immer mit "Tab1_" und "Tab2_" beginnen (je nachdem, wo sie liegen), der Rest des Namens ist dann egal, ich würde einen wählen, der den Inhalt beschreibt.
zum Aktualisieren schreibst du dann folgendes Makro in ein allgemeines Modul:


Sub Aktualisieren()
Dim Nme As Name
For Each Nme In ThisWorkbook.Names
If Nme.Name Like "Tab2_*" Then
Range(Nme.Name).Copy Range("Tab1_" & Mid(Nme.Name, 6))
End If
Next
End Sub

Der Code kopiert dann die komlette Zelle zu ihrem jeweilien Namenspartner.
Wenn du Zellen einfügst oder löschst, dann verschieben sich die Namen mit, so dass automatisch die richtige Zelle getroffen wird.
um zusätzliche Verknüpfungen anzulegen brauchst du nicht in den Code einzugreifen, es reicht ein neues Namenspaar anzulegen, ebenso beim Löschen.
Der Code überträgt alle Zellinhalte und Formate, dh auch die gewünschten Zeichenindividuellen Formatierungen.
Sollten in der Vorlage für andere Formatbereiche (Farbe, Rahmen) abweichende Formatierungen erforderlich sein, so müssten diese nachträglich wieder gesetzt werden.
Gruß Daniel

Sub Zellbezüge_In_Namen() Dim Zelle As Range Dim Zähler As Long For Each Zelle In Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeFormulas) If Zelle.Formula Like "=Tabelle2!*" Then Zähler = Zähler + 1 Zelle.Name = "Tab1_" & Format(Zähler, "000") Range(Mid(Zelle.Formula, 2)).Name = "Tab2_" & Format(Zähler, "000") Zelle.ClearContents End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Zelleninhalt und Format kopieren ohne vba

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

371 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelleninhalt und Format kopieren ohne vba

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

371 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread