Daten in einem zweiten Arbeitsblatt zusammenführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,
vielen Dank für die schnelle Rückmeldung.
Anbei die Antworten zu deinen Fragen:
F: Sind die Namen der Tabellenblätter in Deinem Original auch "Datenblatt xx" und "Auswertung xx"?
A: Nein die Tabellenblätter heißen z.B. Hochstraße / Landstraße, die Auswertungen dann entsprechend Auswertung_Hochstraße / Auswertung_Landstraße
F: Ist das entsprechende Tabellenblatt "Auswertung xx" immer schon vorhanden?
A: Ja
F: Was soll geschehen, wenn doppelte Werte entstehen, also die eingegebenen Werte schon abgespeichert sind?
A: Die neuen Werte sollen trotzdem abgespeichert werden, es kann vorkommen, dass gleiche Werte eingegeben werden, dies ist durchaus beabsichtigt.
F: Welcher Bereich in den "Datenblatt xx" ist "datenrelevant", wo und wie wird dass vorgegeben?
A: Es sind alle Bereiche relevant, die unter den Überschriften "Daten 1, Daten 2" etc liegen. Es wird in den ersten paar Zeilen (wie viele kann ich noch nicht sagen) wahrscheinlich noch ein paar Benutzerhinweise geben.
F: Gibt es Pflichtangaben in den "Datenblatt xx"?
A: Nicht direkt, nicht jeder Punkt der im Datenblatt aufgeführt wird muss ausgefüllt werden.
F: Wie soll gespeichert werden, die Änderungen der Mappe oder als neue Mappe, oder.. oder..??
A: Es soll möglichst in der gleichen Mappe gespeichert werden.
Gruß

Hallo Sam,
ein Ansatz, der aber voraussetzt, das die Tabellenblätter Auswertung auch existieren!

Option Explicit
Sub Datenkopieren()
Dim wksorg As Worksheet, wkscop As Worksheet
Dim spalteorg As Long, zeileorg As Long, zeilecop As Long
Set wksorg = ActiveWorkbook.ActiveSheet
Set wkscop = ActiveWorkbook.Worksheets("Auswertung_" & ActiveWorkbook.ActiveSheet.Name)
spalteorg = wksorg.Cells(3, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
With wksorg
zeileorg = .Range(.Columns(1), .Columns(spalteorg)).Find(what:="*", After:=.Cells(1, 1),  _
LookIn:=xlValues, _
SearchDirection:=xlPrevious).Row
If zeileorg < 4 Then
MsgBox "Keine Daten da!"
Exit Sub
End If
.Range(.Cells(4, 1), .Cells(zeileorg, spalteorg)).Copy
End With
With wkscop
zeilecop = .Range(.Columns(1), .Columns(spalteorg)).Find(what:="*", After:=.Cells(1, 1),  _
LookIn:=xlValues, _
SearchDirection:=xlPrevious).Row + 1
.Cells(zeilecop, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,  _
Transpose:=False
End With
With wksorg
.Range(.Cells(4, 1), .Cells(zeileorg, spalteorg)).ClearContents
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

MfG Christian

Beliebteste Forumthreads (12 Monate)

Daten in einem zweiten Arbeitsblatt zusammenführen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread