AW: Aktuelle Zeile farbig makieren
12.07.2009 17:26:15
Volker
anbei der Code der im Tabelle1 steht.
Ich habe deinen Code in einer Leeren Tabelle probiert, ok er läuft, hatte zuerst der Fehler gemacht.
Wenn du dabei bist, es sollte die >ganze Zeile
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Application.EnableEvents = False
Intersect(Target.EntireRow, Columns(19)).Value = Environ("Username") 'Spalte S Benutzername
Intersect(Target.EntireRow, Columns(17)).Value = Date 'Spalte Q Datum
Intersect(Target.EntireRow, Columns(18)).Value = Target.Column 'Spalte R Veränderung
Application.EnableEvents = True
ActiveSheet.Unprotect 'BLATTSCHUTZ AUFHEBEN
ActiveSheet.Shapes("Text Box 12").Select 'Textbox 12 anspringen
Selection.Characters.Text = Range("U1") & Chr(10) & "* neu+überprüft § ausgelistet _
Food Lieferant GROSS "
'textbox selektieren und den Text vom Zelle U1 &Text aus den Anführzeichen zusammen stellen
With Selection.Characters(Start:=1, Length:=14).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
'Range("B1").Select
ActiveSheet.Protect
End Sub