Excel online (Web version)

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich möchte folgenden script in Excel Web verwenden

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("b1")) Is Nothing Then
Application.ScreenUpdating = False

    With ThisWorkbook.Worksheets("Lohnzettel")
        .Range("p7").Copy
        .Range("D7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
        .Range("B1").Select
    End With
    
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub

leider tut sich da nix.

weiß jemand rat

Danke Manfred

#2

Moin,

was sollte sich denn tun? So lang niemand B1 anlangt, tut sich eh nichts. Andernfalls wird das Screen stillgelegt und man sieht - nichts.

Fummel mal ein paar Messageboxen dazwischen à la „bin da“, „bin dort“, auch in den ELSE-Zweig.

Gruß
Ralf