Beim Kopieren leere Zellen auslassen.

Forumthread: Beim Kopieren leere Zellen auslassen.

04.10.2004 21:46:03

Sabine

Guten Abend Excelspezialisten,
ich habe hier im Forum ein kleines Makro gefunden mit dem ich einen Bereich Kopieren kann, um ihn an anderer Stelle wieder einzufügen.


Sub Zahlenreihe()
Range("C20:C31").Select
Selection.Copy
Range("F10").Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("F10").Select
End Sub

Dort werden die Werte aber ohne Lehrzellen zwischen zwei Werten eingefügt.
Also in etwa so:
a a
b b
f f
- g
g h
-
h
Genau so etwas brauche ich im Prinzip. Nur das der Bereich der kopiert werden soll, keine Leerzellen im eigentlichen Sinne enthält, sondern Formeln die eben auch den Wert "" ausgeben können.
Läßt sich der Code evtl. so anpassen, das Zellen die den WERT "" ausgeben, wie Zellen behandelt werden die tatsächlich leer sind.
Für jede Hilfe im Vorraus herzlichen Dank
MfG
Sabine

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Beim Kopieren leere Zellen auslassen.

EtoPHG
AW: Beim Kopieren leere Zellen auslassen.

05.10.2004 23:25:11

Sabine

AW: Beim Kopieren leere Zellen auslassen.

EtoPHG

Hallo Sabine,
Vielleicht so ?


Sub Zahlenreihe()
Dim ix As Integer
Range("C20:C31").Select
Selection.Copy
Range("F10").Select
ActiveSheet.Paste
For ix = 10 To 21
If Cells(ix, 6).Value = "" Then
Cells(ix, 6).Select
Selection.Delete Shift:=xlUp
End If
Next ix
End Sub

Gruss Hansueli

AW: Beim Kopieren leere Zellen auslassen.

05.10.2004 23:25:11

Sabine

Hallo Hansueli,
vielen Dank für Deine Mühe. Ich hatte leider gerade erst wieder Gelegenheit ins Forum zu gehen.
Inswischen ist mir eine völlig andere Strategie für die Lösung meines Problems eingefallen. Ich bin aber trotzdem sehr neugierig auf Dein Makro und werde es gleich mal ausprobieren.
Nochmals herzlichen Dank und liebe Grüße
Sabine

Infobox / Tutorial

Leere Zellen beim Kopieren in Excel überspringen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel Zellen zu kopieren und dabei leere Zellen oder Zellen mit dem Wert "" (leere Formeln) zu überspringen, kannst du das folgende VBA-Makro verwenden:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code ein:

Sub Zahlenreihe()
    Dim ix As Integer
    Range("C20:C31").Select
    Selection.Copy
    Range("F10").Select
    ActiveSheet.Paste
    For ix = 10 To 21
        If Cells(ix, 6).Value = "" Then
            Cells(ix, 6).Select
            Selection.Delete Shift:=xlUp
        End If
    Next ix
End Sub

Schließe den VBA-Editor und führe das Makro aus, um die Daten ohne leere Zellen in den Zielbereich einzufügen.

Häufige Fehler und Lösungen

Problem: Das Makro löscht nicht die richtigen Zellen.
- Lösung: Stelle sicher, dass der Zielbereich (z.B. F10:F21) korrekt definiert ist und die Schleife den richtigen Bereich abdeckt.
Problem: Das Kopieren funktioniert nicht wie gewünscht.
- Lösung: Überprüfe, ob die Zellen in dem kopierten Bereich tatsächlich leer sind oder nur leere Werte zurückgeben.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du die folgenden Schritte ausführen, um leere Zellen beim Kopieren zu überspringen:

Markiere den Bereich, den du kopieren möchtest.
Gehe zu Start > Suchen & Auswählen > Gehe zu Spezial.
Wähle Formeln und aktiviere die Option Leer.
Klicke auf OK, um nur die leeren Zellen auszuwählen.
Lösche die Auswahl und kopiere den Bereich erneut. Dies ermöglicht es, das Kopieren ohne leere Zellen durchzuführen.

Praktische Beispiele

Beispiel 1: Wenn du eine Liste von Namen in der Spalte C hast und einige Zellen leer sind, kannst du die oben beschriebenen Methoden verwenden, um diese Namen in eine andere Spalte ohne Leerzeilen zu kopieren.
Beispiel 2: Du kannst auch eine ganze Spalte kopieren und dabei alle leeren Zellen überspringen, indem du den Bereich entsprechend anpasst, z.B. Range("A:A").Select.

Tipps für Profis

Nutze die Funktion SpecialCells in VBA, um leere Zellen gezielt auszuwählen und zu löschen. Dies kann den Code effizienter machen:

Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Wenn du regelmäßig mit leeren Zellen arbeitest, solltest du überlegen, ein Add-In zu erstellen, das diese Funktionalität automatisiert.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Bereiche ohne leere Zellen kopieren? Du kannst mehrere Bereiche nacheinander kopieren und dann die oben genannten Methoden verwenden, um die leeren Zellen zu entfernen.

2. Funktioniert das Makro in allen Excel-Versionen? Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren. Stelle sicher, dass du die Makros aktiviert hast, um es ausführen zu können.

Beliebteste Forumthreads (12 Monate)

Beim Kopieren leere Zellen auslassen.

Forumthread: Beim Kopieren leere Zellen auslassen.

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Leere Zellen beim Kopieren in Excel überspringen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread