ich habe folgendes Problem.
Ich möchte eine Chronik erzeugen.
Meine Tabelle hatt über 1000 Zeilen.
Ziel ist es eine Rückmeldung von Karten zu speichern.
Dazu möchte ich das wenn ich ein Datum Via Doppelklick in Tabelle 1 Zelle A1 Eintrage. Das das Datum in Tabelle 2 in Zelle B1 Kopiert wird.
Bei einem Weiteren Doppelklick das Datum in Tabelle 1 Zelle A1 in Tabelle 2 Zelle C1 eingtragen wird.
Soweit habe ich es schon
Und das ganze eben für 1000 Zeilen.
Also A2 in B2; A3 in B3 usw.
für die Einzelen Zeile habe ich es zusammengebastelt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim varCol: varCol = "A"
' varCol = "A" ' Datum wird nur in Spalte A gesetzt
If Target.Cells.Count = 1 Then
If varCol = "" Then varCol = Target.Column
If Not Intersect(Target, Columns(varCol)) Is Nothing Then
Cancel = True
Target.Value = Date
End If
If Target.Address = "$A$1" Then
ActiveSheet.Range("A1").Copy Tabelle2.Cells(1, Tabelle2.Cells(1, Columns.Count).End(xlToLeft). _
_
Column + 1)
End If
End If
End Sub
Danke schon mal jetzt für die Hilfe
Gruß Christoph