Thema Datum  Von Nutzer Rating
Antwort
19.04.2025 16:13:43 Sam
Solved
Blau Laufzeitfehler bei Löschen mehrerer Einträge
 19.04.2025 17:52:11 xlKing
*****
Solved
19.04.2025 20:23:41 Sam
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
19.04.2025 17:52:11		 Views:
26		 Rating:
     
Antwort:
 Nein
Thema:
Laufzeitfehler bei Löschen mehrerer Einträge

Hi Sam,

wenn du mehrere Zellen auf einmal löschst oder über Copy und Paste einfügst, gibt Target logischerweise den entsprechenden Zellbereich zurück und nicht nur eine einzelne Zelle. Daher der Laufzeitfehler, weil Target.Value dann ein Array zurückgibt. Du müsstest also alle geänderten Zellen durchlaufen und, wenn diese sich in Spalte B befinden, dann nur deinen Code ausführen. Dafür gibts z.B. For Each. Probier es mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim tgt As Range
    
  For Each tgt In Target.Cells
    If Not Intersect(tgt, Range("B:B")) Is Nothing Then
      Select Case tgt.Value
      Case Is <> ""
        Application.EnableEvents = False
        tgt.Offset(0, 16) = Sheets(3).Range("N1")
        Application.EnableEvents = True
      End Select
        
      Select Case tgt.Value
      Case Is = ""
        Application.EnableEvents = False
        tgt.Offset(0, 16) = 0
        Application.EnableEvents = True
      End Select
    End If
  Next tgt
End Sub

Gruß Mr. K.

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
19.04.2025 16:13:43 Sam
Solved
Blau Laufzeitfehler bei Löschen mehrerer Einträge
 19.04.2025 17:52:11 xlKing
*****
Solved
19.04.2025 20:23:41 Sam
NotSolved