Hallo Excel-Freunde,
irgendwie komme ich nicht weiter, habe schon viele "Befehle" über VBA in Excel hier versucht, aber keine Lösung.
Ich weiß, dass eine Beispieldatei hier von Vorteil wäre, aber ich denke es geht auch ohne.
Mein Makro funktioniert einwandfrei, aber ich möchte eben, dass auch aus der Spalte B der Tabelle A das eingetragene Datum mit kopiert wird.

Hier mein Makro:
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
If Target.CountLarge > 1 Then Exit Sub
If Sh.Name = "Kosten" Or Sh.Name = "Tanken" Then
If Not Intersect(Target, Sh.Range("B7:O1000")) Is Nothing Then
Application.EnableEvents = False
With Sheets("Protokoll")
ErsteFreieZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(ErsteFreieZeile, 1) = Now
.Cells(ErsteFreieZeile, 2) = Sh.Name
.Cells(ErsteFreieZeile, 3) = Target.Address(0, 0)
.Cells(ErsteFreieZeile, 5) = Target.Value
.Cells(ErsteFreieZeile, 6) = Environ("Computername")
.Cells(ErsteFreieZeile, 7) = ThisWorkbook.FullName
End With
Application.EnableEvents = True
End If
End If
End Sub

Ich möchte nun, dass "" .Cells(ErsteFreieZeile, 8) = "Das Datum von der Spalte B aus der Tabelle A" als 'Befehl' hier funktionieren sollte "" und mit übernommen wird. Ich hoffe meine Anfrage ist verständlich.

Grüße
Wolfgang