AW: habe Lösung
21.04.2011 08:27:57
Oberschlumpf
Hi
Ändere diese Zeile
sbEntry Target.Offset(0, -4).Value, Target.Value
um in
sbEntry Target.Offset(0, -4).Value, Target.Value, Target.Offset(0, -2).Value
ändere diese Zeile
Sub sbEntry(ByVal datum As Date, ByVal bemerk As String)
um in
Sub sbEntry(ByVal datum As Date, ByVal bemerk As String, ByVal spalteC As String)
füge unter
.Range("B" & .Cells(Rows.Count, 1).End(xlUp).Row).Value = bemerk
diese Zeile hinzu
.Range("F" & .Cells(Rows.Count, 1).End(xlUp).Row).Value = spalteC
Hilfts?
Ciao
Thorsten