Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen in gleichmäßigem Abstand kopieren

Zellen in gleichmäßigem Abstand kopieren
10.01.2008 10:17:00
nudgens
Hallo liebe Herber-Freunde! =)
Ich habe eine (für mich knifflige) Frage an euch und hoffe, dass ihr mir - wie schon einmal - helfen könnt.
Ich habe zwei Arbeitsblätter in einer Excel-Datei. Auf dem ersten Tabellenblatt stehen untereinander - aber mit gleichmäßigem Abstand immer wieder Summen. Diese Summen möchte ich als Werte direkt untereinander auf das zweite Tabellenblatt kopieren, aber ohne alles händisch zu machen, weil das zu lange dauern würde. Wie kriege ich das hin?
Beispiel:
Aus Tabellenblatt 1 sollen die Zellen G15, G29, G43 usw. (also immer im Abstand von 14 Zellen) auf Tabellenblatt 2 in die Zellen A1, A2, A3 usw. kopiert werden...
Vielen Dank schonmal für eure Antworten!
Nadin

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen in gleichmäßigem Abstand kopieren
10.01.2008 10:35:21
Harry
Hallo Nadin!
Befinden sich in Spalte G noch andere Werte außer den Summen oder sind die restlichen Zellen leer?

AW: Zellen in gleichmäßigem Abstand kopieren
10.01.2008 11:04:00
nudgens

Befinden sich in Spalte G noch andere Werte außer den Summen oder sind die restlichen Zellen  _
leer?


Hallo Harry,
die anderen Spalten sind teils leer, teils mit Zahlen bestückt.
Grüße
Nadin

Anzeige
AW: Zellen in gleichmäßigem Abstand kopieren
10.01.2008 10:40:58
Harry
Wenn die Zeilen dazwischen leer sind, dann kannst Du sie mit folgendem Code am Blatt 2 zusammenfassen:

Sub SummenSammeln()
For zeile = 1 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row
If Tabelle1.Cells(zeile, 7).Value  0 Then
zielZeile = zielZeile + 1
Tabelle2.Cells(zielZeile, 1) = Tabelle1.Cells(zeile, 7).Value
End If
Next
End Sub


Anzeige
AW: Zellen in gleichmäßigem Abstand kopieren
10.01.2008 11:05:00
nudgens
Leider geht das nicht, da die Zellen nicht leer sind.

AW: Zellen in gleichmäßigem Abstand kopieren
10.01.2008 11:56:46
Harry
Okay, in diesem Fall schaut das Skript ein bisschen anders aus:

Sub SummenSammeln()
For zeile = 1 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row step 14
zielZeile = zielZeile + 1
Tabelle2.Cells(zielZeile, 1) = Tabelle1.Cells(zeile, 7).Value
Next
End Sub


Bei der For-Anweisung tausche die "1" gegen die Zeilennummer mit Deiner ersten Summe aus. Sollte dann wie gewünscht klappen.

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Zellen in gleichmäßigem Abstand kopieren


Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei mit den zwei Arbeitsblättern.

  2. Gehe zum ersten Tabellenblatt, wo sich die Summen befinden.

  3. Öffne den VBA-Editor mit ALT + F11.

  4. Füge ein neues Modul hinzu über Einfügen > Modul.

  5. Kopiere den folgenden VBA-Code in das Modul:

    Sub SummenSammeln()
        Dim zielZeile As Integer
        For zeile = 15 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row Step 14
            zielZeile = zielZeile + 1
            Tabelle2.Cells(zielZeile, 1) = Tabelle1.Cells(zeile, 7).Value
        Next
    End Sub
  6. Passe die Startzeile an (hier ist es 15, entsprechend der ersten Summe).

  7. Schließe den VBA-Editor und kehre zu Excel zurück.

  8. Führe das Makro aus über Entwicklertools > Makros > SummenSammeln.

Diese Schritte ermöglichen es dir, die Summen in gleichmäßigem Abstand zu kopieren.


Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Lösung: Überprüfe, ob die Namen der Tabellenblätter korrekt sind (z.B. Tabelle1 und Tabelle2).
  • Fehler: Zellen werden nicht korrekt kopiert

    • Lösung: Stelle sicher, dass der Step-Wert im For-Loop auf 14 gesetzt ist, um den Abstand von 14 Zellen zu berücksichtigen.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch die Funktion INDIREKT nutzen, um die Zellen in gleichmäßigem Abstand zu referenzieren:

  1. Gehe zum Zielarbeitsblatt.

  2. Gib in Zelle A1 folgende Formel ein:

    =INDIREKT("Tabelle1!G" & (ROW()-1)*14 + 15)
  3. Ziehen die Formel nach unten, um die anderen Zellen zu füllen.

Diese Methode ist jedoch weniger flexibel und kann bei großen Datenmengen schwieriger zu verwalten sein.


Praktische Beispiele

Angenommen, du hast in Tabelle1 folgende Summen in Spalte G:

  • G15: 100
  • G29: 200
  • G43: 300

Nach dem Ausführen des Makros werden diese Werte in Tabelle2 in den Zellen A1, A2 und A3 erscheinen:

  • A1: 100
  • A2: 200
  • A3: 300

Wenn du die Methode mit der INDIREKT-Funktion verwendest, wird das gleiche Ergebnis erzielt, wenn du die Formel korrekt anwendest.


Tipps für Profis

  • Verwende absolute Zellreferenzen in deinem VBA-Code, um sicherzustellen, dass der Code immer funktioniert, selbst wenn sich das Layout ändert.
  • Teste den Code zuerst an einer Kopie deiner Excel-Datei, um unerwünschte Änderungen zu vermeiden.
  • Nutze die Formatierungsoptionen in Excel, um den Abstand zwischen den Zellen visuell zu verbessern, z.B. durch das Anpassen der Zeilenhöhe.

FAQ: Häufige Fragen

1. Wie kann ich die Zellen in einer anderen Spalte kopieren?
Du kannst die Spaltenreferenz im VBA-Code ändern. Ersetze 7 (für Spalte G) durch die entsprechende Zahl.

2. Funktioniert das auch in Excel Online?
Leider unterstützen VBA-Makros nicht Excel Online. Du kannst die Lösung nur in der Desktop-Version nutzen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige