Microsoft Excel

Herbers Excel/VBA-Archiv

umänderm

Betrifft: umänderm von: Aksoy
Geschrieben am: 20.08.2004 21:32:34

Hallo,

wie kann ich folgende Zeile :

ISBN: 3-548-35973-6, KNO-NR: 08 57 07 86

umändern zu :

3-548-35973-6

Gruß

  


Betrifft: AW: umänderm von: Rudi
Geschrieben am: 20.08.2004 21:52:33

=teil(zelle;7;13)

Gruss Rudi


  


Betrifft: AW: umänderm von: Aksoy
Geschrieben am: 20.08.2004 21:58:15

Wofür stehen die einzelnen teile, man beachte ich habe nicht nur eine Zelle sondern viele mit unterschiedlichen Werten.


  


Betrifft: AW: umänderm von: Rudi
Geschrieben am: 20.08.2004 22:05:21

Aksoy

Die Syntax ist folgende: = teil(Zelle;Anfangsposition;Länge des zu extrahierenden Textes)

Auf unser Beispiel angewandt: ab der 7. Stelle des Textes 13 Stellen extrahieren.

Zu deiner Bemerkung: Solange der Inhalt aller Zellen gleich aufgebaut ist, ist es kein Problem. Wenn aber der gewünschte Text immer an unterschiedlichen Stellen auftaucht, funktioniert diese Lösung nicht mehr.

Bitte gib genauere Details zu deinem Problem.

Danke, Gruss Rudi


  


Betrifft: AW: umänderm von: PeterW
Geschrieben am: 20.08.2004 21:55:36

Hallo Aksoy,

welche Probleme hast du, wenn du dem Weg in der Excel-Hilfe zu LINKS folgst?

Gruß
Peter


  


Betrifft: AW: umänderm von: Aksoy
Geschrieben am: 20.08.2004 21:59:08

Häh ?


  


Betrifft: AW: umänderm von: Thomas Risi
Geschrieben am: 20.08.2004 22:07:28

Hi,

hier eine Funktion für Dein Problem ...


      
Option Explicit

' In ein normales Modul kopieren, und als Tabellenfunktion verwenden.
' Zu finden im Funktionsassistenten unter 'Benutzerdefiniert' ...
Public Function SplitISDN(i As StringAs String
    
    
Dim a, b
    
    a = Split(i, 
",")
    b = Split(a(0), 
":")
    
    SplitISDN = Trim$(b(1))
    
End Function 


     Code eingefügt mit Syntaxhighlighter 3.0


Gruß
Thomas

Risi Thomas Softwareentwicklung