Thema Datum  Von Nutzer Rating
Antwort
08.12.2015 19:50:03 Vossy
NotSolved
09.12.2015 12:46:50 Gast85196
NotSolved
09.12.2015 19:31:15 Vossy
NotSolved
Blau senkrecht angeordnete Datensätze neu sortieren
10.12.2015 19:03:45 Gast25477
Solved
10.12.2015 19:33:28 Vossy
Solved

Ansicht des Beitrags:
Von:
Gast25477		 Datum:
10.12.2015 19:03:45		 Views:
1058		 Rating:
     
Antwort:
 Nein
Thema:
senkrecht angeordnete Datensätze neu sortieren

Hallo! Also wenn die Daten stehen in Spalte 1 ab Zeile2 und sollen dann ab Spalte E in Zeile 2 beginnend eingetragen werden. So klappt es. Gruß

Sub umordnen()
Dim werte()
Dim i As Integer
Dim a As Integer
Dim ende As Long


ReDim werte(0)
werte(0) = 0

ende = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

If ende > 1 Then
    For i = 2 To ende
        werte(0) = werte(0) + 1
        ReDim Preserve werte(werte(0))
         werte(werte(0)) = Cells(i, 1)
    Next i
End If

If werte(0) > 0 Then
    For i = 1 To Int(werte(0) / 4)
        Cells(i + 1, 5) = werte(4 * (i - 1) + 1)
        Cells(i + 1, 6) = werte(4 * (i - 1) + 2)
        Cells(i + 1, 7) = werte(4 * (i - 1) + 3)
        Cells(i + 1, 8) = werte(4 * (i - 1) + 4)
    Next i
End If

If werte(0) - Int(werte(0) / 4) > 0 Then
    For a = 1 To werte(0) - Int(werte(0) / 4) * 4
        Cells(i + 1, 4 + a) = werte(4 * (i - 1) + a)
    Next a
End If

End Sub

 

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
08.12.2015 19:50:03 Vossy
NotSolved
09.12.2015 12:46:50 Gast85196
NotSolved
09.12.2015 19:31:15 Vossy
NotSolved
Blau senkrecht angeordnete Datensätze neu sortieren
10.12.2015 19:03:45 Gast25477
Solved
10.12.2015 19:33:28 Vossy
Solved