Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Paul1 vom 05.10.2022, 12:17 Options
3 Zellen in einer Zeile nebeneinander in 3 Spalten untereinander
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
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
Antwort 1 von Hajo_Zi vom 05.10.2022, 12:29 Options
Hallo Paul,
nach Deiner Beschreibung sehe beide Tabellen gleich aus.
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
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
Antwort 2 von Paul1 vom 05.10.2022, 12:58 Options
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
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
Antwort 3 von rainberg vom 05.10.2022, 13:04 Options
Hallo Paul,
probier's mal mit desem Code
Gruss
Rainer
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 SubGruss
Rainer
Antwort 4 von Paul1 vom 05.10.2022, 14:38 Options
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!!!
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!!!
Ähnliche Themen
Löschen des Inhaltes von Zellen die genau 20 untereinander stehen
Wuulf 25.05.2009 - 156 Hits - 7 Antworten
Werte in Spalten nebeneinander sollen untereinander
ponscho 17.08.2009 - 378 Hits - 9 Antworten
Excel: Wie ordne ich parallele Spalten untereinander an?
Zwoelwo 30.08.2009 - 604 Hits - 5 Antworten
Makro Leere Spalten löschen ab Zeile 2
Molares 04.09.2009 - 367 Hits - 3 Antworten
spalten wiedergabe bei verbunden zellen
madly.. 15.09.2009 - 95 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
