Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Jeden x-ten eintrag in neue spalte kopieren

Forumthread: Jeden x-ten eintrag in neue spalte kopieren

Jeden x-ten eintrag in neue spalte kopieren
12.04.2003 19:55:03
Stefan
Hi,
ich will aus einer spalte mit 10000 einträgen nur jedes 12 oder jedes 5 in eine neue zeile kopieren.Und in der Spalte in der die Lösungsmenge steht solln dabei keine zellen dazwischen frei bleiben.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Jeden x-ten eintrag in neue spalte kopieren
12.04.2003 19:59:23
Forum
Re: Jeden x-ten eintrag in neue spalte kopieren
12.04.2003 20:03:17
ChrisL
Hallo Stefan

Hier noch eine Makrolösung...

Dim i As Long

For i = 1 To Range("A65536").End(xlUp).Row Step 12
Sheets(2).Cells(Sheets(2).Range("A65536").End(xlUp).Row + 1, 1) = Cells(i, 1)
Next i

Gruss
Chris

Anzeige
Anzeige

Infobox / Tutorial

Jeden x-ten Eintrag in Excel Kopieren


Schritt-für-Schritt-Anleitung

Um in Excel jeden x-ten Wert in eine neue Spalte zu kopieren, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen. Diese Methode funktioniert in Excel 2016 und späteren Versionen.

  1. Öffne Deine Excel-Datei mit den Daten, die Du bearbeiten möchtest.

  2. Gehe zu einer neuen Spalte (z. B. Spalte B), in die Du die ausgewählten Einträge kopieren möchtest.

  3. Gib die folgende Formel in die erste Zelle der neuen Spalte ein (angenommen, Deine Werte stehen in Spalte A):

    Für jeden 5. Wert:

    =WENN(MOD(ZEILE(A1)-1;5)=0;A1;"")

    Für jeden 12. Wert:

    =WENN(MOD(ZEILE(A1)-1;12)=0;A1;"")
  4. Ziehe die Formel nach unten, um sie auf die gesamte Spalte anzuwenden.

  5. Kopiere die neuen Werte und füge sie an einer anderen Stelle ein, um die leeren Zellen zu entfernen. Dafür kannst Du die Funktion „Inhalte einfügen“ und dann „Werte“ auswählen.


Häufige Fehler und Lösungen

  • Fehler: Es erscheinen leere Zellen in der neuen Spalte.

    • Lösung: Stelle sicher, dass Du die richtige Formel verwendest und die Zellen nach dem Ziehen der Formel kopierst und als Werte einfügst.
  • Fehler: Die Formel funktioniert nicht bei großen Datenmengen.

    • Lösung: Überprüfe, ob die Daten in Spalte A korrekt sind und keine leeren Zellen enthalten. Bei sehr großen Datenmengen kann ein Makro effektiver sein.

Alternative Methoden

Eine Makrolösung kann ebenfalls verwendet werden, um jeden x-ten Wert zu kopieren. Hier ist ein einfaches VBA-Skript:

Sub JedenXtenWertKopieren()
    Dim i As Long
    Dim ZielZeile As Long
    ZielZeile = 1

    For i = 1 To Range("A65536").End(xlUp).Row Step 12
        Sheets(2).Cells(ZielZeile, 1).Value = Cells(i, 1).Value
        ZielZeile = ZielZeile + 1
    Next i
End Sub

Dieses Makro kopiert jeden 12. Wert von Spalte A in eine neue Spalte in einem anderen Blatt.


Praktische Beispiele

Angenommen, Du hast folgende Werte in Spalte A:

A
Wert 1
Wert 2
Wert 3
Wert 4
Wert 5
Wert 6
Wert 7
Wert 8
Wert 9
Wert 10
Wert 11
Wert 12

Wenn Du die Formel für jeden 3. Wert anwendest, wird Spalte B so aussehen:

B
Wert 3
Wert 6
Wert 9
Wert 12

Tipps für Profis

  • Nutze die FILTER-Funktion (verfügbar in Excel 365), um die Daten dynamisch zu filtern und nur die gewünschten Werte anzuzeigen.
  • Experimentiere mit den INDEX- und VERGLEICH-Funktionen, um komplexere Anforderungen zu erfüllen.
  • Speichere Deine Makros, um sie in anderen Projekten einfach wiederverwenden zu können.

FAQ: Häufige Fragen

1. Wie kann ich jeden 10. Wert in Excel nehmen? Du kannst die MOD-Funktion in Kombination mit der ZEILE-Funktion verwenden, um jeden 10. Wert zu extrahieren.

2. Was ist der Unterschied zwischen einer Formel und einem Makro? Eine Formel wird in einer Zelle eingegeben und berechnet Werte dynamisch, während ein Makro ein Skript ist, das eine Reihe von Anweisungen ausführt, um Aufgaben zu automatisieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige