Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
08.10.2025 06:24:29
VBA - Zeichenkette von rechts kürzen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausgefüllte Zellen kopieren

Forumthread: Makro ausgefüllte Zellen kopieren

Makro ausgefüllte Zellen kopieren
10.05.2021 12:45:20
Stefan
Hallo,
ich habe folgende Herausforderung:
Ich möchte aus Sheet 2 alle ausgefüllten Zellen eines Bereichs A2:D10 in Sheet an das Ende der Tabelle kopieren.
z.B: Wenn A2:D2 und A3:D3 beschrieben sind, sollen diese Zellen an das Ende der Tabelle von Sheet 1 geschrieben werden. Hierbei sollen die Daten wieder in die selben Spalten geschrieben werden. Also A in A und B in B etc.
Kann mir hier jemand helfen?
Gruß
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro ausgefüllte Zellen kopieren
10.05.2021 13:01:02
Werner
Hallo,
zum Beispiel so:

Sub Schaltfläche1_Klicken()
Dim i As Long, raKopie As Range
With Worksheets("Tabelle2")
For i = 2 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If WorksheetFunction.CountBlank(.Range(.Cells(i, "A"), .Cells(i, "D"))) = 0 Then
If raKopie Is Nothing Then
Set raKopie = .Cells(i, "A").Resize(, 4)
Else
Set raKopie = Union(raKopie, .Cells(i, "A").Resize(, 4))
End If
End If
Next i
End With
If Not raKopie Is Nothing Then
With Worksheets("Tabelle1")
raKopie.Copy .Cells(.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row, "A")
End With
End If
Set raKopie = Nothing
End Sub
Gruß Werner
Anzeige
AW: Makro ausgefüllte Zellen kopieren
10.05.2021 14:26:12
Stefan
Hallo nochmal,
wie schaffe ich es, dass nur die Werte aus den Zellen kopiert werden und nicht die Formeln?
Gruß
AW: Makro ausgefüllte Zellen kopieren
10.05.2021 15:02:05
Werner
Hallo,
dann so:

Sub Schaltfläche1_Klicken()
Dim i As Long, raKopie As Range
With Worksheets("Tabelle2")
For i = 2 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If WorksheetFunction.CountBlank(.Range(.Cells(i, "A"), .Cells(i, "D"))) = 0 Then
If raKopie Is Nothing Then
Set raKopie = .Cells(i, "A").Resize(, 4)
Else
Set raKopie = Union(raKopie, .Cells(i, "A").Resize(, 4))
End If
End If
Next i
End With
If Not raKopie Is Nothing Then
With Worksheets("Tabelle1")
raKopie.Copy
.Cells(.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row, "A").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End With
End If
Set raKopie = Nothing
End Sub
Gruß Werner
Anzeige
AW: Makro ausgefüllte Zellen kopieren
10.05.2021 13:17:41
Stefan
Perfekt!! Danke!!
;

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
Anzeige
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
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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