Supportnet / Forum / Tabellenkalkulation
von senkrecht zu waagrecht - transponieren?
Frage
hallo zusammen
ich habe eine frage und glaube hier drin die antwort zu erhalten.
ich habe eine excel-liste mit ca 400 Adressen.
diese sind wie folgt dargestellt:
1. spalte 2. spalte
======= ======
herr
name
strasse
plz ortschaft (dies steht in der 2. spalte)
diese 400 adressen sind in gleichem muster untereinander dargestellt.
kann man in einfachen schritten alle diese 400 adressen so darstellen, dass die angaben nebeneinander auf einer zeile stehen.
bsp: herr name strasse pls ortschaft.
zum vorraus besten dank für euer engagement
gruss b.
Antwort 1 von vadder
da stößt du an die grenze von excel, da es nur 255 spalten gibt
vadder
vadder
Antwort 2 von bartimäus
Hi vadder, vielen Dank für die superschnelle antwort. habs ausprobiert und es stimmt. Werde es in mehreren Schritten ausführen.
Vielen Dank und ein schöner Tag
Gruss Fabio
Vielen Dank und ein schöner Tag
Gruss Fabio
Antwort 3 von Saarbauer
Hallo,
die Umsetzung ist mit einem Marko zu machen, jedoch könnte ich aus Zeitgründen dir dieses frühstens morgen abend liefern.
Ablauf des Makros (grob) Zelle a2 in spalte B1; A3 =C1; A4 = D1 ; B4 = E1 anscliessend Zeile 2-4 löschen , dann steht der Anfang des nächsten Daten satzes in Zeile 2 und es geht von vorne los, nur eine Zeile verschoben
Gruß
Helmut
die Umsetzung ist mit einem Marko zu machen, jedoch könnte ich aus Zeitgründen dir dieses frühstens morgen abend liefern.
Ablauf des Makros (grob) Zelle a2 in spalte B1; A3 =C1; A4 = D1 ; B4 = E1 anscliessend Zeile 2-4 löschen , dann steht der Anfang des nächsten Daten satzes in Zeile 2 und es geht von vorne los, nur eine Zeile verschoben
Gruß
Helmut
Antwort 4 von Saarbauer
Hallo,
als Ergänzung die VBA-Lösung
Sub Umsetzen()
´
´ Umsetzen Makro
´ Makro am 09.12.2005 von Helmut aufgezeichnet
´
Range("A1").Select
i = 2
While IsEmpty(ActiveCell.Value) = False
´ActiveCell.Offset(1, 0).Select
Range("A" & i).Select
Selection.Cut Destination:=Range("B" & i - 1)
Range("A" & i + 1).Select
Selection.Cut Destination:=Range("C" & i - 1)
Range("A" & i + 2).Select
Selection.Cut Destination:=Range("D" & i - 1)
Range("B" & i + 2).Select
Selection.Cut Destination:=Range("E" & i - 1)
Rows(i & ":" & i + 2).Select
Selection.Delete Shift:=xlUp
i = i + 1
Wend
End Sub
Gruß
Helmuz
als Ergänzung die VBA-Lösung
Sub Umsetzen()
´
´ Umsetzen Makro
´ Makro am 09.12.2005 von Helmut aufgezeichnet
´
Range("A1").Select
i = 2
While IsEmpty(ActiveCell.Value) = False
´ActiveCell.Offset(1, 0).Select
Range("A" & i).Select
Selection.Cut Destination:=Range("B" & i - 1)
Range("A" & i + 1).Select
Selection.Cut Destination:=Range("C" & i - 1)
Range("A" & i + 2).Select
Selection.Cut Destination:=Range("D" & i - 1)
Range("B" & i + 2).Select
Selection.Cut Destination:=Range("E" & i - 1)
Rows(i & ":" & i + 2).Select
Selection.Delete Shift:=xlUp
i = i + 1
Wend
End Sub
Gruß
Helmuz
Antwort 5 von bartimäus
Hallo zusammen,
vielen Dank für Eure Hilfe. Ich habe es mit einem Makro hingekriegt und dies mit minimalen Zeitaufwand.
Vielen Dank für Eure Unterstützung
Gruss Bartimäus
vielen Dank für Eure Hilfe. Ich habe es mit einem Makro hingekriegt und dies mit minimalen Zeitaufwand.
Vielen Dank für Eure Unterstützung
Gruss Bartimäus