Hallo zusammen,
das Makro funktioniert.
Jetzt möchte ich das bei der Datumseingabe und Texteingabe ein
unterstrich gesetzt wird.
So klappt es nicht:
Cells(lngZeile, Columns.Count).End(xlToLeft).Offset(0, 1) = Format(Date, ("dd.mm.yyyy"))
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Cells(lngZeile, Columns.Count).End(xlToLeft).Offset(0, 1) = Me.TextBox19.Value
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
mfg sigrid