Microsoft Excel

Herbers Excel/VBA-Archiv

Zelleninhalt abschneiden

Betrifft: Zelleninhalt abschneiden
von: Christian
Geschrieben am: 14.04.2003 - 10:55:50

Hi

ich möchte gerne einen Zelleninhalt auslesen. Dieser stellt sich wie folgt dar:
10.102.1011
10.102.1013
oder
1.5.200
1.5.210
usw.
oder, oder ... also mehrere Nummerrierungen bzw. Gliederungsvarianten. Ich möchte nun nur den Zelleninhalt vor dem Zweiten Punkt (inkl. diesem) in eine andere Zelle übernehmen.

z.B. 10.102.1010 ==> 10.102.

Kann mir jemand dabei helfen???

Danke Christian


  

Re: Zelleninhalt abschneiden
von: Yvonne
Geschrieben am: 14.04.2003 - 11:02:32

Hallo Christian,

vielleicht geht es auch leichter, aber mit dieser Formel funktioniert es jedenfalls:

=LINKS(A1;FINDEN(".";A1;FINDEN(".";A1;1)+1))

Gruß, Yvonne

  

Re: Zelleninhalt abschneiden
von: Christian
Geschrieben am: 14.04.2003 - 11:15:47

Danke Yvonne

es funktioniert super.

CU

  

Yvonne
von: Christian
Geschrieben am: 14.04.2003 - 11:50:40

Hallo Yvonne,

in der tabelle funtioniert es super, aber wenn ich es in VBA umsetzen will, dann geht es nicht. Hier ist mal der Code, vielleicht fällt dir ja was auf.
'B4=LINKS(A3;FINDEN(".";A3;FINDEN(".";A3;1)+1))

Cells(Zeil, 2).Value = (Left(Cells(Zeil - 1, 1), Find(""".""", Cells(Zeil - 1, 1), Find(""".""", Cells(Zeil - 1, 1), 1) + 1)))

  

Re: Yvonne
von: Yvonne
Geschrieben am: 14.04.2003 - 11:58:59

Hallo Christian,

probier's mal so:

Cells(zeil, 2).Value = (Left(Cells(zeil - 1, 1), WorksheetFunction.Find(".", Cells(zeil - 1, 1), WorksheetFunction.Find(".", Cells(zeil - 1, 1), 1) + 1)))

Gruß, Yvonne

  

Re: Yvonne
von: Christian
Geschrieben am: 14.04.2003 - 12:05:00

Danke

ist echt super von Dir.

CU