Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle umformatieren (X Spalte zu einer Zeilen)

Tabelle umformatieren (X Spalte zu einer Zeilen)
03.09.2003 09:05:13
Jan
Hallo,

ich bräuchte bitte eure Hilfe, im Archiv finde ich es nicht (oder suche es unter einem falschen Suchbegriff). Ich habe eine Tabelle im olgenden Format:

Spalte1 Spalte2

Berlin Name1
Berlin Name2
Berlin Name3
Dresden NameX
Dresden NameY
Frankfurt Name10
Frankfurt Name11
Frankfurt NameX
Frankfurt Name1
...

und benötige aber folgendes Format für ein tool:

Spalte1 Spalte2 Spalte3 Spalte4 ....

Berlin Name1 Name2 Name3
Dresden NameX NameY
Frankfurt Name10 Name11 Namex Name1

Vielen Dank im voraus für eure Hilfe, Gruss Jan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle umformatieren (X Spalte zu einer Zeile
06.09.2003 18:27:08
Reinhard
Hi Jan,
folgender Code sollte klappen...
Gruß
Reinhard


Sub test()
z2 = 1
z1 = 2
s = 2
Tabelle2.Cells(1, 1) = Tabelle1.Cells(1, 1)
Tabelle2.Cells(1, 2) = Tabelle1.Cells(1, 2)
While Tabelle1.Cells(z1, 1) <> ""
If Tabelle2.Cells(z2, 1) = Tabelle1.Cells(z1, 1) Then
s = s + 1
Tabelle2.Cells(z2, s) = Tabelle1.Cells(z1, 2)
Else
s = 2
z2 = z2 + 1
Tabelle2.Cells(z2, 1) = Tabelle1.Cells(z1, 1)
Tabelle2.Cells(z2, 2) = Tabelle1.Cells(z1, 2)
End If
z1 = z1 + 1
Wend
End Sub
Das Makro macht aus:
n	1
n	2
n	3
t	4
t	5
e	6
e	7
e	8
e	9
die folgende Tabelle:
n	1	2	3
t	4	5
e	6	7	8	9

Anzeige
AW: Tabelle umformatieren (X Spalte zu einer Zeile
08.09.2003 09:41:33
Jan
Hallo Reinhard,

Vielen Dank, funktioniert suppeeerrrr !!!!!

Gruss Jan

307 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
Pivot-Tab: Leere ausblenden?
Florian

Hallo liebes Forum,
hätte eine Frage zu Pivottabelle (VBA-Code!):
Gibt es einen Befehl, um die Summen der "leeren" Zellen auszublenden/nicht anzuzeigen? Benutzer soll nicht durc¨h unwichtige Daten überlastet werden (siehe Bsp gelbe Zellen).
Besten Dank, Florian
https://www.herb...
19.11.2008 14:45:00
Thread-ID: 1026052
6 Beiträge
Spalten aus einem Tabellenblatt auslesen
Kiewel

Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04...
05.01.2009 16:20:25
Thread-ID: 1037009
7 Beiträge
Anzeige
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Leere zeilen ausblenden
Andreas

Hallo Forum,
mit folgendem Code lasse ich Zeile auf Inhalt prüfen und ggf. ausblenden:
Private Sub Worksheet_Activate() Dim rng As Range For Each rng In Range("A30:A47") rng.EntireRow.Hidden = rng.Value = "" Next End Sub
Bei diesem Vorgang flackert aber das Dokument einige Sekund...
03.07.2009 14:06:44
Thread-ID: 1086237
6 Beiträge
Spalten in neues Tabellenblatt kopieren
Doreen

Ich arbeite seit langem mal wieder mit Excel und hab alles vergessen :-(
Ich habe ein Tabellenblatt in dem ich alle meine Informationen pflege. Einfach verschiedene Daten (z.B. Liefertage, Lieferdateinname, Land, etc.) in Spalten runter geschrieben, ohne Bezüge - nichts, einfach nur ne Lis...
22.07.2009 11:53:21
Thread-ID: 1090482
2 Beiträge
Makro für Kopiern eine Spalte links davon einfügen
einfügen

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich möchte die Werte die ich markiert habe (die Markierung ist jedes mal anders) kopieren und eine Spalte links davon als "Werte und Zahlenformate" einfügen. Die Markierung besteht vor Ausführung des Makros. Wie bring...
28.07.2009 15:51:06
Thread-ID: 1091972
5 Beiträge
Pivottabelle Spalten berechnen
karsten

Hallo Zusammen,
ich habe folg.Frage.:
Ich habe eine Tabelle mit 2 Spalten.
1.Spalte: DATUM
2.Spalte: CODE
DATUM CODE
01.01.2009 A
08.02.2009 M
23.02.2009 C
09.08.2009 F
Wie kann ich in einer Pivottabelle die Datumsangaben bereits in Monaten eingeteilt dar...
23.09.2009 11:15:14
Thread-ID: 1104846
10 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
8
5
6
2
1
5
1
4
9
4
2
8
7
8
5
6
2
6
4
2
7
4
2
5