Daten auf 2 Blättern Synchronisieren

Hallo,
ich weiß nicht ob es überhaupt möglich ist mit Excel 2 Tabellenblätter nach Eingabe auf einem Tabellenblatt die Eingabe auf ein anderes zu übertragen.
Ich habe folgendes Problem:
In unserem Schichtplan stehen die Mitarbeiter Waagerecht (Tabellenblatt Waagerecht) das Datum steht oben drüber.
Und einmal Senkrecht (Tabellenblatt Senkrecht) das Datum steht links.
Ich möchte das, wenn ich eine Eingabe auf einem der beiden Tabellenblätter mache diese bei dem gleichen Mitarbeiter am gleichen Tag übertragen wird.
Wenn nur auf einem Tabellenblatt Einträge gemacht werden könnte ich es mit einer Formel
Index Vergleich erledigen. Da aber auf beiden Tabellenblätter Eintragungen gemacht werden funktioniert es mit der Formel leider nicht.
Am besten wäre es mit einem Makro welches die Eingabe direkt nach der Eingabe auf das jeweils andere Tabellenblatt überträgt.
Ich hoffe das ich mein Problem verständlich erklärt habe.
Eine Beispiel Tabelle habe ich hochgeladen.
https://www.herber.de/bbs/user/157255.xlsx
schon mal vorab vielen Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Holger
ich schicke dir mal meinen geaenderten Entwurf, im Makro steht mit ## ob es in die Waagerecht oder Senkrecht Tabelle gehört. Die beiden darfst du nicht verwechseln! Die Codes sind darauf angepasst!
Bei diesem Code kannst du mehrere Zellen selektieren, und gibst das Kürzel nur in die 1. Zelle ein!
Die anderen Zellen werden automatisch ausgefüllt und das Ergebnis in die andere Tabelle kopiert.
Mir fiel auch ein das man ja ggf. in beiden Tabellen Werte löschen muss. Das ist auch korrigiert.
Prüfe bitte mal ob damit alles einwandfrei funktioniert. Würde mich serh freuen ...
mfg Piet
'## Senkrecht Tabelle ##

Dim Datum As Date, MtaNr As Integer '14.1.2023 Piet für Herber Forum
Dim VName As String, FName As String '14.1.2023 Selection eingebaut
Dim AC As Range, lsp As Long, LSpa '## Senkrecht Tabelle ##
Dim AJ As Range, lz1 As Long


Private Sub Worksheet_Change(ByVal Target As Range)
lsp = Cells(1, Columns.Count).End(xlToLeft).Column
lz1 = Cells(Rows.Count, 1).End(xlUp).Row
On Error GoTo Fehler
If Target.Column > lsp Then Exit Sub
If Target.Column  lz1 Then Exit Sub
If Target.Row

'## Waagerecht Tabelle ##

Dim Datum As Date, MtaNr As Integer '14.1.2023 Piet für Herber Forum
Dim VName As String, FName As String '14.1.2023 Selection eingebaut
Dim AC As Range, lsp As Long, LSpa '## Waagerecht Tabelle ##
Dim AJ As Range, lz1 As Long


Private Sub Worksheet_Change(ByVal Target As Range)
lsp = Cells(9, Columns.Count).End(xlToLeft).Column
lz1 = Cells(Rows.Count, 1).End(xlUp).Row
On Error GoTo Fehler
If Target.Column > lsp Then Exit Sub
If Target.Column  lz1 Then Exit Sub
If Target.Row

Beliebteste Forumthreads (12 Monate)

Daten auf 2 Blättern Synchronisieren

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread