Aus mehreren Zellen die fettgedruckte übernehmen...

Ashape · 25.06.2006, 16:07

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

wbendl · 25.06.2006, 16:22

Hi!

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

mfg

WB

Ashape · 25.06.2006, 21:12

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

gms76 · 28.06.2006, 14:06

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.

testi · 28.06.2006, 15:38

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

Ashape · 28.06.2006, 21:34

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

MfG Ashape

Ashape · 28.06.2006, 22:11

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

Wo lernt man so was?

MfG Ashape

25.06.2006, 16:07	#1
Ashape Master Registriert seit: 05.02.2006 Ort: Tirol Alter: 52 Beiträge: 602	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

28.06.2006, 14:06	#4
gms76 Zuhörer Registriert seit: 31.12.2002 Ort: Mödling Beiträge: 823	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. ____________________________________ a life less ordinary = 42 Hi! I\'m a signature worm! Copy me into your signature file to help me spread.

28.06.2006, 15:38	#5
testi Veteran Registriert seit: 22.04.2004 Alter: 51 Beiträge: 216	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 Baumeister Häuser bauten, so wie Programmierer Programme schreiben, dann würde der erste Specht der vorbei kommt die Zivilisation zerstören.

25.06.2006, 16:22	#2
wbendl Master Registriert seit: 22.03.2000 Alter: 66 Beiträge: 550	Hi! Mit einer in VBA geschriebenen Funktion geht das sicher. Insgesamt wäre aber eine kleine DB besser als Excel. mfg WB

25.06.2006, 21:12	#3
Ashape Master Registriert seit: 05.02.2006 Ort: Tirol Alter: 52 Beiträge: 602	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

28.06.2006, 21:34	#6
Ashape Master Registriert seit: 05.02.2006 Ort: Tirol Alter: 52 Beiträge: 602	Wenn das ging, wär ja super!!! Werd das gleich probieren... MfG Ashape

28.06.2006, 22:11	#7
Ashape Master Registriert seit: 05.02.2006 Ort: Tirol Alter: 52 Beiträge: 602	Das funktioniert ja wirklich!!! Super, dankeschön!!! Wo lernt man so was? MfG Ashape

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)