Nur Zellen mit Inhalt Kopieren

Forumthread: Nur Zellen mit Inhalt Kopieren

17.03.2006 23:48:55

Mario

Hallo,
Wie kann ich nur Zellen eines Bereiches (3 Spalten, 10 Zeilen) kopieren, in den ein Text steht bzw. angezeigt wird.
Der Text wird dabei mit Formel übergeben (=WENN(ISTTEXT(A1);... ).
Die Werte sollen aber in der neuen Tabelle untereinnander stehen, also ohne Leerzeilen.
Danke im Voraus Mario

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Nur Zellen mit Text kopieren

18.03.2006 03:42:37

Luc:-?
Das geht doch aber einfacher...

18.03.2006 09:05:23

{Boris}
AW: Das geht doch aber einfacher...

18.03.2006 11:51:55

Mario
AW: Das geht doch aber einfacher...

20.03.2006 01:04:15

Uwe

AW: Nur Zellen mit Text kopieren

18.03.2006 03:42:37

Luc:-?

Hallo Mario,
bspw so:
Userbild

Gruß zum WE
Luc :-?

Das geht doch aber einfacher...

18.03.2006 09:05:23

{Boris}

Hi Luc,
in B2:
{=INDEX(A$2:A$16;KKLEINSTE(WENN(ISTTEXT(A$2:A$16);ZEILE($1:$15));ZEILE(A1)))}
Habe Deine Formel nicht ausprobiert, weil mir das Abtippen zu mühsam ist (aber sie wird schon funktionieren).
Aber ganz abgesehen davon stand in der Frage, dass die Werte in DREI Spalten stehen - und zudem bereits mit =WENN(ISTTEXT(E10);E10;"") dorthin übernommen werden.
Also muss ein anderer Ansatz her - nur dafür würde ich doch mal gerne den genauen Tabellenaufbau sehen.
Grüße Boris

AW: Das geht doch aber einfacher...

18.03.2006 11:51:55

Mario

Hallo, und Danke für Eure Antworten.
Ich suche eigendlich eine VBA-Lösung. Mit Formel könnte ich es natürlich auch lösen, werde ich warscheinlich auch tun müssen wenn ich über VBA keine Lösung finde.
Der Tabellenaufbau ist folgender (es handelt sich um ein Bestellformular):
In der Eingabemaske habe ich 3 Spalten (Menge, Material, Mat.-Nr.), nur wenn in der Spalte 'Menge' ein Wert steht wird diese Zeile im Bestellformular angezeigt, welches dann an den Lager-Drucker gesendet wird.
Seid diesem Monat müssen wir unsere Budgetkosten als Diagramm vorlegen. Dazu habe ich eine Datei angelegt, in der ich das Bestellte Material aufliste. Diese Daten möchte ich per VBA (mit meiner Taste 'Senden an Lager') gleichzeitig in meine Budget-Tabelle übergeben. Dabei dürfen aber keine Leerzeilen (wie sie z.Z. im Bestellformular auftauchen) übergeben werden.
Mario

AW: Das geht doch aber einfacher...

20.03.2006 01:04:15

Uwe

Hallo Mario,
wie Du an den bisherigen Antworten siehst, ist es nur von Vorteil, die Frage
präzise zu stellen. Wenn bei VBA Nein steht, versucht natürlich ein Antworter,
Dir eine VBA-freie Lösung zu bieten.
Du hättest auf jeden Fall darauf hinweisen müssen, dass Du eine VBA-Lösung bevorzugst!
Also hier mein Vorschlag(die Quelle steht in Tabelle2, das Ziel soll Tabelle3 sein):

' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub BestellungenUebertragen()
    Dim rngB As Range
    Dim rngCopy As Range
    Dim rngZeile As Range
    Set rngB = Worksheets("Tabelle2").Range("A1").CurrentRegion
    For Each rngZeile In rngB.Rows
        If Len(rngZeile.Cells(1).Text) Then
            If rngCopy Is Nothing Then
                Set rngCopy = rngZeile
            Else
                Set rngCopy = Application.Union(rngCopy, rngZeile)
            End If
        End If
    Next rngZeile
    rngCopy.Copy Worksheets("Tabelle3").Range("A1")
End Sub

Gruß Uwe

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um nur Zellen mit Inhalt zu kopieren und dabei Leerzeilen zu vermeiden, kannst du folgende Schritte ausführen:

Datenbereich auswählen: Markiere den Bereich, aus dem du die Zellen mit Inhalt kopieren möchtest (z.B. 3 Spalten und 10 Zeilen).
Formel zur Filterung nutzen: Du kannst eine Formel verwenden, um nur die Zellen mit Text zu erfassen. Eine geeignete Formel könnte so aussehen:
```
=WENN(ISTTEXT(A1);A1;"")
```
Daten in eine neue Tabelle kopieren: Füge die gefilterten Daten in eine neue Tabelle ein, wobei du darauf achtest, nur die Zellen mit Inhalt zu kopieren.

VBA-Lösung nutzen (optional): Wenn du VBA verwenden möchtest, kannst du das folgende Skript einsetzen, um nur die Zellen mit Inhalt zu kopieren:

Private Sub BestellungenUebertragen()
   Dim rngB As Range
   Dim rngCopy As Range
   Dim rngZeile As Range
   Set rngB = Worksheets("Tabelle2").Range("A1").CurrentRegion
   For Each rngZeile In rngB.Rows
       If Len(rngZeile.Cells(1).Text) > 0 Then
           If rngCopy Is Nothing Then
               Set rngCopy = rngZeile
           Else
               Set rngCopy = Application.Union(rngCopy, rngZeile)
           End If
       End If
   Next rngZeile
   rngCopy.Copy Worksheets("Tabelle3").Range("A1")
End Sub

Häufige Fehler und Lösungen

Leere Zellen werden kopiert: Stelle sicher, dass du die richtige Formel verwendest, um nur Zellen mit Inhalt zu filtern. Überprüfe die Formel und die Zellenreferenzen.
VBA-Code funktioniert nicht: Überprüfe, ob der Code im richtigen Modul eingefügt wurde. Der Code sollte in einem Modul für das Arbeitsblatt stehen, auf dem du arbeitest.
Zu viele Leerzeilen: Achte darauf, dass die Formel korrekt funktioniert und nur Zellen mit Text zurückgibt. Möglicherweise gibt es Formatierungsfehler in den Zellen.

Alternative Methoden

Filterfunktion nutzen: Du kannst auch die Filterfunktion in Excel verwenden, um nur die Zellen mit Inhalt anzuzeigen. Gehe zu Daten > Filter, und aktiviere die Filteroption.
Spezial einfügen: Eine weitere Möglichkeit ist die Verwendung von "Inhalte einfügen" (Rechtsklick > Inhalte einfügen) und dann nur die Werte ohne Formatierungen zu kopieren.

Praktische Beispiele

Bestellformular: Angenommen, du hast ein Bestellformular mit den Spalten "Menge", "Material" und "Mat.-Nr." und möchtest nur die Zeilen kopieren, in denen die "Menge" einen Wert hat. Verwende die oben genannte VBA-Lösung oder die entsprechende Formel.
Budget-Tabelle: Wenn du eine Budget-Tabelle führst, die nur die Bestellungen mit Inhalten anzeigen soll, kannst du die Filter- und Kopiermethoden kombinieren, um nur die relevanten Daten zu übertragen.

Tipps für Profis

Verwendung von benannten Bereichen: Definiere benannte Bereiche in Excel, um die Handhabung von Formeln und VBA zu erleichtern.
Automatisierung: Überlege, wie du häufige Kopierprozesse automatisieren kannst, indem du Makros in Excel verwendest. Dies spart Zeit und minimiert Fehler.
Regelmäßige Überprüfung: Überprüfe regelmäßig deine Daten und Formeln, um sicherzustellen, dass alles wie gewünscht funktioniert und keine unerwünschten Leerzeilen entstehen.

FAQ: Häufige Fragen

1. Wie kann ich nur Zellen mit Inhalt kopieren, ohne VBA zu verwenden?
Du kannst die Filterfunktion oder die oben genannten Formeln nutzen, um nur Zellen mit Inhalt zu kopieren.

2. Funktioniert die Methode in allen Excel-Versionen?
Ja, die beschriebenen Methoden sind in den meisten aktuellen Excel-Versionen anwendbar, insbesondere in Excel 2016 und später.

3. Wie gehe ich vor, wenn ich nur bestimmte Zeilen mit Inhalten kopieren möchte?
Verwende die Formel =WENN(ISTTEXT(...);...; "") in Kombination mit Filterfunktionen oder VBA, um gezielt bestimmte Zeilen zu erfassen.

Beliebteste Forumthreads (12 Monate)