Excel hilfe

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

kann mir vielleicht jemand helfen??
Ich habe eine Datei mit 18.000 Zeilen (aber nur eine Spalte) von denen immer 4-5 Zeilen zusammen gehören. Name, Strasse,Ort, Tel und ab und an Fax. Wie kann ich das in eine Tabellenform bekommen? So das die 5-6 Angaben nebeneinander in Spalten stehen und dann in Zellen untereinander. Mit „transponieren“ geht es nicht…schon probiert. Helllppppp :wink:))))

2

kann mir vielleicht jemand helfen??
Ich habe eine Datei mit 18.000 Zeilen (aber nur eine Spalte)
von denen immer 4-5 Zeilen zusammen gehören. Name,
Strasse,Ort, Tel und ab und an Fax. Wie kann ich das in eine
Tabellenform bekommen? So das die 5-6 Angaben nebeneinander in
Spalten stehen und dann in Zellen untereinander. Mit
„transponieren“ geht es nicht…schon probiert. Helllppppp
:wink:))))

Hallo Oxi,

das ginge schon mit einem Makro. Das Riesenproblem ist „immer 4-5 Zeilen zusammen“. Immer 4 oder immer 5 wäre einfach.

Mach mal dieses. Mache eine Kopie deiner mappe/tabelle. Lösche da die Zeilen 50-18000. Ggfs anonymisier die daten,das geht fix.

Wichtig ist daß da paar 4 und 5 Zeiler Daten drin sind.
Dann lade sie mal hoch mit FAQ:2606

Gruß
Reinhard

3

Hi Reinhard,
ich sitze an einem Firmenrechner und kann hier leider nichts uploaden. Ich kann nur ins Internet und Mailen…

4

Hi Reinhard,
ich sitze an einem Firmenrechner und kann hier leider nichts
uploaden. Ich kann nur ins Internet und Mailen…

Hallo Oxi,

kein Akt, dann mails mir, mit deinem Einverständnis lade ich das dann hoch.

Gruß
Reinhard

5

Hier nun die Mappe

kein Akt, dann mails mir, mit deinem Einverständnis lade ich
das dann hoch.

Halllo Oxi,

hier deine mappe:
http://www.hostarea.de/server-09/September-6e1578e2b…

Frage, ist sichergestellt daß zwischen jedem „Block“ IMMER eine Leerzeile ist?

Gruß
Reinhard

6

Ja, zwischen jedem Block ist eine Leerzeile…immer.
Gruß
Oxi

7

Hallo,
Die Makro-Lösung ist natürlich die eleganteste. Will man sich nicht mit Makros herumschlagen, dann geht es auch so:

  1. Man fügt eine Überschriftszeile ein
  2. Man setzt den Autofilter. Dabei müssen ggf. die Daten explizit selektiert werden wg. der Leerzeilen.
  3. Man schreibt in Zelle B2 „=A3“, in C2 „=A4“ usw. bis F2
  4. Man filtert Spalte 1 auf „leer“ und füllt die Spalten B bis F mit den Formeln aus Zeile 2 auf
  5. Spalten B bis F: Kopieren, Inhalte einfügen / Werte
  6. Eventuell noch kleiner nacharbeiten durchführen in der letzten Spalten bei den Datensätzen mit weniger als der maximalen Zeilenzahl.

Gruß
Rainer

8

Zeilenblöcke transponieren
Hallo Oxi,

Sub Trenn()
Dim lngMax As Long, Zei As Long, Von As Long, Bis As Long
Zei = Cells(Rows.Count, 1).End(xlUp).Row
Von = Rows.Count
Do
 Bis = Cells(Von, 1).End(xlUp).Row
 Von = Cells(Bis, 1).End(xlUp).Row
 Range(Cells(Von, 1), Cells(Bis, 1)).Copy
 Cells(Von, 2).PasteSpecial Paste:=xlAll, Operation:=xlNone, \_
 SkipBlanks:=False, Transpose:=True
 Rows(Von + 1 & ":" & Bis + 1).Delete
Loop While Von \> 2
Columns(1).Delete
Columns("A:E").AutoFit
Range("A1").Select
End Sub

Gruß
Reinhard

9

Hallo,

such mal die Funktion „Text in Spalten“ da braucht man kein Makro dafür. Und ich hoffe dass irgend ein vernünftiges Trennzeichen da ist.

Gruss
Nils