Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ExcelVBA nur gefüllte Zellen einer Spalte kopieren

Forumthread: ExcelVBA nur gefüllte Zellen einer Spalte kopieren

ExcelVBA nur gefüllte Zellen einer Spalte kopieren
23.10.2012 20:53:36
Frank
Hallo zusammen,
ich bin noch ein VBA Neuling und hoffe, dass Ihr mir helfen könnt.
Ich möchte in einer Arbeitsmappe die Spalte B ab Zeile 2 die gefüllten Zellen von Tabelle 1 nach Tabelle 2 Spalte B3 kopieren.
Dies habe ich mit dem Makrorecorder hinbekommen, aber nur mit einem festen Wert.
Sub kopieren01()
Sheets("Tabelle1").Select
Range("B2:B44").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Da aber die Spalte unterschiedlich gefüllt ist, möchte ich, statt des festen Wert B44 immer soweit, wie die Zellen in der Spalte gefüllt sind, diese kopieren.
Vielleicht könnt Ihr mir weiterhelfen.
Vielen Dank im Voraus
Frank

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ExcelVBA nur gefüllte Zellen einer Spalte kopieren
23.10.2012 21:11:36
hary
Hallo Frank 
With Sheets("Tabelle1")
.Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row + 1).Copy
Sheets("Tabelle2").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks _
:=False, Transpose:=False
End With

gruss hary

Anzeige
AW: Korrektur
23.10.2012 21:13:30
hary
Hallo
Nimm diesen. 
With Sheets("Tabelle1")
.Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
Sheets("Tabelle2").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks _
:=False, Transpose:=False
End With
Application.CutCopyMode = False

gruss hary

Anzeige
AW: ExcelVBA nur gefüllte Zellen einer Spalte kopieren
23.10.2012 21:16:39
Peter
Hallo Frank,
versuche es einmal so: 
Sub kopieren01()
With ThisWorkbook.Worksheets("Tabelle1")
.Range("B2:B44").Copy
ThisWorkbook.Worksheets("Tabelle2").Range("B3"). _
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False
End With
End Sub

Gruß Peter

Anzeige
AW: @Peter
23.10.2012 21:25:30
hary
Hallo Peter
Zitat:
"statt des festen Wert B44 immer soweit, wie die Zellen in der Spalte gefüllt "
gruss hary

Forumthreads zu verwandten Themen

Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Anzeige
Nur beschriebene Zellen Listen
Sebastian

Hallo zusammen,
ich habe ein Programm in dem in einer Userform nach einem bestimmten Befehl eine Listbox aus einem Tabellenblatt befüllt wird, der Code dafür ist folgendermaßen:
ListBox2.AddItem Cells(zeiger, 4).Value
Zeiger bezieht sich dabei auf den Auswahlbereich
Alles funkti...
04.07.2009 14:11:52
Thread-ID: 1086364
14 Beiträge
Nur in 2 Zellen Nullwerte anzeigen
Heinz

Hallo Leute
Ich habe in einer Tabelle die Nullwerte ausgeblendet.
Nun möchte ich aber in J5 und in J36 die Nullwerte "0,00" angezeigt haben.
Gibt es dazu bitte eine Möglichkeit ?
Gruß Heinz
06.07.2010 18:02:45
Thread-ID: 1165742
3 Beiträge
nur freigegebene Zellen kopieren
Stefan

Hallo Zusammen,
habe ein kleines Problem...
Möchte gerne aus einer Alten XLS eine Spalte 8 in die neue XLS übernehmen.
Bringt mir jedoch eine Fehlermeldung.
Grund: es gibt in der Spalte einige Zeilen die schreibgeschützt sind.
Wie kann ich nur die nicht gesperrten Zellen kop...
10.08.2010 09:04:57
Thread-ID: 1171356
5 Beiträge
Alle Zellen mit Kommentaren farblich markieren
Ralph P.

Hallo.
Ich möchte in einer Excel-Tabelle alle Zellen farblich markieren, die einen Komentar enthalten. Mein Ansatzt ist dieser:Sub mark()laRow = Cells(Rows.Count, 1).End(xlUp).Row
laCol = Cells(Columns.Count).End(xlToLeft).Column
For col = 1 To laCol For Row = 1 To laRow
Cell...
29.04.2002 11:46:36
Thread-ID: 117105
4 Beiträge
Nur Zellenwert kopieren nicht Formel in Zelle
MPH

Hi Leute habe wieder ein Problemchen.
ich würde gerne einen Zellenwert in eine andere Zelle kopieren.
Problem ist aber , wenn ich es so mache:
Private Sub CommandButton_Click() Worksheets(Verbindung").Range("i2:w2").copy Destination:=Worksheets("Verbindung").Range("aa1: _ Ap1") End...
04.12.2012 14:59:14
Thread-ID: 1289260
13 Beiträge
nur ausgefüllte zellen kopieren
rahel

wie kann ich mit einem makro aus einem excel-tabellenblatt nur den bereich in die zwischenablage kopieren, der einträge enthält?
17.06.2002 16:25:29
Thread-ID: 129253
6 Beiträge
Nur Zellen mit Inhalt markieren
Fuchs


Hallo Leute.
ich bin gerade dabei riesige mengen an alten *.txt dateien in exel reinzukloppen ;-) Gibt es ein makro mit dem ich nur die zellen markieren kann, die einen inhalt haben?
Schon mal vielen dank!

20.06.2002 14:12:12
Thread-ID: 130181
2 Beiträge
Nur 2 Zellen kopieren, nicht ganze Zeile
Alex

