Microsoft Excel

Herbers Excel/VBA-Archiv

Daten von Spalte in Zeile übertragen

Betrifft: Daten von Spalte in Zeile übertragen von: Tommy
Geschrieben am: 27.10.2020 13:21:44

Hallo


Vielleicht kann mir einer von Euch weiterhelfen...ich schaffe es aufgrund meines Unwissens nicht :(
Ich habe in einer Spalte Daten. Ich würde gerne via VBA für jeden Datenbereich eine Transformation auf ein neues Blatt in eine Zeile bekommen. Hat jemand ein Tip für mich? Ich wäre sehr dankbar.


Quasie von:

Data 1

Data 2

Data 3

Data 4

Data 5


Data 1

Data 2

Data 3

Data 4

Data 5


zu:


Data 1 Data 2 Data 3 Data 4 Data 5

Data 1 Data 2 Data 3 Data 4 Data 5

viele Grüße
Tommy

Betrifft: AW: Daten von Spalte in Zeile übertragen
von: Tommy
Geschrieben am: 27.10.2020 13:22:36

Ich vergaß zu erwähnen...jeder einzelne Datenblock ist getrennt durch eine leere Zelle..

Betrifft: AW: Daten von Spalte in Zeile übertragen
von: Rudi Maintaire
Geschrieben am: 27.10.2020 13:30:15

als anregung:
Sub Trans()
  Dim r As Range, z As Long, c As Long
  Application.ScreenUpdating = False
  z = 1: c = 2
  For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
    If r = "" Then
      z = z + 1: c = 2
    Else
      c = c + 1
      Cells(z, c) = r
    End If
  Next
End Sub

Gruß
Rudi

Betrifft: AW: Daten von Spalte in Zeile übertragen
von: Tommy
Geschrieben am: 27.10.2020 13:44:08

Vielen lieben Dank Rudi, das funktioniert auf Anhieb perfekt!!!!!!!!!!!!!!!!

Kann ich dich donaten?

Betrifft: AW: Daten von Spalte in Zeile übertragen
von: Tommy
Geschrieben am: 27.10.2020 15:11:48

Okay leider bin ich noch auf ein problem gestoßen...

aktuell bezieht sich dein VBA code auf eine Spalte.
Dass ist auch gut so, aber ist es möglich sich auf Spalte a zu beziehen und dann die daten aus spalte B in eine Reihe zu bringen?

von:

Data 1
Data 2
Data 3
Data 4
Data 5

Data 1
Data 2
Data 3
Data 4
Data 5

zu:

1 2 3 4 5
1 2 3 4 5

Betrifft: AW: Daten von Spalte in Zeile übertragen
von: Rudi Maintaire
Geschrieben am: 27.10.2020 15:18:27

Sub Trans()
    Dim r As Range, z As Long, c As Long
    Application.ScreenUpdating = False
    z = 1: c = 3
    For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
      If r = "" Then
        z = z + 1: c = 2
      Else
        c = c + 1
        Cells(z, c) = r.offset(,1)
      End If
    Next
  End Sub


Betrifft: AW: Daten von Spalte in Zeile übertragen
von: Tommy
Geschrieben am: 27.10.2020 17:38:32

krasse sch*** danke!!! - wie kann ich deine Hilfe unterstützen?

Beiträge aus dem Excel-Forum zum Thema "Daten von Spalte in Zeile übertragen"