Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilenmerkmale in Spalten umwandeln

Zeilenmerkmale in Spalten umwandeln
17.08.2008 18:31:50
MG_Learning
Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18 Kinos
Paris 63 Gaststätten
Paris 9 Einkaufszentren
folgende machen kann:
A B C D
Stadt Kinos Gaststätten Einkaufszentren
London 20 50 10
Paris 18 63 9
Könntet ihr mir bitte helfen! Per Hand 3500 Zeilen so umzuschreiben - ich mag gar nicht dran denken!
Danke
Monty

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenmerkmale in Spalten umwandeln
17.08.2008 19:21:00
Peter
Hallo Monty,
so sollte es gehen:
Option Explicit

Public Sub Konzentrieren()
Dim WkSh_Q    As Worksheet
Dim WkSh_Z    As Worksheet
Dim lZeile_Q  As Long
Dim lZeile_Z  As Long
Dim sGruppe   As String
Application.ScreenUpdating = False
Set WkSh_Q = Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen !!!
Set WkSh_Z = Worksheets("Tabelle2") ' den Tabellenblattnamen ggf. anpassen !!!
lZeile_Z = 1
For lZeile_Q = 1 To WkSh_Q.Cells(Rows.Count, 1).End(xlUp).Row
If sGruppe = "" Then
GoSub Gruppenbegriff_einstellen
End If
If sGruppe = Trim(WkSh_Q.Cells(lZeile_Q, 1).Value) Then
GoSub Daten_uebernehmen
Else
GoSub Gruppenbegriff_einstellen
GoSub Daten_uebernehmen
End If
Next lZeile_Q
Application.ScreenUpdating = True
Exit Sub
Daten_uebernehmen:
Select Case Trim(WkSh_Q.Cells(lZeile_Q, 3).Value)
Case "Kinos"
WkSh_Z.Cells(lZeile_Z, 2).Value = WkSh_Q.Cells(lZeile_Q, 2).Value
Case "Gaststätten"
WkSh_Z.Cells(lZeile_Z, 3).Value = WkSh_Q.Cells(lZeile_Q, 2).Value
Case "Einkaufscentren"
WkSh_Z.Cells(lZeile_Z, 4).Value = WkSh_Q.Cells(lZeile_Q, 2).Value
Case Else
WkSh_Z.Cells(lZeile_Z, 5).Value = WkSh_Q.Cells(lZeile_Q, 2).Value
End Select
Return
Gruppenbegriff_einstellen:
sGruppe = Trim(WkSh_Q.Cells(lZeile_Q, 1).Value)
lZeile_Z = lZeile_Z + 1
WkSh_Z.Cells(lZeile_Z, 1).Value = sGruppe
Return
End Sub


Gruß Peter

Anzeige
AW: Zeilenmerkmale in Spalten umwandeln
17.08.2008 21:52:00
MG_Learning
Vielen vielen Dank!
Funktioniert!
Gruß
Monty

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige