WCM Forum - Aus mehreren Zellen die fettgedruckte übernehmen...

WCM Forum (http://www.wcm.at/forum/index.php)

- Software (http://www.wcm.at/forum/forumdisplay.php?f=5)

- - Aus mehreren Zellen die fettgedruckte übernehmen... (http://www.wcm.at/forum/showthread.php?t=194136)

Aus mehreren Zellen die fettgedruckte übernehmen...

Hallo zusammen!

Hab ein spezielles Problem in Excel und hoffe, daß mir hier jemand helfen kann.
Versuch mal es genau zu erklären:

Habe eine Excel-Datei mit ca 150 Blättern. Jedes Blatt enthält das selbe Vordruckformular, in denen diverse Artikel beschrieben werden (ArtNr 1 - 150, Art des Artikels, Größe, Mängel usw.)
Nun ist es so daß in dem Formular die Art des Artikels dadurch beschrieben wird, daß 7 verschiedene Möglichkeiten (in 7 verschiedenen Zellen) angeboten werden und die jeweils zutreffende Zelle vom User formatiert wird in "Fett" und "Unterstrichen".

Nun möchte ich noch ein Blatt mit einer Übersicht anlegen, wo bei jeder ArtikelNr von 1 - 150 dann unter "Art des Artikels" automatisch vom jeweiligen Blatt von den 7 möglichen Zellen der Text aus derjenigen übernommen wird, welche "Fett" bzw "Unterstrichen" formatiert wurde.

Ist das möglich mit einer Formel? Hab die Suche hier schon bemüht, gegoogelt und die Excel-Hilfe studiert, aber leider nichts derartiges gefunden...

Vielen Dank schon mal!

MfG Ashape

Hi!

Mit einer in VBA geschriebenen Funktion geht das sicher. Insgesamt wäre aber eine kleine DB besser als Excel.

mfg

WB

Hab mir sowas gedacht...
Mit VBA kenn ich mich zu wenig aus, und das Ganze umändern in Access oder derartiges ist mir dann doch zu viel Arbeit.

MfG Ashape

Vielleicht geht da was mit dem Befehl Zelle: Zelle(Infotyp;Bezug) und eine Wenn-Abfrage. Der Befehl Zelle liefert informationen zur Zelle, wie z.B. der Formatierung.

Für Fett,Kursiv und Standard geht's in VBA so
Modul in Arbeitsmappe einfügen und folgender code

Code:

Public Function TextFormat(Zelle As String) As String

TextFormat = Range(Zelle).Font.FontStyle

End Function

wenn in der Zelle A12 zu Bsp.
Test steht kannst die wie folgende wenn nehmen.

Code:

=WENN(TextFormat("A1")="Fett";"das ist fett markiert";"nicht Fett")

@gms76

mit formel Zelle geht's nicht

Wenn das ging, wär ja super!!! Werd das gleich probieren...

MfG Ashape

Das funktioniert ja wirklich!!! Super, dankeschön!!!

Wo lernt man so was?

MfG Ashape