Schleife bauen

IchBins DerChris · 2024-04-11T12:22:41+00:00

Hallo zusammen, bräuchte mal Hilfe wie ich mit VBA, denke mit einer Schleife, eine Spalte in 2 oder 3 Spalten umwandeln kann. In der Grundspalte stehen Werte, die sollen nun von links nach rechts in 3 Spalten geschrieben werden. Also vorher: 1 2 3 4 5 6 Nachher: 1 2 3 4 5 6 Die Grunddaten in der ersten Spalte kann zwischen 1 und mehreren Hundert Werten enthalten. Leider sind die Schleifen für mich immer noch ein Buch mit 7 Siegeln. Wäre super wenn jemand hier einen Ansatz für mich hat. Gruß Chris

Wie Daniel schon beschreiben hat, geht es hier eigentlich um ein mathematisches Problem und hat weniger etwas mit Schleifen zu tun.

Du möchtest aus einem Index eine Zeile und eine Spalte berechnen. Direkt auf einen Bereich in Excel angewandt:



Option Explicit



Public Sub Test()

  

  Dim rngCell As Excel.Range

  Dim lngTargetRow As Long

  Dim lngTargetCol As Long

  

  With Worksheets("Tabelle1")

    With .Range("A1:A6") ' anpassen, z.B. "D4:D9"

      

      For Each rngCell In .Cells

        lngTargetRow = .Row + (rngCell.Row - .Row) Mod 3

        lngTargetCol = .Row + (rngCell.Row - .Row) \ 3

        

        Debug.Print rngCell.Address(False, False);

        Debug.Print " = [" & rngCell.Row & ","; rngCell.Column & "]";

        Debug.Print " := " & rngCell.Value; " -> ";

        Debug.Print "[" & lngTargetRow & ","; lngTargetCol & "]"

        

        Call rngCell.Cut(Destination:=.Worksheet.Cells(lngTargetRow, lngTargetCol))

        

      Next

    End With

  End With

  

End Sub

Grüße

» Zum einen werden die jetzt erst untereinander gesetzt und dann in die 2. Spalte. Eigentlich sollten es 3 Spalten werden bei den die ersten 3 Werte von links nach recht in die Spalten geschrieben werden

Einfach die Variablen miteinander tauschen - beschäftige dich bitte mit der Berechnung und warum das so funktioniert.

» und kann ich das "With .Range("A1:A6")" auch auf alle Zellen in der Spalte die Inhalt haben setzen? Können nur 6 oder 8 sein, aber eben auch 150.

Da solltest du dich mal hier im Forum umsehen. Diese Frage kommt gefühlt jeden Tag aufs Neue. (in Kürze: Range.End(xlUp) ansehen; hab es im Code angepasst)

» Und das Ziel müsste dann noch ein anderes Tabellenblatt sein.

Hier gibt es grundsätzliche verschiedene Wege das zu erreichen; Ausschneiden/Kopieren mit oder ohne Formatierung, das ist alles auf unterscheidliche Weise umsetzbar.
Wenn du einfach nur den Wert übertragen willst, dann z.B. so



Worksheets("AndereTabelle").Cells(lngTargetRow, lngTargetCol).Value = rngCell.Value

Hier der angepasste Code:



Option Explicit



Public Sub Test()

  

  Dim rngCell As Excel.Range

  Dim lngTargetRowOffset As Long

  Dim lngTargetColOffset As Long

  Dim lngColumns As Long

    

  lngColumns = 3

  

  With Worksheets("Tabelle1")

    With .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))

      

      For Each rngCell In .Cells

        lngTargetColOffset = (rngCell.Row - .Row) Mod lngColumns

        lngTargetRowOffset = (rngCell.Row - .Row) \ lngColumns

        

        Debug.Print rngCell.Address(False, False);

        Debug.Print " = [" & rngCell.Row & ","; rngCell.Column & "]";

        Debug.Print " := " & rngCell.Value; " -> ";

        Debug.Print "[R+" & lngTargetRowOffset & ", C+"; lngTargetColOffset & "]"

        

        Worksheets("AndereTabelle") _

          .Range("B2") _

          .Offset(lngTargetRowOffset, lngTargetColOffset) _

          .Value = rngCell.Value

        

      Next

    End With

  End With

  

End Sub

Hinweise:
* Während des Kopiervorgangs sollte Aktualisierung der UI deaktiviert sein - siehe Application.ScreenUpdating.
* Falls irgendwann Performance eine Rolle spielen sollte, empfiehlt sich - wie von Daniel gezeigt - die Transformation im Speicher durchzuführen und dessen Resultat ins Tabellenblatt zu schreiben.
* Die Debug-Zeilen kannst du gerne auskommentieren bzw. entfernen.

Ich würde mich hiermit aus dem Thema ausklinken. Für mich ist es erledigt.

Grüße

Forumthread: Schleife bauen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Schleife bauen

Forumthread: Schleife bauen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread