Office: Formelproblem mit Microsoft Office Excel 2007

Hallo an alle Mitglieder im Office-Hilfe.com Forum.

Wir sind neu hier und haben gleich am Anfang ein großes Problem und wir hoffen uns kann geholfen werden.

Wir arbeiten zurzeit mit Microsoft Office Excel 2007.

Problem:


Wir haben in Tabelle 1, 4 Wörter stehen. zb. heiße Ina nette Anne. Wie bekommt man diese 4 Wörter in je eine andere Tabelle?

zb. Tabelle 2: heiße; Tabelle 3: Ina; Tabelle 4: nette; Tabelle 5: Anne;

Der Witz dabei ist, in der darunterliegenden Tabelle, stehen wieder ganz andere Wörter. Wie bekommt man diese in je eine andere Tabelle oder Spalte.

Wären zb. diese Wörter gleich in Tabelle 1, so könnte man die Formel

(=WENN(ZÄHLENWENN(L1516;"*li*")=1;"Links";WENN(ZÄHLENWENN(L1516;"*re*")=1;"Rechts") nehmen, aber das geht leider nicht!

Wäre nett wenn uns jemand weiterhelfen kann!!

MFG

 

Hallo,

kopiere die folgende benutzerdefinierte Funktion in ein allgemeines Modul deiner Datei:

Public Function splitten(zelle, Optional Welche_Stelle As Integer = 1, Optional Trenner As String = " ")
Dim a As Variant
a = Split(zelle, Trenner)
splitten = a(Welche_Stelle - 1)
End Function

Der Aufruf erfolgt dann mit:

=splitten(Tabelle3!$A$1;2;" ")

wobei in Tabelle3!$A$1 der Text steht, die 2 gibt an das wievielte Wort im Text ausgegeben werden soll und im letzten Parameter werden die Trennzeichen zwischen den Worten (hier mit " " das Leerzeichen) angegeben.

- Öffne mit Alt+F11 den VBA-Editor
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- Tastenkombination Alt+E und dann M drücken
- in der rechten Fensterhälfte ist jetzt ein leeres Modul eingefügt worden
- in dieses Modul muss der Code eingefügt werden
- im Projektexplorer wird das Modul unter der Datei angezeigt
- speichen und den VBA-Editor mit Alt+F4 schliessen
- das Makro bzw. die Funktion steht dir jetzt in dieser Datei zur Verfügung

 

Hallo Peter,

wir danken dir und werden dies gleich mal ausprobieren.

GRuß


Vanhell