Hallo liebe VBA oder VBS "Verrückten"!
Auf dieser Seite will ich Eum meine kleinen Helferchen in Excel, Word und ohne Applikation zeigen.
Zeilenrevision - Code einfach in eine Tabelle nicht in ein Modl kopieren:
' \\\\|////
' \\ _ _ //
' ( o o )
'================oOOo-(_)-oOOo================================================
' automatische Änderungsverfolgung
' Makro am 01.10.2012 von Ralf Domschke erstellt
'========================oOOo=================================================
' oooO ( )
' ( ) ) /
' \ ( (_/
' \_)
Sub Worksheet_SelectionChange(ByVal target As Range)
Set target = Intersect(target, Range("A2:G200"))
'Beispiel für mehrere getrennte Bereiche
'Set target = Intersect(target, Range("A2:C200, E2:G200"))
If target Is Nothing Then Exit Sub
If ActiveWorkbook.MultiUserEditing Then
On Error Resume Next
ActiveWorkbook.ExclusiveAccess
On Error GoTo 0
End If
test = ActiveCell.Text
Set target = Nothing
End Sub
Sub Worksheet_Change(ByVal target As Range)
Dim user, user1, zeile, spalte, kürzung, Textfarbe, Füllfarbe, Textstil
Füllfarbe = Range("H1").Interior.ColorIndex
Textfarbe = Range("H1").Font.ColorIndex
Textstil = Range("H1").Font.Bold
Set target = Intersect(target, Range("A2:G200"))
'Beispiel für mehrere getrennte Bereiche
'Set target = Intersect(target, Range("A2:C200, E2:G200"))
If target Is Nothing Then Exit Sub
If target.Text <> test Then
On Error Resume Next
zeile = target.Row
spalte = target.Column
Cells(zeile, spalte).Font.ColorIndex = Textfarbe 'macht Text in geänderte Zelle farbig anhand Zelle H1
Cells(zeile, spalte).Font.Bold = Textstil 'macht Text in geänderte Zelle Fett oder normal anhand Zelle H1
Cells(zeile, spalte).Interior.ColorIndex = Füllfarbe 'macht Hintergrund in geänderte Zelle farbig anhand Zelle H1
user = Environ("UserName") 'aktiver Username
user = UCase(user) 'liefert User in Großbuchstaben
user1 = Len(user)
kürzung = user1 - 2
user = Left(user, user1 - kürzung) 'schneidet auf die ersten beiden Buchstaben ab
Range("H" & target.Row) = Range("I1") & " " & Format(Now, " YYYY-MM-DD hh:mm ") & user 'schreibt Zeilenrevision nach Hn und nimmt Zustand aus I1
Range("H" & target.Row).Font.ColorIndex = Textfarbe 'macht Usereintrag in geänderte Zeile farbig anhand Zelle H1
Range("H" & target.Row).Font.Bold = Textstil 'macht Usereintrag in geänderte Zeile Fett oder normal anhand Zelle H1
Range("H" & target.Row).Interior.ColorIndex = Füllfarbe 'macht Hintergrund des Usereintrags in geänderte Zeile farbig anhand Zelle H1
On Error GoTo 0
End If
Set target = Nothing
End Sub