Umwandliung von Daten in einer Spalte in mehrere Spalten

07/04/2009 - 13:34 von Devilsblau | Report spam
Hallo,

ich stehe vor dem spannenden Problem, eine aus dem Internet heruntergeladene
Adressdatei (alle Daten - Firma (1), Straße (1), PLZ/Ort (1), Telefon-Nr.
(1), Telefax (1) - befinden sich untereinander in der Spalte A in jeweils 5
Zeilen und beginnen dann wieder von vorn (Firma (2), Straße (2), PLZ/Ort (2),
Telefon-Nr. (2), Telefax (2) in mehrere Spalten "schieben" zu müssen (Ziel:
Daten für Serienbrieferstellung)
Das geht zwar mit Drag&Drop wunderbar; ist aber bei ca. 20.000 Datensàtzen
nicht "ohne Schmerzen" zu schaffen.
Meine Idee, die ersten "Daten" jeweils mit "=" in die Spalten B, C, D, E und
F zu kopieren und dann mit dem "Anfasser" "herunterzuziehen" scheiterten
natürlich, weil die "Schrittweise" jeweils nur 1 ist (also erschien der Wert
"Straße" statt "Firma (2)"...

Gibt es da eine Möglichkeit, das Ganze etwas "flauschiger" zu gestalten, als
bis Ostern nur Daten zu verschieben?

Es freut sich auf eine Antwort
Devilsblau
 

Lesen sie die antworten

#1 Eberhard Funke
07/04/2009 - 14:56 | Warnen spam
Am Tue, 7 Apr 2009 04:34:02 -0700 schrieb Devilsblau:

Adressdatei (alle Daten - Firma (1), Straße (1), PLZ/Ort (1), Telefon-Nr.
(1), Telefax (1) - befinden sich untereinander in der Spalte A in jeweils 5
Zeilen und beginnen dann wieder von vorn (Firma (2), Straße (2), PLZ/Ort (2),
Telefon-Nr. (2), Telefax (2) in mehrere Spalten "schieben" zu müssen (Ziel:
Daten für Serienbrieferstellung)




Hallo Angelsgreen (oder wie immer Du heißen magst),

Sub Adressen()
Dim lngI As Long, lngB As Long
Dim rng5 As Range
Dim lngLR As Long

Application.ScreenUpdating = False
lngLR = Range("A" & Rows.Count).End(xlUp).Row
Set rng5 = Range("A1:A5")
Do
rng5.Copy
lngB = lngB + 1
Range("B" & lngB).PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=True
Set rng5 = rng5.Offset(5, 0)
Loop Until rng5.Row > lngLR
Application.CutCopyMode = False
Columns(1).Delete
Application.CutCopyMode = True
End Sub

Das Makro übertràgt die Daten in die benachbarten Spalten und löscht
anschließend die Originaldaten in Spalte A. Teste - was man immer machen
sollte! - mit einer Kopie.

Ich sehe gerade: Serienbrieferstellung. Dann musst Du natürlich oben eine
neue Zeile einfügen und dort Firma usw. als überschriften einfügen.

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen