Zellenbereich eines Sheets auto. Formatieren
Stephan
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Dim Spalte As Long
Dim Zelle As String
Dim Loletzte As Long
Dim Zeit As Date
Dim NewWert As String
Dim User As String
Dim Pfd As String
If Target.Count > 1 Then
Exit Sub
End If
With Worksheets("Doku")
Loletzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Pfd = ThisWorkbook.FullName
User = Environ("Username")
Zeit = Now
Zeile = Target.Row
Zelle = Target.Address
Spalte = Target.Column
NewWert = Target.Value
.Cells(Loletzte, 1) = Zeit
.Cells(Loletzte, 2) = Zelle
.Cells(Loletzte, 3) = Cells(3, Spalte).Text
.Cells(Loletzte, 4) = Cells(Zeile, 2).Text
.Cells(Loletzte, 5) = OldWert
.Cells(Loletzte, 6) = NewWert
.Cells(Loletzte, 7) = ActiveSheet.Name
.Cells(Loletzte, 8) = User
.Cells(Loletzte, 9) = Pfd
End With
End Sub
Nun habe ich das Problem, das beim Dokumentieren der Werte:
.Cells(Loletzte, 5) = OldWert
.Cells(Loletzte, 6) = NewWert
auch die Formate der Quellzelle mitgenommen werden.
Ich möchte in den beiden Spalten des Worksheets "Doku" aber z.B. keinen Zeilenumbruch.
Zum besseren Verständniss habe ich eine Beispieldatei beigelegt. In dieser werden bei Änderungen im Sheet "Aufträge" die Änderungen in "Doku" gespeichert. In dieser sollen alle Zellen der Spalte E und F immer keinen Zeilenumbruch haben.
https://www.herber.de/bbs/user/76694.xls
Gruß
Stephan