Thema Datum  Von Nutzer Rating
Antwort
18.06.2018 13:46:59 don
NotSolved
19.06.2018 11:50:35 Andreas
NotSolved
19.06.2018 16:02:22 Gast31563
NotSolved
19.06.2018 16:43:09 Gast89245
NotSolved
19.06.2018 17:04:23 Gast89245
NotSolved
19.06.2018 17:37:37 Gast89245
NotSolved
Rot kl. Fehler ausgemerzt
 19.06.2018 17:45:14 Gast89245
NotSolved
20.06.2018 00:19:37 Gast54445
NotSolved
19.06.2018 23:37:27 Gast67655
NotSolved

Ansicht des Beitrags:
Von:
Gast89245		 Datum:
19.06.2018 17:45:14		 Views:
517		 Rating:
     
Antwort:
  Ja
Thema:
kl. Fehler ausgemerzt

Kleine Ergänzung zwischen den zwei Schleifen. Der letzte Zyklus wurde ggf. unterschlagen - Jetzt nicht mehr. ;)

Option Explicit

Public Sub Beispiel()
  
  Dim colZ As VBA.Collection
  Dim rngList As Excel.Range
  Dim i As Long, j As Long
  Dim t As Boolean
  
  Set colZ = New VBA.Collection
  
  With Worksheets("Tabelle1")
    
    Set rngList = .Range(.Range("S1"), .Range("S1").End(xlDown))
    
    j = 1
    t = rngList(1) <= rngList(2)
    For i = 1 To rngList.Count - 1
      If t Xor rngList(i) <= rngList(i + 1) Then
        Call colZ.Add(.Range(rngList(j), rngList(i)))
        t = Not t
        j = i
      End If
    Next
    
    If i > j Then
      Call colZ.Add(.Range(rngList(j), rngList(i)))
    End If
    
    'Ausgabe: Beispiel
    For i = 1 To colZ.Count
      'ab Zelle U1 nebeneinander
      .Range("U1").Offset(, i - 1).Value = "Zyklus " & i
      .Range("U2").Offset(, i - 1).Resize(colZ(i).Rows.Count).Value = colZ(i).Value
    Next
    
  End With
  
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
18.06.2018 13:46:59 don
NotSolved
19.06.2018 11:50:35 Andreas
NotSolved
19.06.2018 16:02:22 Gast31563
NotSolved
19.06.2018 16:43:09 Gast89245
NotSolved
19.06.2018 17:04:23 Gast89245
NotSolved
19.06.2018 17:37:37 Gast89245
NotSolved
Rot kl. Fehler ausgemerzt
 19.06.2018 17:45:14 Gast89245
NotSolved
20.06.2018 00:19:37 Gast54445
NotSolved
19.06.2018 23:37:27 Gast67655
NotSolved