Format in Verknüpfung übernehemn?
Carlos
Habe folgendes Problem: habe zwei Arbeitsblätter, in "Arbeitsblatt1" ist
ein Tabelle und in "Arbeitsblatt2" ist diese Tabelle verknüpft, so das, wenn
sich in "Arbeitsblatt1" ein Wert ändert dieser sich automatisch auch in
"Arbeitsblatt2" ändert.
Die Formel in "Arbeitsblatt2" Zelle A1 z.B. sieht dazu so aus:
"=+Arbeitsblatt1!A1" usw.
Das funktioniert auch alles super, nur werden in "Arbeitsblatt2" die
Formatierungen der Zellen (Zellenhintergrund, Schriftstäke...) nicht
übernomme. Das ist aber für mich wichtig weil ich in "Arbeitsblatt2" eine
exakte Kopie der ersten Tabelle brauche die ich manipulieren kann ohne das
die erste Tabelle verändert wird.
Gibt es da eine Möglichkeit?
Ich habe evtl. schon eine Lösung gefunden
http://www.excel-center.de/foren/read.php?2,88258,88260 , diese beruht aber
auf einem Makro (von dem ich nicht weiß wie ich es ausführen sollte) und
erscheint mir kompliziert, weil meine Tabelle recht groß ist (ca 30 Spalten
und etwas über 4000 Zeilen) .
schönen Tag noch und Gruß...
thomas...@gmail.com
On 14 Feb., 07:17, "Carlos" <carlosoliv...@honduras.com> wrote:
>
> Habe folgendes Problem: habe zwei Arbeitsblätter, in "Arbeitsblatt1" ist
> ein Tabelle und in "Arbeitsblatt2" ist diese Tabelle verknüpft, so das, wenn
> sich in "Arbeitsblatt1" ein Wert ändert dieser sich automatisch auch in
> "Arbeitsblatt2" ändert.
> Die Formel in "Arbeitsblatt2" Zelle A1 z.B. sieht dazu so aus:
> "=+Arbeitsblatt1!A1" usw.
> Das funktioniert auch alles super, nur werden in "Arbeitsblatt2" die
> Formatierungen der Zellen (Zellenhintergrund, Schriftstäke...) nicht
> übernomme. Das ist aber für mich wichtig weil ich in "Arbeitsblatt2" eine
> exakte Kopie der ersten Tabelle brauche die ich manipulieren kann ohne das
> die erste Tabelle verändert wird.
Excel ist eine Tabellankalkulation und übernimmt bei Verknüpfungen
*immer* nur die Werte der Zellen, nicht aber deren Formate.
> Gibt es da eine Möglichkeit?
> Ich habe evtl. schon eine Lösung gefundenhttp://www.excel-center.de/foren/read.php?2,88258,88260, diese beruht aber
> auf einem Makro (von dem ich nicht weiß wie ich es ausführen sollte) und
> erscheint mir kompliziert, weil meine Tabelle recht groß ist (ca 30 Spalten
> und etwas über 4000 Zeilen) .
Ausser VBA, mit dessen Hilfe Du dann eine Zelle oder deren Format
komplett an einen anderen Ort kopierst, gibt es keine anderen
Möglichkeiten.
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
Carlos
[...]
>Ausser VBA, mit dessen Hilfe Du dann eine Zelle oder deren Format
>komplett an einen anderen Ort kopierst, gibt es keine anderen
>Möglichkeiten.
Danke für die schnelle Antwort.
Habe Mittlerweile versucht o.g. Makro auszuführen,(und jetzt auch den VBA
Editor kennengelernt), bekomme aber selbst bei meiner kleinen Testtabelle
(nur 9 Zellen) andauernd ne Fehlermeldung. Da ich von VBA nichts verstehe
kann ich das auch nicht weiter einordnen.
Hast Du vieleicht einen Tip für mich was ich in den Editor schreiben muß um
einen Bereich von z.B: A1 bis Z10 von einer in die anderen Arbeitsmappe zu
kopieren und trotzdem alle Verknüpfungen zu erhalten?
Gruß C.
Andreas Killer
> Habe folgendes Problem: habe zwei Arbeitsblätter, in "Arbeitsblatt1"
> ist ein Tabelle und in "Arbeitsblatt2" ist diese Tabelle verknüpft, so
> das, wenn sich in "Arbeitsblatt1" ein Wert ändert dieser sich
> automatisch auch in "Arbeitsblatt2" ändert.
...
> Das funktioniert auch alles super, nur werden in "Arbeitsblatt2" die
> Formatierungen der Zellen (Zellenhintergrund, Schriftstäke...) nicht
> übernomme. Das ist aber für mich wichtig weil ich in "Arbeitsblatt2"
...
> Ich habe evtl. schon eine Lösung gefunden
> http://www.excel-center.de/foren/read.php?2,88258,88260 , diese beruht
Das ist der richtige Weg, jedoch den Format-Abgleich der kompletten
Tabellen zu machen, ist ein wenig aufwendiger.
Ich gehe davon aus das Du hier eine Wechselwirkung haben möchtest?
D.h. ändert sich in Blatt1 ein Format, dann soll es sich in Blatt2
ändert und umgekehrt auch?
Also im VBA-Editor solltest Du links im Project-Explorer einen Eintrag
Tabelle1 (Arbeitsblatt1)
sehen. Mach dort einen Doppelklick drauf um dessen Code-Modul
aufzurufen und füge dort dies Makro ein:
Private Sub Worksheet_Activate()
ExchangeSheets Sheets("Arbeitsblatt2"), Me
End Sub
In das Codemodul von "Tabelle2 (Arbeitsblatt2)" bitte dieses Makro:
Private Sub Worksheet_Activate()
ExchangeSheets Sheets("Arbeitsblatt1"), Me
End Sub
Und nun klickst Du oben im Menü auf Einfügen\Modul und fügst alle
angehängten Makros ein. Die Makros "EventsAus" und "EventsAn" kannst
Du direkt aus Excel (über Alt-F8) aufrufen um ggf. den automatischen
Abgleich abzuschalten.
Sobald Du nun zwischen den beiden besagten Blättern wechselst werden
die Formate übertragen.
Andreas.
Public Sub EventsAus()
'Schaltet die Ereignisse aus
Application.EnableEvents = False
End Sub
Public Sub EventsAn()
'Schaltet die Ereignisse an
Application.EnableEvents = True
End Sub
Public Sub ExchangeSheets(FromSheet As Worksheet, _
ToSheet As Worksheet)
'Überträgt die Formate von FromSheet nach ToSheet
Dim A As Range, C As Range
'Bildschirmupdate aus
Application.ScreenUpdating = False
'Ereignisse aus
Application.EnableEvents = False
'Akutelle Zelle merken
Set A = ActiveCell
'Alle Zellen "kopieren"
FromSheet.Cells.Copy
With ToSheet.Cells
'Formate eintragen
.PasteSpecial xlPasteFormats
'Spaltenbreite eintragen
.PasteSpecial xlPasteColumnWidths
End With
'Kopiermodus ausschalten
Application.CutCopyMode = False
'Die aktuelle Zelle wieder anspringen
A.Select
'Bildschirmupdate an
Application.ScreenUpdating = True
'Ereignisse an
Application.EnableEvents = True
End Sub
Carlos
Ersteinmal Danke, haut hin das ganze, also fast jedenfalls...:
> Ich gehe davon aus das Du hier eine Wechselwirkung haben möchtest?
> D.h. ändert sich in Blatt1 ein Format, dann soll es sich in Blatt2 ändert
> und umgekehrt auch?
Nein ne Wechselwirkung soll nicht stattfinden, Blatt zwei brauche ich nur um
es anders zu sortieren / filtern zu können und um in zusätzlichen Zellen
(die es in Blatt1 nicht gibt) Einträge zu machen. Blatt2 darf auf keinem
Fall etwas in Blatt1 ändern!
So wie Du es mir aufgeschrieben hast werden die Formate von Blatt1 an Blatt2
übertragen, genau das was ich wollte. Zum Test habe ich in einer Zelle in
Blatt2 etwas eingetragen, dadurch geht aber der Bezug zur Zelle in Blatt1
verloren (z.B. =+Arbeitsblatt1!A1)
Um das zu verhindern habe ich einfach die Einträge in Code-Modul 2 entfernt,
aber das brachte nichts... (...denn sie wissen nicht was sie tun;-))
Kannst Du mir das ganze bitte noch so anpassen das die Formatübertragungen
wirklich nur von Blatt1 zu Blatt2 funktionieren und nicht umgekehrt? Und am
besten mir noch in ein, zwei Zeilen erklären *was* Du dort, warum, geändert
hast?
Was würdest Du vorschlagen, wie kann ich verhindern das in Blatt2 überhaupt
Eingaben in bestimmten Zeilen und Spalten gemacht werden, ein Zellenschutz
kommt ja wohl nicht in Frage, denn dann könnte ich sortieren, oder?
Ach lass, das ist zweitrangig, dann sehe ich mich halt vor, das andere ist
mir wichtiger!
Auf jeden Fall erst einmal vielen Dank !
Andreas Killer
>> Ich gehe davon aus das Du hier eine Wechselwirkung haben möchtest?
>> D.h. ändert sich in Blatt1 ein Format, dann soll es sich in Blatt2
>> ändert und umgekehrt auch?
> Nein ne Wechselwirkung soll nicht stattfinden, Blatt zwei brauche ich
> nur um es anders zu sortieren / filtern zu können und um in zusätzlichen
> Zellen (die es in Blatt1 nicht gibt) Einträge zu machen. Blatt2 darf auf
> keinem Fall etwas in Blatt1 ändern!
Dann entferne den Code aus dem Codemodul von Tabelle1 (Arbeitsblatt1).
Wenn Du allerdings die Sortierung änderst und dann einen Blattwechsel
machst, dann sind Deine Formate im A...
Und bei gesetztem Filter können noch andere Nebenwirkungen auftreten.
Wenn Du das alles berücksichtigen möchtest..., nein sorry, das ist nur
mit immensem Aufwand verbunden und macht IMHO keinen Sinn.
> So wie Du es mir aufgeschrieben hast werden die Formate von Blatt1 an
> Blatt2 übertragen, genau das was ich wollte. Zum Test habe ich in einer
> Zelle in Blatt2 etwas eingetragen, dadurch geht aber der Bezug zur Zelle
> in Blatt1 verloren (z.B. =+Arbeitsblatt1!A1)
Kann ich nicht nachvollziehen. Probiere bitte meinen Test:
In Arbeitsblatt1 steht bei mir in
Zelle A1 "Blatt1"
Zelle A2 "=Arbeitsblatt2!A1"
In Arbeitsblatt2 steht bei mir in
Zelle A1 "Blatt2"
Zelle A2 "=Arbeitsblatt1!A1"
Beim wechseln der Blätter werden die Formate einwandfrei übertragen,
die Formeln sind alle vorhanden.
Andreas.
Carlos
[...]
> Wenn Du allerdings die Sortierung änderst und dann einen Blattwechsel
> machst, dann sind Deine Formate im A...
> Und bei gesetztem Filter können noch andere Nebenwirkungen auftreten.
Ja, habe ich gemerkt. Aber es scheint eher an der Tabelle zu liegen die
vorgesetzt bekommen habe als an Deinem Code!
Alle meine Testtabellen funktionieren einwandfrei (jetzt auch nur noch in
einer Richtung, so wie ich es wollte)!
> Wenn Du das alles berücksichtigen möchtest..., nein sorry, das ist nur mit
> immensem Aufwand verbunden und macht IMHO keinen Sinn.
Nee, gar nicht! So war das nicht gemeint! Bin ja durch Deine Hilfe ein
großes Stück weiter und nun muß sich der Ersteller der Tabelle was einfallen
lassen wenn ich sie weiterverwenden soll....
Also, auf jeden Fall erst einmal vielen Dank für Deine Hilfe
Gruß und ein schönes Restwochenende noch...
Andreas Killer
>> Wenn Du allerdings die Sortierung änderst und dann einen Blattwechsel
>> machst, dann sind Deine Formate im A...
>> Und bei gesetztem Filter können noch andere Nebenwirkungen auftreten.
> Ja, habe ich gemerkt. Aber es scheint eher an der Tabelle zu liegen die
> vorgesetzt bekommen habe als an Deinem Code!
> Alle meine Testtabellen funktionieren einwandfrei (jetzt auch nur noch
> in einer Richtung, so wie ich es wollte)!
Sehr schön. :-))
>> Wenn Du das alles berücksichtigen möchtest..., nein sorry, das ist nur
>> mit immensem Aufwand verbunden und macht IMHO keinen Sinn.
> Nee, gar nicht! So war das nicht gemeint! Bin ja durch Deine Hilfe ein
> großes Stück weiter und nun muß sich der Ersteller der Tabelle was
> einfallen lassen wenn ich sie weiterverwenden soll....
Wenn Du/Ihr Hilfe braucht, ich bin käuflich. :-))
> Gruß und ein schönes Restwochenende noch...
Danke, Dir auch.
Andreas.