Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

transponieren

transponieren
Norbert
Wie kann ich eine Liste mit Adressen, also:
Kunde Straße Ort
Kunde II Straße Ort
Kunde III Straße Ort
vertikal transponieren?
MTRANS ist mir bekannt, allerdings stehen die Adressen dann transponiert nebeneinander in Spalten;möchte die Adressen in einer Spalte untereinander stehen haben also:
Kunde
Straße
Ort
Kunde II
Straße
Ort
Kunde III
Straße
Ort
Danke für Rückantwort!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: transponieren
11.12.2009 16:57:44
Josef
Hallo Norbert,
so.
Tabelle3

 ABC
1Kunde 1Strasse 1Ort 1
2Kunde 2Strasse 2Ort 2
3Kunde 3Strasse 3Ort 3
4   
5   
6   
7   
8   
9   
10Kunde 1  
11Strasse 1  
12Ort 1  
13Kunde 2  
14Strasse 2  
15Ort 2  
16Kunde 3  
17Strasse 3  
18Ort 3  
19   
20   
21   

Formeln der Tabelle
ZelleFormel
A10=INDIREKT(ADRESSE(GANZZAHL((ZEILE(A1)-1)/3)+1;REST(ZEILE(A1)-1;3)+1))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Sepp

Anzeige
Per verschachtelte INDEX()-Funktion
11.12.2009 17:00:38
NoNet
Hallo norbert,
so geht's (Funktion in E1 eingeben und runterkopieren) :
ABCDE
1
2
3
4
5
6
7
8
9

Funktionen im Tabellenblatt :
Zelle Formel 
E1   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 
E2   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 
E3   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 
E4   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 
E5   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 
E6   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 
E7   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 
E8   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 
E9   =INDEX($A$1:$C$3;GANZZAHL((ZEILE()-1)/3)+1;REST(ZEILE()-1;3)+1) 

Gruß, NoNet
Anzeige
AW: transponieren
11.12.2009 17:10:19
Tino
Hallo,
kannst mal diesen Code testen.
Sub TransposnierenSpezial() Dim varAr(), tmpAr() Dim Bereich As Range Dim A As Long, LCount As Long 'eventuell Bereich anpassen, hier ab A2 With Sheets("Tabelle1") Set Bereich = .Range("A2", .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 3)) End With varAr = Bereich.Value2 Redim tmpAr(1 To Ubound(varAr) * 3, 1 To 1) LCount = 1 For A = 1 To Ubound(varAr) tmpAr(LCount, 1) = varAr(A, 1) tmpAr(LCount + 1, 1) = varAr(A, 2) tmpAr(LCount + 2, 1) = varAr(A, 3) LCount = LCount + 3 Next A Bereich.ClearContents Bereich.Cells(1, 1).Resize(Ubound(tmpAr)) = tmpAr End Sub Gruß Tino
Anzeige
AW: transponieren
14.12.2009 13:14:24
Norbert
Hallo Leute ich bin vollkommen überrascht von den schnellen Antworten. Besten Dank!
funktioniert alles super; habe mich für die Makro-Lösung von Tino entschieden! Bin echt happy!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige