Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Select, Copy & Paste am Tabellenende

Forumthread: Select, Copy & Paste am Tabellenende

Select, Copy & Paste am Tabellenende
Sebastian
Hallo zusammen,
ich habe mir einen Code zusammengebastelt, der die im Betreff genannten Funktionen auch brav durchführt. Problem: wenn ich auf dem Ziel-Tabellenblatt einen Autofilter gesetzt habe, dann schreibt er es in die Zeile nach den Treffern des Autofilters und überschreibt einfach einen Datensatz. Hier der Code:
Private Sub CommandButton2_Click()
Range("L13:L34").Copy
Sheets("Final").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues,  _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Tabelle2").Activate
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
Sheets("Tabelle1").Activate
MsgBox "Daten wurden gespeichert!", vbInformation, "Test"
End Sub
Gibt es nicht vielleicht irgendeinen Zusatz zum Count Befehl, dass er den Autofilter ignoriert?
Vielen Dank schon mal im Voraus!
Gruß
Sebastian
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Select, Copy & Paste am Tabellenende
13.04.2012 15:14:17
ChrisL
Hi Sebastian
Deine Frage bezieht sich auf "letzte Zeile bei Autofilter". Die nachstehende Variante mit CountA funktioniert, vorausgesetzt es gibt keine Leerzeilen. Ansonsten bräuchte es m.E. ein Schleife. Siehe auch Archivbeiträge z.B. https://www.herber.de/forum/archiv/1220to1224/t1220675.htm
Den Rest habe ich dir auch noch ein wenig umgeschrieben...
Sub test()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim arDaten As Variant
Dim LetzteZeile As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Final")
arDaten = WS1.Range("L13:L34")
With WS2
LetzteZeile = WorksheetFunction.CountA(.Columns(1)) + 1
.Range(.Cells(LetzteZeile, 1), .Cells(LetzteZeile, 22)) = Application.Transpose(arDaten)
End With
End Sub
cu
Chris
Anzeige
AW: Select, Copy & Paste am Tabellenende
13.04.2012 16:04:08
Sebastian
Hi Chris,
danke, funktioniert super. Mein Code war ein Copy&Paste Ergebnis aus anderen Foren-Beiträgen und der "Makro aufzeichnen" Funktion, danke fürs bereinigen.
Schönes Wochenende!
Gruß
Sebastian
;

Forumthreads zu verwandten Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Change-Ereignis nur nach Copy&Paste
Iro

Hallo Excel Gemeinde,
ist es möglich ein Change-Ereignis nur nach einem Kopieren von daten mit Copy & paste auszulösen?
Ich will aus einer Arbeitsmappe Daten in ein sheet in einer Userform kopieren und dann automatisch per VBA eine bestimmte Formatierung erzwingen (inklusive neuer H...
20.11.2008 14:20:31
Thread-ID: 1026426
7 Beiträge
copy & Paste inkl. Formeln
meixner

Hallo zusammen,
möchte einige Daten inkl. Formeln in ein anderes Tabellenblatt kopieren. Bei dem Copy & Paste Vorgang gehen die Formeln aber verloren. Wie kann ich das ändern?
Sub makro_copy()
Worksheets("tabelle1").Range("D2:D40, E2:E40").Copy Destination:=Worksheets("tabelle4"...
18.01.2009 16:07:00
Thread-ID: 1041161
6 Beiträge
Nur Werte kopieren!
markus473

Hallo zusammen,
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar() Dim sh As Worksheet UF_Dateiauswahl1.Show I...
26.01.2009 15:27:51
Thread-ID: 1043917
7 Beiträge
Makro Copy&Paste
Julia

Hallo,
ich habe in einem Ordner die Datei Pivot.xls dort gibt es das Tabellenblatt Rohdaten.
In dieses Tabellenblatt sollen der gesamte Inhalt von Rohdaten.xls (Tabellenblatt hier heißt: Table1)
in Pivot.xls (Tabellenblatt Rohdaten) kopiert werden.
Ich habe folgenden Code:
...
25.02.2009 10:37:16
Thread-ID: 1053778
3 Beiträge
nur werte kopieren!
lisa

Hallo zusammen
Dieses Thema ist nicht nur in diesem Forum mehrfach angesprochen worden.
Ich rafe es nicht, trotz Recherche, hiefür nur den Wert kopieren zu lassen.
Das ist mein Orig. Gode
Private Sub CommandButton3_Click() Sheets("Dateneingabe").Range("L2").Copy Sheets("Liefer...
03.03.2009 14:07:47
Thread-ID: 1055975
5 Beiträge
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 Beiträge
Nur Werte mit selber Jahreszahl kopieren
Heinz

Hallo Leute
Habe heute schon wieder ein Problem !!
Ich hoffe es kann mir bitte wieder jemand weiterhelfen.
Ich habe in "Daten" I1 eine Jahreszahl stehen. In K31:K162 und in M31:M162 Daten mit TTT*TT.MMM.JJ stehen.
Nun möchte ich Daten die in K31:K162 gleich mit der Jahrsezahl in...
26.06.2009 16:13:15
Thread-ID: 1084642
13 Beiträge
Excel Datei trotz Copy/ Paste Values zu groß
Max

Hallo liebe Helfer,
ich sitze gerade an einer Excel Datei, die riesig groß und langsam geworden ist. Ich habe per vlookup Daten aus einer Liste mit ~40.000 Zeilen auslesen müssen - klar, dass die Datei dabei sehr groß wird (40 MB). Im Anschluss habe ich alle Formeln per Copy/ Paste Special...
30.10.2009 20:14:13
Thread-ID: 1113418
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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