Thema Datum  Von Nutzer Rating
Antwort
Rot Datenblatt archivieren
 04.01.2016 13:11:20 Maik
Solved
04.01.2016 13:35:20 Gast36714
NotSolved
04.01.2016 13:51:25 Gast83096
NotSolved
04.01.2016 13:56:30 Gast71977
NotSolved
04.01.2016 14:15:10 Gast45508
NotSolved
04.01.2016 14:38:31 Gast25187
NotSolved

Ansicht des Beitrags:
Von:
Maik		 Datum:
04.01.2016 13:11:20		 Views:
1532		 Rating:
     
Antwort:
 Nein
Thema:
Datenblatt archivieren

Hallo liebe VBA-Gemeinde,

ich befasse mich nun seit geraumer Zeit mit Excel-VBA und komme mit einem Problem nicht weiter, ich hoffe ihr könnt mir einen Lösungshinweis geben oder einen Tipp wie ich es anders lösen könnte.

Ich habe in Excel zwei Tabellenblätter eins mit der Bezeichnung "Tabelle1" und ein zweites mit "Datensammler" mit dem selben Zeilen und Spaltenaufbau.

Ich möchte nun die eingegebenen Daten aus Sheet "Tabelle1" in das Sheet "Datensammler" kopieren, allerdings soll das Sheet "Tabelle1" nur als Eingabeblatt genutzt werden. Im Datensammler sollen alle Eingaben untereinander gesammelt werden.


Bisher habe ich es nur hinbekommen das mein Makro das Sheet "Tabelle1" komplett in das Sheet "Datensammler" kopiert. Wenn ich jetzt Änderungen am "Tabellenblatt1" vornehme soll das Makro den kompletten Datensatz unter den bestehenden Datensatz in den "Datensammler" kopieren.

Ich möchte das das Makro eine komplette Kopie des Sheets "Tabelle1" unter die bestehenden Daten des Sheets"Datensammler" setzt.
Ich hoffe das versteht hier jemand.



mein bisheriger Code der den "Datensammler" überschreibt lautet:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Sheets("Datensammler").Select
letzteZeile = Sheets("Datensammler").Cells(Rows.Count, 1).End(xlUp).Row + 1
 
 
Sheets("Tabelle1").Range("B4:B4400").Copy
Sheets("Datensammler").Range("B" & letzteZeile).PasteSpecial Paste:=xlValues
 
 
Sheets("Tabelle1").Range("C4:C4400").Copy
Sheets("Datensammler").Range("C" & letzteZeile).PasteSpecial Paste:=xlValues
 
 
Sheets("Tabelle1").Range("D4:D4400").Copy
Sheets("Datensammler").Range("D" & letzteZeile).PasteSpecial Paste:=xlValues
 
 
Sheets("Tabelle1").Range("E4:E4400").Copy
Sheets("Datensammler").Range("E" & letzteZeile).PasteSpecial Paste:=xlValues
 
 
Sheets("Tabelle1").Range("F4:F4400").Copy
Sheets("Datensammler").Range("F" & letzteZeile).PasteSpecial Paste:=xlValues
 
 
Sheets("Tabelle1").Range("G4:G4400").Copy
Sheets("Datensammler").Range("G" & letzteZeile).PasteSpecial Paste:=xlValues
 
 
Sheets("Tabelle1").Range("H4:H4400").Copy
Sheets("Datensammler").Range("H" & letzteZeile).PasteSpecial Paste:=xlValues
 
 
Sheets("Tabelle1").Range("I4:I4400").Copy
Sheets("Datensammler").Range("I" & letzteZeile).PasteSpecial Paste:=xlValues
 
Sheets("Tabelle1").Range("J4:J4400").Copy
Sheets("Datensammler").Range("J" & letzteZeile).PasteSpecial Paste:=xlValues
 
Sheets("Tabelle1").Range("K4:K4400").Copy
Sheets("Datensammler").Range("K" & letzteZeile).PasteSpecial Paste:=xlValues
 
Sheets("Tabelle1").Range("L4:L4400").Copy
Sheets("Datensammler").Range("L" & letzteZeile).PasteSpecial Paste:=xlValues
 
Sheets("Tabelle1").Range("M4:M4400").Copy
Sheets("Datensammler").Range("M" & letzteZeile).PasteSpecial Paste:=xlValues
 
Sheets("Tabelle1").Range("N4:N4400").Copy
Sheets("Datensammler").Range("N" & letzteZeile).PasteSpecial Paste:=xlValues
 
Sheets("Tabelle1").Range("O4:O4400").Copy
Sheets("Datensammler").Range("O" & letzteZeile).PasteSpecial Paste:=xlValues
 
Sheets("Tabelle1").Range("P4:P4400").Copy
Sheets("Datensammler").Range("C" & letzteZeile).PasteSpecial Paste:=xlValues
 
 
Sheets("Tabelle1").Range("Q4:Q4400").Copy
Sheets("Datensammler").Range("Q" & letzteZeile).PasteSpecial Paste:=xlValue
 
 
Sheets("Tabelle1").Range("R4:R4400").Copy
Sheets("Datensammler").Range("R" & letzteZeile).PasteSpecial Paste:=xlValue
 
 
Sheets("Tabelle1").Range("S4:S4400").Copy
Sheets("Datensammler").Range("S" & letzteZeile).PasteSpecial Paste:=xlValue



Vielen Dank, ich habe schon sehr lange Foren durchsucht und bin leider nicht fündig geworden.

Maik

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datenblatt archivieren
 04.01.2016 13:11:20 Maik
Solved
04.01.2016 13:35:20 Gast36714
NotSolved
04.01.2016 13:51:25 Gast83096
NotSolved
04.01.2016 13:56:30 Gast71977
NotSolved
04.01.2016 14:15:10 Gast45508
NotSolved
04.01.2016 14:38:31 Gast25187
NotSolved