[nl-users] VBA - nieuwe rij automatisch creëren

Hallo
In MS-Excel gebruik ik een spreadsheet met een VBA-code (die ik niet zelf
ontwierp) waardoor automatisch een rij bijgemaakt wordt onder de rij waarin
ik data ingeef en dit wanneer ik in cel B ofwel “i” ofwel “u” ingeef. De
code is :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rij As Integer, Kolom As Integer
Dim Waarde As String

  Rij = Target.Row
  Kolom = Target.Column

  If Kolom = 2 Then
    Application.ScreenUpdating = False
    Waarde = UCase(Trim(Target.Value))
    If Waarde = "I" Or Waarde = "U" Then
       Application.CutCopyMode = False
       Rows(Rij & ":" & Rij).Select
       Selection.Copy
       Selection.Insert Shift:=xlDown
       Rows(Rij + 1 & ":" & Rij + 1).Select
       Selection.PasteSpecial Paste:=
xlPasteAllExceptBorders, Operation:=xlNone, _
           SkipBlanks:=False, Transpose:=False
       Selection.ClearContents
       Range("C" & Rij).Select
       Application.CutCopyMode = True
    End If
    Application.ScreenUpdating = True
  End If

Reden : steeds twee rijen open laten tussen de rij waar data ingegeven
wordt en de totalen van de kolommen (en dus ook  : automatisch laten zakken
van de totalen zonder dat ik handmatig rijen moet creëren).

In LibreOffice werkt deze VBA-code bijna. (eerst moet wel de beveiliging
voor macro’s op laag gezet worden :  extra/libreoffice/beveiliging).

Wanneer ik de “i” of u” ingeef wordt de nieuwe rij gecreëerd maar wordt ook
de reeds ingegeven data, zijnde een datum in kolom A en de “i” of “u” in
kolom B gedeleet.

Dit probleem heb ik ook al eens te berde gebracht bij Novel Gooo maar door
het ontstaan van LibreOffice is dat project gestopt.

Kan dit opgelost worden ?

mvg

Luc

-- 
Unsubscribe instructions: E-mail to users+help@nl.libreoffice.org
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/nl/users/
All messages sent to this list will be publicly archived and cannot be deleted