kopiere von reinen Werten in das nächste

reinen · 2020-04-17T14:36:38+00:00

Hallo zusammen, ich baue gerade für mein Löschzug eine Datei für unseren Meldekopf für Großschadenslagen. Soweit so Gut, Damit die Datenbank reine Daten bekommt, soll aus der Meldekopfeingabe die reinen Werte via VBA in ein eigenes Tabellenblatt kopieren. Dies soll ohne Formatierung oder ggf. Formeln passieren. Von Dort greif dann die Datenbank die Werte ab. Datei anbei. Könnt Ihr mir dabei helfen. https://www.herber.de/bbs/user/136818.xlsm

Hallo,
mir sind grundsätzlich die Optionen von Excel bekannt, bei mir fehlt es nur an VBA.
Mir scheint es, das ich mich fälschlich ausgedrückt habe.
Die Datei wird während der Besetzung des Meldekopfes dauernd offen genutzt. In Stoßzeiten kann diese nicht geschlossen werden, geschweige denn, das jemand was kopieren und woanders einfügen kann.
Daher suche ich eine VBA welche mir die reinen Werte des einen Tabellenblatttes in ein anderes Tabellenblatt kopiert, ohne Formatierung oder Formeln.
Zu kopieren sind nur veränderte Werte oder neue Werte. Das Geschehen kann in Sekunden zu einer wahren Datenflut aufbrausen. Daher brauchen wir dort einen Automatismus.
Die Weiterverarbeitung wird über eine linuxbasierte Datenbank erfolgen. Die Schnittstelle ist fertig, wir wissen nur nicht wie wir mittels VBA die Werte "rein" in ein anderes Tabellenblatt inTime automatisiert kopiert bekommen.
Vielleicht kann ja jemand helfen.
Die Daten werden dann an anderer Stelle visualisiert.
Ich hoffe, man kann jetzt mein bzw. unser Anliegen verstehen.
Aber schon mal Danke für die bis jetzt erfolgten Hilfestellungen und für zukünftige Hilfestellungen

Hi
mit dieser Datenrutsche wird Alles ab "A3:S3" (ev. anpassen) abwärts bis zur ersten freien Zelle in Spalte B (weil in Spalte A stehen Formeln bis weit runter) kopiert und im Blatt "Daten" (ev. anpassen) in die erste freie Zelle in Spalte A angehängt.


Option Explicit
Sub DatenRutsche()
Dim rErsteZeile  As Range, wsZiel As Worksheet
Set rErsteZeile = Worksheets("Meldekopf Nord").Range("A3:S3")
Set wsZiel = Worksheets("Daten")
With rErsteZeile
.Resize(.Cells(2).End(xlDown).Row - .Row + 1).Copy
wsZiel.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:= _
xlPasteValuesAndNumberFormats
End With
End Sub

Es wird nicht berücksichtigt, was in "Daten" noch vom letzten Kopiervorgang drinnen ist.
LGB

kopiere von reinen Werten in das nächste

Forumthread: kopiere von reinen Werten in das nächste

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

kopiere von reinen Werten in das nächste

Forumthread: kopiere von reinen Werten in das nächste

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread