Thema Datum  Von Nutzer Rating
Antwort
08.04.2021 01:14:42 Maxem
NotSolved
08.04.2021 07:56:33 ralf_b
NotSolved
Rot update
 08.04.2021 12:08:48 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
08.04.2021 12:08:48		 Views:
184		 Rating:
     
Antwort:
  Ja
Thema:
update		 

Hier mal eine vollständige Version für dein Vorhaben. Vorrausetzung du hast den ersten Wert als aktive Zelle markiert
Mangels Beispieldaten ist das ungetestet. 

Sub umsortieren()

    Dim rngA As Range
    Dim arrtmp, i As Long, cnt As Long
    
    Set rngA = ActiveCell
    arrtmp = rngA.CurrentRegion          'Bereich um AktiveZelle in Array speichern
    
    rngA.CurrentRegion.Clear            'Bereich löschen
    cnt = rngA.Row
    For i = LBound(arrtmp) To UBound(arrtmp)  'Schleife über die Arraywerte
      
       If arrtmp(i, 1) <> "" Then      'Wenn Element nicht leer, dann Werte untereinander
            rngA.Offset(cnt, 1).Value = arrtmp(i, 1)
            cnt = cnt + 1
       Else                             'sonst eine Spalte nach rechts
            Set rngA = rngA.Offset(, 1)
            cnt = rngA.Row
       End If
         
    Next

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.04.2021 01:14:42 Maxem
NotSolved
08.04.2021 07:56:33 ralf_b
NotSolved
Rot update
 08.04.2021 12:08:48 ralf_b
NotSolved