3 Zellen in einer Zeile nebeneinander in 3 Spalten untereinander

Question

Hallo Allseits!

Es geht um Folgendes:

>>Tabelle 1
>In den Spalten A bis L stehen Daten bis Zeile?
>Spalte A bis C:
>Spalte A: Name
>Spalte B: Adresse
>Spalte C: Tel. Nummer
>Spalten D bis F das gleiche
>Spalten G bis H das gleiche usw. bis L

Das wären insgesamt 4 Blöcke.

Es sollten in Tabelle 2 die Daten untereinander stehen:

>A1 bis A? Name
>B1 bis B? Adresse
>C1 bis C? Tel. Nummer

Ist das noch mit Formeln machbar oder bedarf es hierfür einen VBA-Code.
Mit VBA kenne ich mich nicht aus (ich weiß gerade wie er einzufügen ist) und eine Formel ist mir nicht gelungen.

Für jeden Hinweis, wenn auch nur Allgemein, Vorschlag oder eventuell Lösung bedanke ich mich im Voraus.

Excel 2003

Herzliche Grüße

Paul1




Hallo Allseits!

Es geht um Folgendes:

>>Tabelle 1
>In den Spalten A bis L stehen Daten bis Zeile?
>Spalte A bis C:
>Spalte A: Name
>Spalte B: Adresse
>Spalte C: Tel. Nummer
>Spalten D bis F das gleiche
>Spalten G bis H das gleiche usw. bis L

Das wären insgesamt 4 Blöcke.

>>Es sollten in Tabelle 2 die Daten untereinander stehen:

>A1 bis A? Name
>B1 bis B? Adresse
>C1 bis C? Tel. Nummer

Ist das noch mit Formeln machbar oder bedarf es hierfür einen VBA-Code.
Mit VBA kenne ich mich nicht aus (ich weiß gerade wie er einzufügen ist) und eine Formel ist mir nicht gelungen.

Für jeden Hinweis, wenn auch nur Allgemein, Vorschlag oder eventuell Lösung bedanke ich mich im Voraus.

Excel 2003

Herzliche Grüße

Paul1

Answer 1

Hallo Paul,

nach Deiner Beschreibung sehe beide Tabellen gleich aus.

erste Beschreibung zweite Beschreibung
Tabelle 1 Tabelle2
Spalte A: Name A1 = Name
Spalte B: Adresse B1 =Adresse
Spalte C: Tel. Nummer C1 = Tel Nummer
Spalten D bis F das gleiche
Spalten G bis H das gleiche

Nur das Du in der zweiten Bescchreibung nicht Spalte hast siondern eine einzelnen Zelle.
Oder Soll das so interüpretiert werden das in Tabelle2 Zelle A1 der gesamte Inhalt von Tabelle!A1:A1048576 rein sioll?

Gruß Hajo

Answer 2

Hallo Hajo,

Vorerst besten Dank für Deine prompte Antwort.

In Tabelle 1 stehen von Spalte A bis L :
Name, Adresse, Tel. Nr. Name, Adresse, Tel.Nr.

Name 1= Zelle, Adresse= 1 Zelle, Tel. =1 Zelle
das ganze 4 mal beginnend mit A1 bis L1, also 4 Blöcke
z.B. in 100 Zeilen

In Tabelle 2 sollen diese Blöcke untereinander angeordnet sein:

von A1 bis C1:
Name, Adresse, Tel.Nr.
von A2 bis C2:
Name, Adresse, Tel. Nr.
von A3 bis C3:
Name Adresse, Tel.Nr.
usw. usw...........

Auch hier:
Name=1Zelle
Adresse=1Zelle
Tel.Nr.=1Zelle

Natürlich die richtigen Namen, Adressen, Tel.Nr. und nicht als Überschrift

Ich hoffe, dass ich es verständlich genug beschrieben habe, zumal ich es selbst schätze wenn Fragen so genau wie möglich gestellt werden.

schöne Grüße

Paul1

Answer 3

Hallo Paul,

probier's mal mit desem Code

Option Explicit

Sub transfer()
Dim lngL As Long, ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
Application.ScreenUpdating = False
lngL = ws1.Cells(Rows.Count, 1).End(xlUp).Row
ws1.Range("A2:C" & lngL).Copy ws2.Range("A" & ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1)
ws1.Range("D2:F" & lngL).Copy ws2.Range("A" & ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1)
ws1.Range("G2:I" & lngL).Copy ws2.Range("A" & ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1)
ws1.Range("J2:L" & lngL).Copy ws2.Range("A" & ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1)
Application.ScreenUpdating = True
End Sub

Gruss
Rainer

Answer 4

Hallo Rainer,

Dein Makro funktioniert wie geschmiert, super!!!
Hätte nicht geglaubt, dass es überhaupt hinzubekommen ist, da ich vorher schon im Web vergeblich nach einer Lösung suchte.
Jetzt weiß ich, wo ich in Zukunft meine Fragen stellen muß und außerdem habe ich von Dir gar nichts Anderes, als eine richtige Antwort erwartet.

Nochmals herzlichen Dank für die hervorragende Antwort.

schöne Grüße

Paul1



DEINE ANTWORT HAT MEIN PROBLEM GELÖST!!!