Datenimport/Liste

20/04/2011 - 23:54 von Jakob Schuster | Report spam
Hallo,

folgendes Problem stellt sich mir: Ich habe eine Liste mit Adressen im
Txt-Format. Folgender Aufbau:
1. Zeile: Name
2. Zeile: Straße
3. Zeile: PLZ/Ort
4. Zeile: Tel
5. Zeile: Leer
6. Zeile: Name
.
.
.
Wie bekomme ich das ins Excel rein, so das es vernünftig verarbeitbar ist?

Vielen Dank für die Hilfe vorab

Grüße

J.S
 

Lesen sie die antworten

#1 Henry Helm
22/04/2011 - 05:33 | Warnen spam
On Wed, 20 Apr 2011 23:54:33 +0200, Jakob Schuster <"Nee, sage ich
nicht"@gmx.de> wrote:

folgendes Problem stellt sich mir: Ich habe eine Liste mit Adressen im
Txt-Format. Folgender Aufbau:
1. Zeile: Name
2. Zeile: Straße
3. Zeile: PLZ/Ort
4. Zeile: Tel
5. Zeile: Leer
6. Zeile: Name
Wie bekomme ich das ins Excel rein, so das es vernünftig verarbeitbar ist?



Ich nehme an Du willst die Spalte A zu einer Tabelle umgruppieren,
nachdem Du die Textdatei impotiert hast und nur Spalte A belegt ist.
Folgendes Makro sollte helfen:

'
'verarbeitet Liste in Spalte A als Tabelle
'jede 5. Zeile beginnt wieder in Spalte C
Sub ZeilenAlsTabelle()
myrow = ActiveCell.SpecialCells(xlLastCell).Row
For IZeile = 1 To myrow
JZeile = Fix((IZeile - 1) / 5) + 1
JSpalte = ((IZeile - 1) Mod 5) + 3 'Spalten ab C
Debug.Print IZeile, JZeile, JSpalte
Cells(JZeile, JSpalte).Value = Cells(IZeile, 1).Value
Next IZeile
End Sub
'

Damit würde ab Spalte C entstehen:
Name1;Str1;PLZ1;Tel1;Leer1
Name2;Str2;PLZ2;Tel2;Leer2
Name3;Str3;PLZ3;Tel3;Leer3

Frohes Osterfest,
Henry

Ähnliche fragen