Microsoft Excel

Herbers Excel/VBA-Archiv

Werte aus einer Zeile in Spalten transferieren

Betrifft: Werte aus einer Zeile in Spalten transferieren von: Sebastian
Geschrieben am: 16.09.2004 14:06:01

Hallo liebe Problemlöser ...

Folgende Beispiel-Datei
https://www.herber.de/bbs/user/10962.xls

Problem:
Ich habe Adressen in einer Zeile und dahinter verschiedene Werte zugeordnet.
Zum Ausdrucken ist dies aber viel zu breit. Wie schaffe ich es, die Werte (waagerecht) jeweils automatisch senkreckt in eine Spalte zu bekommen. Das muss doch mit 'ner kleinen VBA-Anweisung schnell gemacht sein. ODER ???

Danke für Eure Hilfe.
Sebastian

  


Betrifft: AW: Werte aus einer Zeile in Spalten transferieren von: harry
Geschrieben am: 16.09.2004 14:09:27

hi,
geht ohne vba viel einfacher:
kopieren-inhalte einfügen-transponieren

liebe grüße,
harry


  


Betrifft: AW: Werte aus einer Zeile in Spalten transferieren von: Sebastian
Geschrieben am: 16.09.2004 14:17:22

Hallo Harry,

danke erstmal ... :-)
wie bekommen ich es aber bei 3.000 Adressen, die untereinander stehen hin,
das er mir genau so viele Leerzeilen (pro Adresse) macht, wie Werte senkrecht stehen?
Es sind ja Werte von 0 - 10, die jetzt momentan noch hintereinander stehen.

Vielen Dank.
Sebastian


  


Betrifft: AW: Werte aus einer Zeile in Spalten transferieren von: Reinhard
Geschrieben am: 16.09.2004 14:31:47

Hi Sebastian,
Sub tt()
With Worksheets("Tabelle1")
    zei = 2
    While .Cells(zei, 1) <> ""
        von = 9
        bis = .Cells(zei, 256).End(xlToLeft).Column
        pos = zei
        For n = von + 1 To bis
            zei = zei + 1
            .Cells(zei, 1).EntireRow.Insert
            .Cells(zei, 9) = .Cells(pos, n)
            .Cells(pos, n).ClearContents
        Next n
        zei = zei + 1
    Wend
End With
End Sub

Gruß
Reinhard


  


Betrifft: AW: Werte aus einer Zeile in Spalten transferieren von: Sebastian
Geschrieben am: 16.09.2004 16:07:11

Hallo Reinhard,

spitze ... vielen Dank für Deine Hilfe.
Klappt wie am Schnürchen :-)


Bis zum nächsten Mal
Sebastian


 

Beiträge aus den Excel-Beispielen zum Thema "Werte aus einer Zeile in Spalten transferieren"