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

In anderes Tabellenblatt kopieren

Forumthread: In anderes Tabellenblatt kopieren

In anderes Tabellenblatt kopieren
23.08.2018 20:01:37
Brigitte
https://www.herber.de/bbs/user/123526.xlsm
Hallo Forum,
ich bin wieder mit meinem Latein (VBA) am Ende.
Ich möchte aus einem Tabellenblatt Anmelden Daten wöchentlich in ein anderes Tabellenblatt kopieren. Die Daten werden zunächst aufbereitet und sollen dann in das andere Tabellenblatt übertragen werden.
Der zu übertragende Bereich ist nicht fest. Mal 100, mal 20 Datensätze.
Das Zieltabellenblatt ist auch nicht fest. Zur Zeit ist es August und ab 01.01.2018 ist es September.
Wenn der Datenübertrag erfolgt ist, sollen die ursprünglichen Daten gelöscht werden.
Kann mir jemand helfen?
Vielen Dank
Brigitte
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: In anderes Tabellenblatt kopieren
23.08.2018 22:14:55
Brigitte
https://www.herber.de/bbs/user/123530.xlsm
Hallo Forum,
kann einer der Experten mal über den Code schauen und korrigieren? ich bin für jede Hilfe dankbar.
Danke
Brigitte
AW: In anderes Tabellenblatt kopieren
23.08.2018 22:55:29
Hans
Hallo
bitte probier mal diesen geaenderten Code aus. Er prüft auch ob das onts Blatt vorhanden ist. Viel Erfolg.
mfg Hans
Option Explicit      '23.8.2018  für  Herber Forum
Const SpAm = "N"     'End-Spalte in Anmeldung
Private Sub CmdTransfer_Click()
Dim lzAnm As Long, lzSht As Long
Dim Datum As String, Monat As String
Dim Test As Worksheet
With ThisWorkbook
'1. Datumszelle laden um Monat festzustellen
Datum = CStr(Format(CDate(.Sheets("Anmelden").Range("K18")), "dd,mmmm,yyyy"))
Monat = Mid(Datum, 4, 25)
Monat = CStr(Left(Monat, Len(Monat) - 5))
'On Error GoTo Fehler
Set Test = Worksheets(Monat)
'aktuelle LastCell in Anmeldung ermitteln  (max 1000)
lzAnm = .Sheets("Anmelden").Cells(1000, 3).End(xlUp).Row
'aktuelle LastCell im aktuellen Monat ermitteln  (+1 für Offset)
lzSht = .Sheets(Monat).Cells(Rows.Count, 3).End(xlUp).Row + 1
'aktuellen Anmelde Bereich kopieren
.Sheets("Anmelden").Range("A18:" & SpAm & lzAnm).Copy
'im aktuellen Monat unten anhaengen
.Sheets(Monat).Cells(lzSht, 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
'aktuellen Anmelde Bereich löschen
.Sheets("Anmelden").Range("A18:" & SpAm & lzAnm).ClearContents
'neue LastCell im aktuellen Monat ermitteln  (-17 für Ende)
lzSht = .Sheets(Monat).Cells(Rows.Count, 3).End(xlUp).Row - 17
.Sheets(Monat).Cells(18, 1).Value = 1  'immer auf 1 setzen!
.Sheets(Monat).Cells(18, 1).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:= _
lzSht
End With
Exit Sub
Fehler:  MsgBox Datum & "  dieses Monats-Blatt existiert nicht!"
End Sub
'Private Sub CmdTransfer_Click()
'Dim wbMappe As Workbook
'Dim Letzte As Long
'ThisWorkbook.Sheets("Anmelden").UsedRange.Copy
'Sheets("August").Select
'Cells(18, 3).End(xlDown).Offset(1, 0).Select
'ActiveSheet.Paste
'End Sub

Anzeige
AW: In anderes Tabellenblatt kopieren
24.08.2018 08:01:29
Brigitte
Hallo Hans,
guten Morgen erst ein mal. Du bist ein Schatz. Das ist genau das was ich wollte.
Vielen Dank. Du hast mir sehr weiter geholfen.
Danke Brigitte
warum "offen"
24.08.2018 08:05:28
Matthias
Hallo
Aktiviere das Kontrollkästchen, wenn die Frage mit diesem Beitrag nicht beantwortet wurde und der Thread weiter bei den offenen Fragen angezeigt werden soll
Warum hast Du es aktiviert? Ist noch etwas offen?
Gruß Matthias
Anzeige
AW: warum "offen"
24.08.2018 08:35:03
Brigitte
Hi Matthias,
sorry. Es ist noch früh am Morgen. HIV
Habe ich vergessen.
Danke Brigitte
;

Forumthreads zu verwandten Themen

Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Anzeige
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 Beiträge
Kopieren in andere Tabelle
liese

Hallo Forumfreunde!
Bitte um Hilfe zu folgendem Problem:
Bei Doppelklick im Bereich H10:H15 in Tabelle1 (z.B. H7) soll der Zellinhalt nach Tabelle2
in Zelle D5 kopiert werden und der Inhalt zwei Zellen neben dem Doppelklick (J7)
ebenfalls nach Tabelle2 in K10 kopiert werden.
...
19.08.2009 13:20:01
Thread-ID: 1097094
10 Beiträge
Anzeige
variables kopieren in ein anderes Tabellenblatt | Herbers Excel-Forum
Space
Hallo Community
Ich suche einen VBA Code um folgendes Problem mittels Button zu lösen:
ich würde gerne aus einem Tabellenblatt "Tabelle1" von Zeile 14 bis Spalte Q bis zum letzen vorhandenen Eintrag alles koperen und das ganze in das Tabellenblatt "Tabelle2" einfügen. In "Tabelle2" soll es...
15.01.2010 12:12:20
Thread-ID: 1130211
5 Beiträge
nur in bestimmte bereiche reinkopieren
thomas

hallo zusammen,
ich schreibe gerade ein makro, dass über eine inputbox abfrägt, in welchem bereich man zeilen einfügen möchte. das klappt auch super, aber ich will eigentlich nur bestimmte bereiche zulassen. also zum beispiel zwischen a14 und a20. sollte nun einer einen bereich zwischen a1 u...
11.04.2002 10:25:24
Thread-ID: 112349
3 Beiträge
Spalte A in andere Tabelle kopieren
Ben

Hallo,
ich habe folgendes Problem:
zwei Tabellen mit dem gleichen Aufbau, in Spalte A stehen immer Bezeichnungen und in den weiteren Spalten folgen Werte.
Ich versuche nun die Spalte A aller Tabellenblätter der ersten Tabelle (besitzt 41 Tabellenblätter) in die andere Tabelle zu k...
22.01.2010 20:13:26
Thread-ID: 1132034
8 Beiträge
Anzeige
Zeile in anderes Tabellenblatt kopieren
Carle

Hallo zusammen!
Ich würde gerne in einem Arbeitsblatt die Kopfzeile einer Tabelle in ein anderes Tabellenblatt derselben Arbeitsmappe kopieren, und zwar in der Weise, dass bei einer Änderung der Tabellenzeile (z. B. durch Einfügen einer neuen Spalte oder Änderung des Werts einer Zelle) sich...
01.02.2010 20:51:08
Thread-ID: 1134230
3 Beiträge
Anzeige
werte in anderes tabellenblatt mit ; kopieren
Helmut

hallo liebe vba’ler,
noch eine letzte frage für heute:
ich habe ein excel-sheet. In diesem habe ich 5 spalten, in denen sich daten (Zahlen, Worte) befinden. Wie kann ich über ein vba-script diese daten in ein anderes tabellenblatt des sheets kopieren, und zwar so, dass die kopierten dat...
08.03.2010 17:51:04
Thread-ID: 1144386
7 Beiträge
bestimmte Zeilen nach einer Bedingung kopieren
Andre

Hi Leute,
ich werde noch verrückt mit dem code. Ich möchte gerne bestimme Zeilen von einem Sheet ins nächste kopieren, wenn zwei Bedinungen (mit Oder) erfüllt sind.
Leider klappt meine Schleife irgendwie nicht. i müsste bei jedem Durchgang höher gehen um alle 50k Zeilen zu prüfen und z...
09.04.2010 13:38:55
Thread-ID: 1150779
9 Beiträge
Daten in anderes Tabellenblatt kopieren
Werner

Hallo zusammen,
ich möchte Daten von Activen Tabellenblatt in die Tabelle1 kopieren. Ich habe es mit nen Makrorekorter propiert aber ohne Erfolg.
Es sollen im Act. Tabellenblatt die Bereiche:
A1:A30 in die Tabelle1 in die gleichen Zellen (A1:A30) kopiert werden.
C1:A30 in die Ta...
15.09.2010 20:26:28
Thread-ID: 1177919
10 Beiträge
Bestimmte Zeilen (Zellen) kopieren
Patrick

Hallo zusammen,
wäre echt super wenn ihr mir bei der Lösung meines Problems helfen könntet:
Hier erst einmal die Datei (https://www.herber.de/bbs/user/72451.xls).
Ziel ist es, dass bestimmte Zeilen aus dem Blatt "Ausgangsdatei" in das
Tabellenblatt "Ausgabedatei" kopiert werden....
24.11.2010 14:00:17
Thread-ID: 1188513
5 Beiträge
Bei bestimmtem Zellwert Zeilen kopieren
Michael

Liebe Profis!
Ich habe mir mit googlen und Basiskenntnissen ein Makro geschrieben, welches leider nicht funktioniert, und ich komme bei der Analyse selbst nicht mehr weiter.
Folgendes Szenario:
Ich habe eine Datei mit mehreren Sheets(Anzahl kann variieren).
Das letzte Sheet ist...
12.02.2011 10:13:23
Thread-ID: 1200379
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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