Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
Anzeige
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
Anzeige
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
Mit VBA Datenbezug einer Grafik ändern
Uli

Hi,
ich würde gerne eine Grafik mit n Linien in der Form ändern, dass der Tabellenbezug hinsichtlich der Spalten gleich bleibt, jedoch der Bereich der Zeilen sich ändert (z.B. Daten der Zeilen 200bis 300 statt 1 bis 100). Wie kann ich das ändern, ohne dabei die Spalten zu verändern. Wenn ic...
16.07.2009 14:38:27
Thread-ID: 1089069
13 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
Anzeige

Links zu Excel-Dialogen

CommandButton

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
6
3
15
4
4
1
11
2
12
4
5
20
8
5
6
7
6
1
4
4
4
6
2
6
4