Mehrere Schriftformate einer Zelle mit Bezug in anderes Tabellenblatt

[Ingo49]

Hallo,
mein Name ist Ingo. Z. zt. beim ASB tätig. Muss gleich mit einer Frage starten, da Suchworte in Google mich noch nicht weitergebracht haben.
Um mir die Arbeit mit Speiseplänen die ich schreiben muss zu vereinfachen habe ich ein Tabellenblatt erstellt, von dem aus alle Daten in 9 andere
Tabellenblätter/Speisepläne übernommen werden. Mit ein paar kleinen Funktionen, wenn Urlaub eingetragen wird usw.. Läuft so weit gut, allerdings
fiel mir jetzt erst ein, das in den Zellen verschiede Schriftgrößen und die Hochstellung von Zahlen vorkommen. Die entsprechende Vorlage
wird leider nicht in die anderen Blätter übernommen, da ich dort mit Wenn-Formeln arbeit und der jeweiligen Zelle eine Schriftgröße vorgegeben habe.
Wenn ich das nicht lösen kann, war alles umsonst. Hat jemand einen Typ? Vielen Dank.
Beste Grüße
Ingo

[steve1da]

Hola,

per Formeln können keine Formate in andere Zellen übergeben werden.
Eventuell ist das mit VBA möglich, dann müsste man allerdings den genauen Aufbau der Datei kennen.

Gruß,
steve1da

[Peter]

Hallo,

mit einer Formel kannst du keine Formatierungen übernehmen - hier wäre u.U. der Einsatz von VBA notwendig. Das ist allerdings nicht meine Baustelle, dafür gibt es Experten hier im Forum.

Aber die sollten sinnvollerweise eine anonymisierte Beispielsdatei (keine Bilder) zur Verfügung haben die dem tatsächlichen Tabellenaufbau entspricht.

Hier findest du eine Anleitung zum Hochladen von Dateien:

http://www.clever-excel-forum.de/Thread-...ng-stellen

[Ingo49]

Hallo,
danke für die schnellen Antworten.
Ich hatte das schon befürchtet.
Mal einen Kollegen fragen, ob er,
wenn das möglich ist, in VBA zeigt.
Beste GrüßeIngo :s

[RPP63]

Moin!

Mal einen Kollegen fragen, ob er,
wenn das möglich ist, in VBA zeigt.

Ich nix verstehen.  :21:
Lade mal (da bin ich jetzt der Dritte im Bunde) ein Beispiel hoch.
Es ist kein Problem, den SVERWEIS() per Worksheet_Change zu starten und "alles" zu kopieren.

Gruß Ralf

[Ingo49]

Hallo,
habe mal eben ein Beispiel in Excel gebastelt.
Ich hoffe es ist nachvollziehbar!
Beste Grüße
Ingo

[radagast]

heje excelfreunde, Ingo49,


also eine vorlage wäre schon ganz schön. deine angehängte exceldatei erfordert viel zu viel phantasie...

[Ingo49]

Hallo,

ich versuch noch mal es zu beschreiben, weil die eigentliche Datei
noch wesentlich unübersichtlicher wäre.

In dem Tabellenblatt "Schule1" wird über eine Wenn-Funktion gefragt
ob im Tabellenblatt "Vorlage" ein "j" für ja an der entpsrechenden Stelle steht.

Wenn das der Fall ist, soll er den Menütext aus Datenblatt "Vorlage"
iin das Tabellblatt "Schule1" setzen
.
Das macht er ja auch, aber ich weiß nicht, Ihm beizubringen, die
Formatierung aus Menütext - also die kleinere Schrift der Buchstaben
in Klammern, auch auf dem Blatt Schule 1 automatisch darzustellen.

Gruß

Ingo

[radagast]

heje excelfreund, Ingo49

...ich denke dass du das "formatierte" handisch übertragen musst oder du programmierts das ganze

[IchBinIch]

Hallo Ingo,

dann teste das mal mit der angefügten Datei.

Gruß
Ich

Sub Übertragen()

Dim s, sm, z, zm As Long



With Tabelle1

sm = .Cells(3, Columns.Count).End(xlToLeft).Column

    v = 3

    For s = 6 To sm

        zm = .Cells(Rows.Count, s).End(xlUp).Row

        zz = 4

        For z = 4 To zm

            

            If .Cells(z, s).Value = "j" Then

                .Cells(z, s - v).Copy Sheets(.Cells(3, s).Value).Cells(zz, 2)

                zz = zz + 1

            End If

        

        Next z

        v = v + 1

    Next s

End With

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

  Excel_Beispiel_23.09.16_Ich.xlsm (Größe: 21,43 KB / Downloads: 18)