Automatisch nieuwe regel invoegen (HELP!!!)

[dndave]

Beste,

Ik ben druk bezig met een maken van een "simpel" logboek.
Al verschillende topics gelezen en macro's geprobeerd.

Bedoeling is dat wanneer de bovenste regel word ingevuld er automatisch een nieuwe regel boven verschijnt.

In de bijlage een bestand genaamd "voorbeeld"; wanneer de onderste cel word ingevuld komt er direct een nieuwe cel.
Daarnaast het bestand "logboek" dit is het bestand waar ik het in wil hebben.

Het probleem is dat er een regel onder word ingevuld i.p.v. boven.

Wie kan mij helpen?

Bijlagen:
Bekijk bijlage voorbeeld.xls
Bekijk bijlage Logboek.xlsm

 

[Cobbe]

Snap niet echt wat het voorbeeld te maken heeft met het bestand Logboek.

Heb van beiden een tabel gemaakt en je kan nu gewoon onderaan bijvullen.

 

[dndave]

Snap niet echt wat het voorbeeld te maken heeft met het bestand Logboek.

Heb van beiden een tabel gemaakt en je kan nu gewoon onderaan bijvullen.

Hoi Cobbe,

Dank voor je reactie!

Bedoeling is dat wanneer je tekst invoert op de bovenste regel.
Waar jij nu "flmhjdfgj" heb staan en dan op enter drukt dat er dan automatisch een nieuwe lege regel verschijnt.

Bij het voorbeeld bestand komt er een automatisch een nieuwe regel onder wanneer je de laatste invuld.
Voor mijn bestand wil ik het graag andersom hebben.

 

[Timshel]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        With Application
            .EnableEvents = False
            Target.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
            Rows("3:3").Copy
            Rows("2:2").PasteSpecial Paste:=xlPasteFormats
            .CutCopyMode = False
            .EnableEvents = True
            .Goto Target.Offset(, 1)
        End With
    End If
End Sub

 

[dndave]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        With Application
            .EnableEvents = False
            Target.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
            Rows("3:3").Copy
            Rows("2:2").PasteSpecial Paste:=xlPasteFormats
            .CutCopyMode = False
            .EnableEvents = True
            .Goto Target.Offset(, 1)
        End With
    End If
End Sub

Hoi Timshel,

Dank voor je reactie!

Ik heb je code als Macro ingegeven, helaas lukt het mij niet om deze werkend te krijgen.
Kun je mij hiermee verder helpen?

 

[HSV]

Ik heb de code niet getest, maar de code moet in moduleblad van toepassing.

 

[dndave]

Momenteel nog niet gelukt, wie kan me helpen?

 

[ExcelAmateur]

Kijk even of het werkt.