PDA

Vollständige Version anzeigen : Straßennamen / Straßennr.


Steffen1255
21.02.2008, 14:01
Hallo Leute,
ich hoffe ihr könnt mir helfen. im Forum habe ich leider nicht passendes gefunden.
Also habe folgendes problem. ich habe tausende von straßen + hausnr. in meiner excelliste.
z.b.
Haupstr. 3
Mainzstrasse 34a
Juluisweg 22
Am Markplatz 2

-- jeweils in einer Zelle.

was ich jetzt möchte ist, dass der strassenname von der hausnr. in 2 verschiedenen zellen verteilt werden! Also das heißt Zelle A1: Haupstr. Zelle B1: 3 usw.

Hatte die Funktion "Rechts" oder "Teil" im Kopf, aber die funktioniert nicht so gut, da ja jeder einzelne Zelle verschiedene anzahlen von buchstaben und zahlen hat. könnt ihr mir da helfen wie ich das am besten machen kann? Problematisch wird es vielleicht auch bei z.B. 34a ?! Es wäre echt super, wenn mir jemand dabei hilft.

Gruß
Steffen

chris-kaiser
21.02.2008, 14:19
hi

http://www.excelformeln.de/formeln.html?welcher=350

IngGi
21.02.2008, 14:26
Hallo Steffen,

du kannst am letzten Leerzeichen abschneiden:
<table><tr style="vertical-align:top; text-align:center; "><tr><td>&nbsp;</td></tr><tr><td><table border=1 cellspacing=0 cellpadding=0 style="font-family:Arial,Arial; font-size:10pt; padding-left:2pt; padding-right:2pt; "> <style type = "text/css"> th {font-weight:normal} </style> <colgroup><col width=30 ><col width=106.999997325 ><col width=89.99999775 ><col width=79.999998 ></colgroup><tr style="background-color:#cacaca; text-align:center;font-size:8pt; "><td>&nbsp;</td><td>A</td><td>B</td><td>C</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td style="">An der Eiche 12a</td><td style="font-family:Verdana; ">An der Eiche</td><td style="text-align:right; ">12a</td></tr></table><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#FFFCF9; "><tr><td><b>Formeln der Tabelle</b></td></tr><tr><td><table style="font-family:Arial; font-size:10pt;">B1 : =LINKS(A1;FINDEN("#";WECHSELN(A1;" ";"#";L&Auml;NGE(A1)-L&Auml;NGE(WECHSELN(A1;" ";""))))-1)<br>C1 : =RECHTS(A1;L&Auml;NGE(A1)-L&Auml;NGE(B1)-1)<br></table></td></tr></table></td></tr><tr><td>&nbsp;</td></tr></tr></table>Die Formel zum finden des letzten Leerzeichens stammt von http://www.excelformeln.de/formeln.html?welcher=108

Die Adresse An der Eiche 12 a wird natürlich falsch getrennt. Solche Fälle sind allerdings nur von Hand korrigierbar.

Gruß Ingolf

ich nochmal
22.02.2008, 06:40
danke, hat geklappt.
das einzige problem ist jetzt wirklich nur noch die hausnr. z.B. 13 a! also wegen dem leerzeichen. 13a (ohne leerzeichen) ist ja kein problem.
gibt es hierfür echt keine lösung???

bst
22.02.2008, 07:58
Morgen,

sowas vielleicht? Trennt vor der 1. Ziffer, funktioniert also nicht mit der "Straße des 17. Juni"

<table border="1" cellspacing="0" cellpadding="0" style="font-family:Arial,Arial; font-size:10pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:110px;" /><col style="width:80px;" /><col style="width:92px;" /><col style="width:80px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td >&nbsp;</td><td >A</td><td >B</td><td >C</td><td >D</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td >Haupstr. 3</td><td style="text-align:right; ">10</td><td >Haupstr. </td><td style="text-align:right; ">3</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td >Mainzstrasse 34a</td><td style="text-align:right; ">14</td><td >Mainzstrasse </td><td >34a</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td >Juluisweg 22</td><td style="text-align:right; ">11</td><td >Juluisweg </td><td style="text-align:right; ">22</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td >Am Markplatz 2</td><td style="text-align:right; ">14</td><td >Am Markplatz </td><td style="text-align:right; ">2</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td >An der Eiche 12 a</td><td style="text-align:right; ">14</td><td >An der Eiche </td><td style="text-align:right; ">12 a</td></tr></table><br /><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#fffcf9; color:#000000; "><tr><td ><b>Formeln der Tabelle</b></td></tr><tr><td ><table border = "1" cellspacing="0" cellpadding="2" style="font-family:Arial; font-size:9pt;"><tr style="background-color:#cacaca; font-size:10pt;"><td >Zelle</td><td >Formel</td></tr><tr><td >B1</td><td >{=MIN(WENN<span style=' color:008000; '>(ISTZAHL<span style=' color:#0000ff; '>(TEIL<span style=' color:#ff0000; '>(A1;SPALTE<span style=' color:#804000; '>($1:$1)</span>;1)</span>*1)</span>;SPALTE<span style=' color:#0000ff; '>($1:$1)</span>)</span>)}</td></tr><tr><td >C1</td><td >=LINKS(A1;B1-1)</td></tr><tr><td >D1</td><td >=TEIL(A1;B1;999)</td></tr></table></td></tr><tr><td ><span style=' font-family:Arial,Arial; font-size:9pt; font-weight:bold;'>Enth&auml;lt Matrixformel:</span><span style=' font-family:Arial,Arial; font-size:9pt;'><br />Umrandende </span><span style=' font-family:Arial,Arial; font-size:9pt; font-weight:bold;'>{ }</span><span style=' font-family:Arial,Arial; font-size:9pt;'> nicht miteingeben,<br />sondern Formel mit STRG+SHIFT+RETURN abschlie&szlig;en!</span></td></tr><tr><td ><a href="http://www.online-excel.de/excel/singsel.php?f=26" style="font-family:Arial; font-size:8pt;font-weight:bold;color:#000080;" target='_blank'>Matrix verstehen</a></td></tr></table> <br /><br /><span style="font-family:Arial; font-size:9pt; font-weight:bold;background-color:#ffffff; color:#000000; ">Excel Tabellen im Web darstellen &gt;&gt; </span><a style ="font-family:Arial; font-size:9pt; color:#fcf507; background-color:#800040; font-weight:bold;" href="http://www.excel-jeanie-html.de" target="_blank"> Excel Jeanie HTML 4 </a>

HTH, Bernd