Guten Morgen!
Bei meinem Code wird ein über InputBox abzufragender Wert in einer Tabelle gesucht und die FundZEILE in ein neues Tabellenblatt kopiert.
Ich will aber dass nur die Fundzelle in das neue Tabellenblatt kopiert wird, wie geht das?
Zusätzlich sollte noch die dazugehörige Z...
01.02.2013 09:10:47
Thread-ID: 1297066
12 Beiträge
Nur gefüllte Zellen durchsuchen
Thomas

Hallo
Ich habe hier ein Tabellenblatt.
Bei dem verhält sich die normale Suche (Bearbeiten / Suchen) merkwürdig.
Wenn ich etwas suche, wir immer das ganze Tabellenblatt durchsucht.
Also auch alle Zellen in denen garnichts steht.
Kann ich das irgendwie wieder abstellen?
Gr...
16.11.2013 09:23:05
Thread-ID: 1338745
4 Beiträge
Anzeige
Alle nicht leeren Zellen der Spalte C markieren
Marco

Hallo,
in der Spalte C befinden sich unter einander weg Zahlenwerte. ich möchte nun alle Zellen dieser Spalte markieren, die nicht leer sind.
Kann mir Jemand helfen?
Vielen Dank im Voraus.
LG Marco
31.07.2014 08:02:24
Thread-ID: 1373282
4 Beiträge
alle gefüllten Zellen einer Spalte ergänzen
stormlamp
Hallo Zusammen,
mit einem Makro möchte ich alle gefüllten Zellen einer Spalte ab (inklusive) Cursorposition am Ende durch irgendeinen String ergänzen, den ich auch im Makro definiere.
Beispiel:
Einer Variablen innerhalb des Makros weise ich den Wert "xyz" zu.
Mein Cursor steht in Ze...
10.08.2014 09:34:58
Thread-ID: 1375454
8 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

ExcelVBA: Nur gefüllte Zellen einer Spalte kopieren

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und gehe zu der Arbeitsmappe, in der du die gefüllten Zellen kopieren möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke auf "Einfügen" und wähle "Modul".

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

    Sub kopierenGefuellteZellen()
   With Sheets("Tabelle1")
       .Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
       Sheets("Tabelle2").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   End With
   Application.CutCopyMode = False
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus: Drücke ALT + F8, wähle kopierenGefuellteZellen und klicke auf "Ausführen".

Mit diesem Makro werden alle gefüllten Zellen von Spalte B in Tabelle1 nach Tabelle2 ab Zelle B3 kopiert.

Häufige Fehler und Lösungen

  • Fehler: "Die Methode 'Range' für das Objekt 'Worksheet' ist fehlgeschlagen."
    Lösung: Überprüfe, ob die Tabellennamen korrekt sind. Stelle sicher, dass die Tabellen "Tabelle1" und "Tabelle2" existieren.

  • Fehler: Das Makro kopiert leere Zellen.
    Lösung: Stelle sicher, dass der Parameter SkipBlanks auf False gesetzt ist, um nur die gefüllten Zellen zu kopieren.

Alternative Methoden

  1. Excel-Funktion nutzen: Du kannst auch die Funktion FILTER verwenden (verfügbar in neueren Excel-Versionen), um nur die gefüllten Zellen anzuzeigen:

    =FILTER(Tabelle1!B2:B100, Tabelle1!B2:B100<>"")

  2. Manuelle Auswahl: Du kannst auch alle gefüllten Zellen manuell markieren:

    • Wähle die gesamte Spalte B aus.
    • Drücke F5, wähle "Spezial" und dann "Nur die gefüllten Zellen".

Praktische Beispiele

  • Beispiel 1: Kopiere gefüllte Zellen von Spalte A nach Spalte C in der gleichen Tabelle:

    Sub kopierenGefuellteZellenA_C()
   With Sheets("Tabelle1")
       .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Copy
       .Range("C2").PasteSpecial Paste:=xlPasteValues
   End With
End Sub

  • Beispiel 2: Kopiere nur die befüllten Zellen von Spalte B in eine andere Arbeitsmappe:

    Sub kopierenBefuellteZellenAndereMappe()
   Dim ZielMappe As Workbook
   Set ZielMappe = Workbooks.Open("Pfad\Zur\Zielmappe.xlsx")
   With Sheets("Tabelle1")
       .Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
       ZielMappe.Sheets("ZielTabelle").Range("B3").PasteSpecial Paste:=xlPasteValues
   End With
   ZielMappe.Close SaveChanges:=True
End Sub

Tipps für Profis

  • Verwende Application.ScreenUpdating = False am Anfang deines Codes, um die Leistung zu verbessern, wenn du viele Zellen kopierst.
  • Nutze Named Ranges für wiederkehrende Zellbereiche, um deinen Code übersichtlicher zu gestalten.
  • Experimentiere mit xlPasteAll anstelle von xlPasteValues, wenn du auch Formatierungen beibehalten möchtest.

FAQ: Häufige Fragen

1. Wie kann ich nur die gefüllten Zellen anzeigen?
Du kannst die Funktion FILTER verwenden oder die gefüllten Zellen mit STRG + G und der Auswahl "Spezial" sichtbar machen.

2. Was ist der Unterschied zwischen PasteSpecial und Paste?
PasteSpecial ermöglicht es dir, spezifische Aspekte der kopierten Daten (wie nur Werte oder Formate) zu wählen, während Paste alle Aspekte zusammen einfügt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige