Letzte eingefügte Zeile immer oben

Private Sub Worksheet_Activate() Dim Passw As String Passw = InputBox("Geben Sie Ihr Passwort ein") If Passw = "TEST" Then 'Pw anpassen MsgBox ("Hallo " & Passw) ActiveSheet.Unprotect Password:="TEST" Else MsgBox ("Sie " & Passw & " haben keine Berechtigung um hier Änderungen zu machen") ActiveSheet.Protect Password:="TEST" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim lngZeile As Long Application.EnableEvents = False With Worksheets("Benutzer") lngZeile = .Range("A65536").End(xlUp).Row + 1 .Cells(lngZeile, 1).Value = Environ("UserName") 'Benutzer .Cells(lngZeile, 2).Value = Date 'Datum .Cells(lngZeile, 3).Value = Time 'Zeit .Cells(lngZeile, 4).Value = Sh.Name 'Blattname, auf dem geändert wurde .Cells(lngZeile, 5).Value = Target.Address 'Zelle der Änderung .Cells(lngZeile, 6).Value = Target.Value 'neuer Eintrag .Cells(lngZeile, 7) = oldValue 'vorheriger Wert End With Application.EnableEvents = True End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim lngZeile As Long Application.EnableEvents = False With Worksheets("Benutzer") .Rows(1).Insert .Cells(1, 1).Value = Environ("UserName") 'Benutzer .Cells(1, 2).Value = Date 'Datum .Cells(1, 3).Value = Time 'Zeit .Cells(1, 4).Value = Sh.Name 'Blattname, auf dem geändert wurde .Cells(1, 5).Value = Target.Address 'Zelle der Änderung .Cells(1, 6).Value = Target.Value 'neuer Eintrag .Cells(1, 7) = oldValue 'vorheriger Wert End With Application.EnableEvents = True End Sub

Hallo !
ich habe gerade festgestellt, das, wenn ich was ändere das zwar in die 2te Zeile geschrieben wird, jedoch meine Überschriften in der ersten zeile weg sind und die zweite Zeile so formartiert sind, wie die erste zeile war, jedoch die erste Zeile fehlt und es kann nichts mehr hineingeschrieben werden, denn dann speichert der Code das wieder in die zweite Zeile>>>> als Änderung sozusagen.
Kann man das irgendwie umgehen ? Hoffe ich habe mich verständlich ausgedrückt ......
Danke im voraus
chris


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngZeile As Long
Application.EnableEvents = False
With Worksheets("Benutzer")
.Rows(1).Insert
.Cells(2, 1).Value = Environ("UserName") 'Benutzer
.Cells(2, 2).Value = Date 'Datum
.Cells(2, 3).Value = Time 'Zeit
.Cells(2, 4).Value = Sh.Name 'Blattname, auf dem geändert wurde
.Cells(2, 5).Value = Target.Address 'Zelle der Änderung
.Cells(2, 6).Value = Target.Value 'neuer Eintrag
.Cells(2, 7) = oldValue 'vorheriger Wert
End With
Application.EnableEvents = True
End Sub

Hi Chris
besser als Hilfe ist Hilfe zur Selbsthilfe, daher hier folgender Hinweis:
wenn du in Excel XP eine Zeile einfügst, erscheint normalerweise auf bei der ersten eingefügten Zelle ein kleines Quadrat. Wenn du da draufklickst, kannst du auswählen, ob die Formatierung der oberen oder unteren Zelle übernommen werden soll.
Mach das mal, aber zeichne diese aktion mit dem Makrorekorder auf.
Dann siehst du, wie du dein Problem lösen kannst.
wenn du dieses Quadrat beim Einfügen nicht erscheint, musst du unter
EXTRAS - OPTIONEN - BEARBEITEN das Häkchen bei "Optionen - Schaltfläche beim Einfügen von Zellen und Objekten" setzen. (Hinweis noch für alle Mitleser: das gibts erst ab Excel XP)
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Letzte eingefügte Zeile immer oben

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Letzte eingefügte Zeile immer oben

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread