Thema Datum  Von Nutzer Rating
Antwort
05.12.2012 18:56:58 chantalle
NotSolved
Blau Makro für Transponieren von Spalten in Zeilen
 06.12.2012 12:10:42 Lutz
NotSolved

Ansicht des Beitrags:
Von:
Lutz		 Datum:
06.12.2012 12:10:42		 Views:
1869		 Rating:
     
Antwort:
  Ja
Thema:
Makro für Transponieren von Spalten in Zeilen

Hallo Chantalle,

dieser Code sollte das können:

Public Sub ZeilenZuSpalten()
    Dim rgz As Range
    Dim sh As Worksheet
    Dim idx As Integer, sidx As Integer, ins As Integer
    idx = 1
    Set sh = ActiveSheet
    While idx <= Range("A1").End(xlDown).Row
        Set rgz = Range(Cells(idx, 1), Cells(idx, Range("A" & idx).End(xlToRight).Column))
        If IsNumeric(rgz.Cells(1).Value) Then
            ins = rgz.Columns.Count - 2
            sh.Rows(idx + 1 & ":" & idx + ins).Select
            Selection.Insert
            For sidx = 3 To rgz.Columns.Count
                rgz.Cells(sidx).Select
                Selection.Cut Destination:=Range("B" & idx + sidx - 2)
                Range("A" & idx + sidx - 2).Value = rgz.Cells(1).Value
            Next sidx
            idx = idx + ins
        Else
            rgz.Cells(2).Value = "Route"
            rgz.Cells(3).Value = ""
            rgz.Cells(4).Value = ""
        End If
        idx = idx + 1
    Wend
End Sub

Grüße Lutz

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
05.12.2012 18:56:58 chantalle
NotSolved
Blau Makro für Transponieren von Spalten in Zeilen
 06.12.2012 12:10:42 Lutz
NotSolved