Office: (Office 2016) Daten in andere Tabelle übertragen

Hallo,

ich möchte Daten aus Tabelle1 in Tabelle2 übertragen.

Tabelle1 = A4 & B4

in Tabelle2 nebeinander in G5 & H5 ohne die Formatierung im Ziel zu ändern nur die Werte sollen übernommen werden.

Dazu soll in I5 das Datum mit Uhrzeit vom Übertragen eingefügt und auch nicht mehr verändert werden.

Ich danke vorab!

 

Hi,

das kannst du mit folgendem Code im Codemodul von Tabelle1 realisieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1).Address(False, False) = "A4" Then
        With Worksheets("Tabelle2")
            .Range("G5") = Target.Value
            .Range("I5") = Date
        End With
    ElseIf Target.Cells(1).Address(False, False) = "B4" Then
        With Worksheets("Tabelle2")
            .Range("H5") = Target.Value
            .Range("I5") = Date
        End With
    End If
End Sub

Bis später,
Karin

 

Hallo,

worin besteht hier die Schwierigkeit?

Um im Arbeitsblatt "Tabelle2"

• in Zelle G5 den Wert aus Tabelle1!A4 zu ermitteln mit Formel: =Tabelle1!A4
• in Zelle H5 den Wert aus Tabelle1!B4 zu ermitteln mit Formel: =Tabelle1!B4

Um nicht änderbare Zeitstempelwerte in Tabelle2!I5 zu speichern, gibt es 2 Möglichkeiten:

• 1) Zelle I5 markieren bzw. selektieren
  2) Folgende Tastenfolgen drücken: Tastenkombination Strg+".", gefolgt von der Leertaste, gefolgt von der Tastenkombination Strg+Umschalt+"."
  (Siehe dazu den Microsoft-Link: https://support.office.com/de-de/ar...ne-Zelle-b5663451-10b0-40ab-9e71-6b0ce5768138
• Die Alternative bestünde darin, ein kleines VBA-Makro zu schreiben, das über einen Button ausgeführt wird.