Thema Datum  Von Nutzer Rating
Antwort
09.06.2008 09:35:29 g0nZooHH
NotSolved
Blau Aw:Tablle senktrecht in Tabelle waagerecht überfüh
 09.06.2008 16:56:50 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
09.06.2008 16:56:50		 Views:
1074		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Tablle senktrecht in Tabelle waagerecht überfüh
Hallo g0nZooHH,
verstehe ich dich richtig, dass du eine Tabelle der Form
A B
n1 i1
- i2
- i3
n2 i4
n3 i5
- i6
...
in
A B C ....
n1 n2 n3 ....
i1 i4 i5
i2 i6
i3

überführen willst?

Ich lege in meinem Beispiel ein neues Tabellenblatt an und benenne es nach dem bisherigen, dem ich die Endung "_alt" zufüge. So kannst du die Umsortierung kontrollieren.

Sub Transponieren_spezial()
Alt = ActiveSheet.Name
ActiveSheet.Name = Alt + "_alt"
Set NewSheet = Worksheets.Add
ActiveSheet.Name = Alt
neu = Alt
Alt = Alt + "_alt"
Sheets(Alt).Activate
a = Range(Cells(Rows.Count, 2), Cells(Rows.Count, 2)).End(xlUp).Row
n = 0
For i = 1 To a
If Cells(i, 1) <> "" Then
n = n + 1
m = 1
Sheets(neu).Cells(m, n) = Cells(i, 1)
m = m + 1
Sheets(neu).Cells(m, n) = Cells(i, 2)
Else
m = m + 1
Sheets(neu).Cells(m, n) = Cells(i, 2)
End If
Next i
Sheets(neu).Activate
End Sub

Gruß
Holger




g0nZooHH schrieb am 09.06.2008 09:35:29:

Ich habe folgendes Problem
Ich möchte eine senkrechte Tabelle in eine Waagerechte Tabelle überführen.
Soweit so gut Tabelle1 besteht aus SpalteA und SpalteB die Informationen beinhalten, wobei SpalteA Namen stehen und SpalteB Informationen.
Ich möchte aber nur bestimmte Informationen aus SpalteB kopieren bis, in SpalteA ein Schlüsselwort kommt.

Rohdaten

[IMG]http://mr-happy.de/grafiken/pic1.gif[/IMG]


Zieldaten

[IMG]http://mr-happy.de/grafiken/pic2.gif[/IMG]

Also Anfasspunkte sind Name und Eigenschaft als Schlüsselwörter.
Danach muss er in SpalteB solange kopieren,
bis er in SpalteA etwas findet.

Er soll also immer erst SpalteA, der zu kopierenden Zelle prüfen, ob Name
drin steht, erst dann kopiert er die ZelleB. Undzwar nur solange kopieren, bis er irgendwas in SpalteA steht.(was genau ist unwichtig).

Das ist Casus Knacktus wie der Lateiner bemerkt.

Diese Aufgabe übersteigt meine Fähigkeiten ein [B]P[/B]aar Lichtjahre, leider.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.06.2008 09:35:29 g0nZooHH
NotSolved
Blau Aw:Tablle senktrecht in Tabelle waagerecht überfüh
 09.06.2008 16:56:50 Holger
NotSolved