Kl@us-M.
22.02.2008, 08:14
Hi,
wenn Du mit zwei Hilfsspalten (B:C) leben kannst:
<table><tr style="vertical-align:top; text-align:center; "><tr><td>Tabelle1</td></tr><tr><td><table border=1 cellspacing=0 cellpadding=0 style="font-family:Arial,Arial; font-size:10pt; padding-left:2pt; padding-right:2pt; "> <style type = "text/css"> th {font-weight:normal} </style> <colgroup><col width=30 style="font-weight:bold; "><col width=208.999994775 ><col width=93.99999765 ><col width=79.999998 ><col width=152.999996175 ><col width=79.999998 ></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td>&nbsp;</td><td>A</td><td>B</td><td>C</td><td>D</td><td>E</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td style="">Gartenstr. 12</td><td style="">Gartenstr.</td><td style="">#WERT!</td><td style="">Gartenstr.</td><td style="text-align:right; ">12</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="">Gartenstr. 12a</td><td style="">Gartenstr.</td><td style="">#WERT!</td><td style="">Gartenstr.</td><td style="text-align:right; ">12a</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="">Gartenstr. 12 a</td><td style="">Gartenstr. 12</td><td style="">Gartenstr.</td><td style="">Gartenstr.</td><td style="text-align:right; ">12 a</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="">Hauptstr. 4-6</td><td style="">Hauptstr.</td><td style="">#WERT!</td><td style="">Hauptstr.</td><td style="text-align:right; ">4-6</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td style="">Strasse des 17. Juni 33</td><td style="">Strasse des 17. Juni</td><td style="">Strasse des 17.</td><td style="">Strasse des 17. Juni</td><td style="text-align:right; ">33</td></tr></table><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#FFFCF9; "><tr><td><b>Formeln der Tabelle</b></td></tr><tr><td><table style="font-family:Arial; font-size:10pt;">B1 : =LINKS(A1;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(A1;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(A1)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(A1;" ";"")</span>)</span>)</span>)</span>-1)<br>C1 : =LINKS(B1;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(B1;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(B1)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(B1;" ";"")</span>)</span>)</span>)</span>-1)<br>D1 : =WENN(ISTZAHL<span style=' color:008000; '>(RECHTS<span style=' color:#0000ff; '>(LINKS<span style=' color:#ff0000; '>(A1;FINDEN<span style=' color:#804000; '>("#";WECHSELN<span style=' color:#FF7837; '>(A1;" ";"#";L&Auml;NGE<span style=' color:#8000ff; '>(A1)</span>-L&Auml;NGE<span style=' color:#8000ff; '>(WECHSELN<span style=' color:#545FA5; '>(A1;" ";"")</span>)</span>)</span>)</span>-1)</span>;1)</span>*1)</span>;C1;B1)<br>E1 : =GL&Auml;TTEN(WECHSELN<span style=' color:008000; '>(A1;D1;;1)</span>)<br>B2 : =LINKS(A2;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(A2;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(A2)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(A2;" ";"")</span>)</span>)</span>)</span>-1)<br>C2 : =LINKS(B2;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(B2;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(B2)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(B2;" ";"")</span>)</span>)</span>)</span>-1)<br>D2 : =WENN(ISTZAHL<span style=' color:008000; '>(RECHTS<span style=' color:#0000ff; '>(LINKS<span style=' color:#ff0000; '>(A2;FINDEN<span style=' color:#804000; '>("#";WECHSELN<span style=' color:#FF7837; '>(A2;" ";"#";L&Auml;NGE<span style=' color:#8000ff; '>(A2)</span>-L&Auml;NGE<span style=' color:#8000ff; '>(WECHSELN<span style=' color:#545FA5; '>(A2;" ";"")</span>)</span>)</span>)</span>-1)</span>;1)</span>*1)</span>;C2;B2)<br>E2 : =GL&Auml;TTEN(WECHSELN<span style=' color:008000; '>(A2;D2;;1)</span>)<br>B3 : =LINKS(A3;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(A3;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(A3)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(A3;" ";"")</span>)</span>)</span>)</span>-1)<br>C3 : =LINKS(B3;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(B3;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(B3)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(B3;" ";"")</span>)</span>)</span>)</span>-1)<br>D3 : =WENN(ISTZAHL<span style=' color:008000; '>(RECHTS<span style=' color:#0000ff; '>(LINKS<span style=' color:#ff0000; '>(A3;FINDEN<span style=' color:#804000; '>("#";WECHSELN<span style=' color:#FF7837; '>(A3;" ";"#";L&Auml;NGE<span style=' color:#8000ff; '>(A3)</span>-L&Auml;NGE<span style=' color:#8000ff; '>(WECHSELN<span style=' color:#545FA5; '>(A3;" ";"")</span>)</span>)</span>)</span>-1)</span>;1)</span>*1)</span>;C3;B3)<br>E3 : =GL&Auml;TTEN(WECHSELN<span style=' color:008000; '>(A3;D3;;1)</span>)<br>B4 : =LINKS(A4;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(A4;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(A4)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(A4;" ";"")</span>)</span>)</span>)</span>-1)<br>C4 : =LINKS(B4;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(B4;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(B4)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(B4;" ";"")</span>)</span>)</span>)</span>-1)<br>D4 : =WENN(ISTZAHL<span style=' color:008000; '>(RECHTS<span style=' color:#0000ff; '>(LINKS<span style=' color:#ff0000; '>(A4;FINDEN<span style=' color:#804000; '>("#";WECHSELN<span style=' color:#FF7837; '>(A4;" ";"#";L&Auml;NGE<span style=' color:#8000ff; '>(A4)</span>-L&Auml;NGE<span style=' color:#8000ff; '>(WECHSELN<span style=' color:#545FA5; '>(A4;" ";"")</span>)</span>)</span>)</span>-1)</span>;1)</span>*1)</span>;C4;B4)<br>E4 : =GL&Auml;TTEN(WECHSELN<span style=' color:008000; '>(A4;D4;;1)</span>)<br>B5 : =LINKS(A5;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(A5;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(A5)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(A5;" ";"")</span>)</span>)</span>)</span>-1)<br>C5 : =LINKS(B5;FINDEN<span style=' color:008000; '>("#";WECHSELN<span style=' color:#0000ff; '>(B5;" ";"#";L&Auml;NGE<span style=' color:#ff0000; '>(B5)</span>-L&Auml;NGE<span style=' color:#ff0000; '>(WECHSELN<span style=' color:#804000; '>(B5;" ";"")</span>)</span>)</span>)</span>-1)<br>D5 : =WENN(ISTZAHL<span style=' color:008000; '>(RECHTS<span style=' color:#0000ff; '>(LINKS<span style=' color:#ff0000; '>(A5;FINDEN<span style=' color:#804000; '>("#";WECHSELN<span style=' color:#FF7837; '>(A5;" ";"#";L&Auml;NGE<span style=' color:#8000ff; '>(A5)</span>-L&Auml;NGE<span style=' color:#8000ff; '>(WECHSELN<span style=' color:#545FA5; '>(A5;" ";"")</span>)</span>)</span>)</span>-1)</span>;1)</span>*1)</span>;C5;B5)<br>E5 : =GL&Auml;TTEN(WECHSELN<span style=' color:008000; '>(A5;D5;;1)</span>)<br></table></td></tr></table></td></tr><tr><td>&nbsp;</td></tr></tr></table> <br>

Steffenn
22.02.2008, 09:25
Klappt soweit alles. VIelen dank. habt mir sehr geholfen aber......nur noch ne kleinigkeit......
da adressen von mehreren Usern kommen und manche die hausnr. so unterteilen 1 - 3 also mit Leerzeichen, klappt das nicht ganz. dies trennt er mir flasch. kann man das irgendwie auch noch in der formel mit einbeziehen?

BBB 1 - 3 ; BBB 1 - ; BBB 1 ; BBB 1 - ; 3

Kl@us-M.
22.02.2008, 10:21
Hi Steffen,

genau das macht doch Bernd's Lösung:
<table><tr style="vertical-align:top; text-align:center; "><tr><td>Tabelle1</td></tr><tr><td><table border=1 cellspacing=0 cellpadding=0 style="font-family:Arial,Arial; font-size:10pt; padding-left:2pt; padding-right:2pt; "> <style type = "text/css"> th {font-weight:normal} </style> <colgroup><col width=30 style="font-weight:bold; "><col width=355.9999911 ><col width=79.999998 ><col width=79.999998 ><col width=79.999998 ></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td>&nbsp;</td><td>A</td><td>B</td><td>C</td><td>D</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td style="">Hauptstr. 1 - 3</td><td style="text-align:right; ">11</td><td style="">Hauptstr. </td><td style="text-align:right; ">1 - 3</td></tr></table><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#FFFCF9; "><tr><td><b>Formeln der Tabelle</b></td></tr><tr><td><table style="font-family:Arial; font-size:10pt;">B1 : {=MIN(WENN<span style=' color:008000; '>(ISTZAHL<span style=' color:#0000ff; '>(TEIL<span style=' color:#ff0000; '>(A1;SPALTE<span style=' color:#804000; '>($1:$1)</span>;1)</span>*1)</span>;SPALTE<span style=' color:#0000ff; '>($1:$1)</span>)</span>)}<br>C1 : =LINKS(A1;B1-1)<br>D1 : =TEIL(A1;B1;999)<br><br><span style=' font-family:Arial,Arial; font-size:9pt; font-weight:bold;'>Enth&auml;lt Matrixformel:</span><span style=' font-family:Arial,Arial; font-size:9pt;'><br />Umrandende </span><span style=' font-family:Arial,Arial; font-size:9pt; font-weight:bold;'>{ }</span><span style=' font-family:Arial,Arial; font-size:9pt;'> nicht miteingeben,<br />sondern Formel mit STRG+SHIFT+RETURN abschlie&szlig;en!</span></table></td></tr></table></td></tr><tr><td>&nbsp;</td></tr></tr></table> <br>

Steffen1255
12.03.2008, 06:16
hallo Jungs,
ihr habt mir letztes mal sehr geholfen. nur ich brauche noch ein sache. und zwar habe ich gestern versucht die formel von bernd in makro mit VBA zu schreiben! Leider hat es nicht geklappt, weil ich das mit den {} nicht verstehe. WEnn ich die rausnehme, funktioniert die formel nicht.

kann mir da jemand helfen? ich will das via button dann daas makro ausgelöst wird und er dann die adresse dementsprechend unterteilt! das heißt die formeln dürfen erstmal nicht ersichtlich sein. Anschliessend schreibe ich noch im makro das die formeln bzw. Zelleninhalt als Wert kopiert werden, so das auch die Formeln verschwinden.

Aber wie schreibe ich das makro?? Das wäre suuuppperrr wenn einer von euch das kann.

bst
12.03.2008, 07:43
Morgen,

das ist eine Matrixformel, Du musst die an .FormulaArray zuweisen.

HTH, Bernd
--
<span style="font-family:Courier New,Arial; font-size:9pt ;" ><span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span><br /><br /><b><span style="color:#000080"; >Sub</span> x()</b><br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >Dim</span> lngZeilen <span style="color:#000080"; >As</span> <span style="color:#000080"; >Long</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<br />&nbsp;&nbsp;&nbsp;&nbsp;lngZeilen = IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)<br />&nbsp;&nbsp;&nbsp;&nbsp;Range(<span style="color:#800000"; >"B1"</span>).FormulaArray = <span style="color:#800000"; >"=MIN(IF(ISNUMBER(MID(RC[-1],COLUMN(R1),1)*1),COLUMN(R1)))"</span><br />&nbsp;&nbsp;&nbsp;&nbsp;Range(<span style="color:#800000"; >"B1"</span>).Resize(lngZeilen).FillDown<br />&nbsp;&nbsp;&nbsp;&nbsp;Range(<span style="color:#800000"; >"C1"</span>).Resize(lngZeilen).Formula = <span style="color:#800000"; >"=LEFT(A1,B1-1)"</span><br />&nbsp;&nbsp;&nbsp;&nbsp;Range(<span style="color:#800000"; >"D1"</span>).Resize(lngZeilen).Formula = <span style="color:#800000"; >"=MID(A1,B1,999)"</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >With</span> Range(<span style="color:#800000"; >"B1:D1"</span>).Resize(lngZeilen)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Value = .Value<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >End</span> <span style="color:#000080"; >With</span><br /><b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b><br /><br /></span>

Steffen1255
12.03.2008, 09:43
Bernd, du hast es drauf. Danke! Funktioniert!!!

Steffen1245
14.03.2008, 08:28
Hallo Bernd, habe dein Makro ein bißchen erweitert. Muss am Ende nähmlich die Strassennamen glätten, damit das Leerzeichen nach den Namen wegfällt und ich dann einen Sverweis setzen kann. Nun meine Frage....
wenn ich das makro auslöse, zeigt Excel ja die einzelnen Abläufe die ich mache, Also Formel runterziehen, kopieren usw.

kann man dies vermeiden? also so vermeiden, dass die Zahlen ohne zwischenaktionen erscheinen? hier der quellcode.

Und wie erweitere ich die Glättungsfunktion so, das ich nicht die Zeilen bis festlege sondern er automatisch nur da glättet wo auch was drin steht.



Hier Quellcode:

Sub x()
Dim lngZeilen As Long

lngZeilen = IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)
Range("B1").FormulaArray = "=MIN(IF(ISNUMBER(MID(RC[-1],COLUMN(R1),1)*1),COLUMN(R1)))"
Range("B1").Resize(lngZeilen).FillDown
Range("C1").Resize(lngZeilen).Formula = "=LEFT(A1,B1-1)"
Range("D1").Resize(lngZeilen).Formula = "=MID(A1,B1,999)"
With Range("B1:D1").Resize(lngZeilen)
.Value = .Value
End With



Range("E1").Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-2])"
Selection.AutoFill Destination:=Range("E1:E60000")
Range("E1:E60000").Select


Columns("E:E").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("C1").Select


End Sub

bst
14.03.2008, 10:37
Hi Steffen,

ändere doch einfach die Formel in C1. Nimm dort:

=GLÄTTEN(LINKS(A1;B1-1))

Und schalte am Anfang ScreenUpdating ab.

cu, Bernd
--
Option Explicit

Sub x()
Dim lngZeilen As Long

Application.ScreenUpdating = False
lngZeilen = IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)
Range("B1").FormulaArray = "=MIN(IF(ISNUMBER(MID(RC[-1],COLUMN(R1),1)*1),COLUMN(R1)))"
Range("B1").Resize(lngZeilen).FillDown
Range("C1").Resize(lngZeilen).Formula = "=TRIM(LEFT(A1,B1-1))"
Range("D1").Resize(lngZeilen).Formula = "=MID(A1,B1,999)"
With Range("B1:D1").Resize(lngZeilen)
.Value = .Value
End With
Application.ScreenUpdating = False
End Sub