Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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ß

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!!

301 Forumthreads zu ähnlichen 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 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
Nur sichtbare Zellen kopieren
Bernd

Hallo,
ich habe eine Excel-Filter mit Autofilter und möchte nur die gefilterten Zeilen (ohne daran anschließenden Leerzeilen) markieren und per Makro in eine andere Datei übertragen. Über "Gehezu /Inhalte/Nur sichtbare Zellen" werden dummerweise auch die Leerzeilen unter dem gefilterten Ber...
13.09.2011 14:56:59
Thread-ID: 1229699
4 Beiträge
Alle folgenden Zellen markieren, bis leere kommen.
T.

Hallo Ekschpärt`n,
Frage an euch: Von einer aktiven Zelle aus sollen alle danach folgenden, in denen ein Wert enthalten ist, solange markiert werden, bis zwei aufeinanderfolgende leere Zellen kommen.
Also beispeilsweise von A1 ab bis A9 durchmarkieren (neun Zellen markiert), um diese zu...
06.10.2012 18:29:45
Thread-ID: 1280786
22 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
20
13
2
4
3
3
21
12
5
1
11
3
7
3
7
3
3
6
4
5
5
4
7
9
1