Thema Datum  Von Nutzer Rating
Antwort
09.11.2018 11:31:39 Pete
NotSolved
09.11.2018 13:07:20 Pete
NotSolved
Rot Historie aus Tabelle vba
 09.11.2018 17:11:07 Gast38237
NotSolved

Ansicht des Beitrags:
Von:
Gast38237		 Datum:
09.11.2018 17:11:07		 Views:
490		 Rating:
     
Antwort:
  Ja
Thema:
Historie aus Tabelle vba		 
Option Explicit

'Tabelle mit 10 Spalten und 20 Zeilen. (A1:J20). Zeile1 enthält Überschriften
'Zelländerung in eine Historie auf der gleichen Seite kopieren. (zb ab "AA1")
'd.h. $AA$1:$AA$10 bereits 1 x mit den Überschriften untereinander gefüllt

' als Ereignis ins Klassenmodul der Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, chng As Range
   
   If Not Intersect(Range("A2:J20"), Target) Is Nothing Then
      For Each c In Target.Cells
         Set chng = Columns("AA").Find _
            (What:=Columns(c.Column).Cells(1), _
               After:=Range("AA1"), _
               LookIn:=xlValues, _
               LookAt:=xlWhole, _
               SearchDirection:=xlPrevious)
               
         With chng.Resize(, 2)
            .Insert xlShiftDown
            .Copy .Offset(-1)
            .Cells(2) = c
         End With
         
      Next c
   End If

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.11.2018 11:31:39 Pete
NotSolved
09.11.2018 13:07:20 Pete
NotSolved
Rot Historie aus Tabelle vba
 09.11.2018 17:11:07 Gast38237
NotSolved