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

Excel VBA - Kopieren Inhalte in anderes Arbeitsbl.

Forumthread: Excel VBA - Kopieren Inhalte in anderes Arbeitsbl.

Excel VBA - Kopieren Inhalte in anderes Arbeitsbl.
20.11.2018 12:33:34
Pascal
Hallo liebes Forum,
heute habe ich folgendes Problem:
Ich habe eine Excel-Liste in der ich in dem Tabellenblatt "Checkliste" verschiedene Einträge mache.
Mit dem Betätigen einer Schaltfläche möchte ich diese Einträge in ein anderes Tabellenblatt "Archiv-Gesamtübersicht" kopieren und zwar in die nächste freie Zeile. Die Einträge aus dem Tabellenblatt "Checkliste" sollen dann gelöscht werden.
Eigentlich nicht so schwer dachte ich mir.
Doch dauert das Kopieren ewig und dann kopiert es die Daten auch noch falsch.
Beispieldatei:
https://www.herber.de/bbs/user/125521.xlsm
Könnte mir jemand helfen diese Kopierzeit zu reduzieren, sowie das Kopieren so zu gestalten das die Inhalte richtig in das nächste Tabellenblatt kopiert werden?
Vielen Dank im Vorraus!
mit freundlichen Grüßen,
Pascal
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Falsches Format
20.11.2018 12:38:06
Burak
Hallo Pascal,
in diesem Forum bitte keine Excel-Dateien mit aktiven Makros hochladen (xlsm)
Ausschließlich ohne Makros (xlsx) wird hier auch geöffnet.
Grüße
Burak
AW: Excel VBA - Kopieren Inhalte in anderes Arbeitsbl.
20.11.2018 12:43:33
{Boris}
Hi Pascal,
nicht kopieren, sondern direkt zuweisen.
Ungetestet:
Private Sub CommandButton1_Click()
Dim wksL As Worksheet
Dim wksR As Worksheet
Dim lngNextRow As Long
lngNextRow = wksR.Cells(wksR.Rows.Count, 1).End(xlUp).Row + 1
Set wksL = ActiveWorkbook.Worksheets("Checkliste")
Set wksR = ActiveWorkbook.Worksheets("Archiv-Gesamtübersicht")
wksR.Cells(lngNextRow, 1).Value = wksL.Cells(1, 4)
wksR.Cells(lngNextRow, 2).Value = wksL.Cells(4, 2)
wksR.Cells(lngNextRow, 3).Value = wksL.Cells(3, 2)
wksR.Cells(lngNextRow, 4).Value = wksL.Cells(3, 4)
wksR.Cells(lngNextRow, 5).Value = wksL.Cells(2, 4)
wksR.Cells(lngNextRow, 6).Value = wksL.Cells(4, 4)
wksR.Cells(lngNextRow, 7).Value = wksL.Cells(7, 3)
wksR.Cells(lngNextRow, 8).Value = wksL.Cells(10, 3)
wksR.Cells(lngNextRow, 9).Value = wksL.Cells(12, 3)
wksR.Cells(lngNextRow, 10).Value = wksL.Cells(13, 3)
wksR.Cells(lngNextRow, 11).Value = wksL.Cells(17, 3)
wksR.Cells(lngNextRow, 12).Value = wksL.Cells(20, 3)
wksR.Cells(lngNextRow, 13).Value = wksL.Cells(25, 3)
wksR.Cells(lngNextRow, 14).Value = wksL.Cells(27, 3)
wksL.Cells(4, 2).ClearContents
wksL.Cells(3, 2).ClearContents
wksL.Cells(3, 4).ClearContents
wksL.Cells(2, 4).ClearContents
wksL.Cells(4, 4).ClearContents
wksL.Cells(7, 3).ClearContents
wksL.Cells(10, 3).ClearContents
wksL.Cells(12, 3).ClearContents
wksL.Cells(13, 3).ClearContents
wksL.Cells(17, 3).ClearContents
wksL.Cells(20, 3).ClearContents
wksL.Cells(25, 3).ClearContents
wksL.Cells(27, 3).ClearContents
If Range("D1") = 0 Then
Range("D1") = 500
Else
Range("D1") = Range("D1") + 1
End If
End Sub
VG, Boris
Anzeige
AW: Excel VBA - Kopieren Inhalte in anderes Arbeitsbl.
20.11.2018 12:56:49
Pascal
Hi Boris,
danke für die schnelle Antwort.
Habe deinen Code mal benutzt, doch der Debugger meldet sich bei
lngNextRow = wksR.Cells(wksR.Rows.Count, 1).End(xlUp).Row + 1
Seh gerade aber auch nicht wieso.
Danke dir vielmals!
Gruß,
Pascal
AW: Excel VBA - Kopieren Inhalte in anderes Arbeitsbl.
20.11.2018 13:01:14
Pascal
Hallo nochmal,
okay hab es.
lngNextRow = wksR.Cells(wksR.Rows.Count, 1).End(xlUp).Row + 1
Set wksL = ActiveWorkbook.Worksheets("Checkliste")
Set wksR = ActiveWorkbook.Worksheets("Archiv-Gesamtübersicht")
musste diese Abschnitte noch tauschen.
Klappt alles super, ich danke dir vielmals!
Grüße
Pascal
Anzeige
AW: Excel VBA - Kopieren Inhalte in anderes Arbeitsbl.
20.11.2018 13:01:35
Pascal
Hallo nochmal,
okay hab es.
lngNextRow = wksR.Cells(wksR.Rows.Count, 1).End(xlUp).Row + 1
Set wksL = ActiveWorkbook.Worksheets("Checkliste")
Set wksR = ActiveWorkbook.Worksheets("Archiv-Gesamtübersicht")
musste diese Abschnitte noch tauschen.
Klappt alles super, ich danke dir vielmals!
Grüße
Pascal
Anzeige
;

Forumthreads zu verwandten Themen

Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA Projekt in andere Arbeitsmappe einbauen
abu

Hallo Zusammen,
Fileupload: https://www.herber.de/bbs/user/59303.xls
In dieser Arbeitsmappe ist ein VBA-Projekt das ansich gut funktioniert. Nun moechte ich dieses Projekt in eine andere Arbeitsmappe integrieren und statt fuer jede Zeile einen Button (habe in der hochgeladenen Mappe al...
10.02.2009 13:34:05
Thread-ID: 1049049
5 Beiträge
Andere Schreibweise für Formel in VBA
MAS

Einen wunderschönen guten Abend,
ich muss in einem Tabellenblatt einige Formeln per VBA erzeugen.
Mit Hilfe des Makrorecorders müsste ich diesen String erzeugen - die Formel ist allerdings nur recht schwer lesbar
Würde gerne schöne Zellbezeichnungen angeben - was muß ich denn dazu...
04.03.2009 16:56:56
Thread-ID: 1056514
5 Beiträge
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Fehlerbehandlung in vba funktioniert nicht
Henning

Hallo vba-Profis,
bei mir funktioniert die vba-Fehlerbehandlung nicht wie sie soll.
Ich rufe Hyperlinks auf: Zunächst die Online-Version. Falls der Rechner nicht online ist oder keine Verbindung hergestellt werden kann, soll per Fehlerbehandlung im zweiten Schritt die lokale offline-Ver...
29.04.2009 11:56:50
Thread-ID: 1071851
3 Beiträge
VBA-Befehl: Zeichen in Schriftart nicht vorhanden
Alex

Schönen guten Tag zusammen,
leider ist der Betreff nicht sehr aussagekräftig, da ich für die Frage etwas weiter ausholen muss. Man möge mir verzeihen.
Lage: Ich will mir für eine Schriftart Code Charts analog denen auf unicode.org erstellen (Beispiel: http://www.unicode.org/charts/PDF/U...
30.09.2009 00:02:51
Thread-ID: 1106220
5 Beiträge
VBA - Case bringt alles durcheinander
Günther

Hallo,
anhand der Beispielmappe können Fachleute sicherlich nachvollziehen, welches Problem ansteht.
Ich war bis zum Einbau der SELECT CASE Geschichte bei Comboboxen sehr zufrieden. Allerdings war mein Gedanke die Anwendung so bedienerfreundlich als möglich zu erstellen. Dazu wollte ic...
12.11.2009 20:26:26
Thread-ID: 1116669
21 Beiträge
VBA;Alle Zellen in Spalte A untereinander
Günter

Schönen guten Tag,
habe schon einiges recherchiert. Aber folgendes finde ich nicht:
Ein Makro soll mir alle vorhandenen Zellen (ab Spalte B)
in Spalte A kopieren. Alles müßte in Spalte A untereinander stehen.
Vielen Dank
Gruß
Günter
09.12.2009 15:14:12
Thread-ID: 1122647
9 Beiträge
Anzeige
Veränderung einer Zelle VBA
Paul

Hallo Excel Freaks,
ich stehe vor einer Herausforderung.
Bei jeglicher Veränderung in einer Zelle soll in einem seperaten Register einiges aufgezeichnet werden.
(z.B. Anwender, Dateiname, Registername, Datum,... usw.)
Dafür nutze ich folgenden VBA Code:
Option Explicit Priv...
25.02.2010 17:27:51
Thread-ID: 1141578
7 Beiträge
Anzeige
VBA Formel in Abhängigkeit von anderem Wert
anderem

Hallo,
ich suche nach der entsprechenden VBA-Formel für die Berechnung:
=WENN(M385="Herr";"geehrter";"geehrte")
ListBox1 eines Userforms enthält den Wert "Frau" oder "Herr". Dieser Wert wird in Spalte M eingetragen.
Die oben stehende Formel soll gelöscht und stattdessen in den V...
21.04.2010 14:38:27
Thread-ID: 1153137
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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