Thema Datum  Von Nutzer Rating
Antwort
18.03.2020 14:44:38 Michael
*****
NotSolved
Blau Spaltenkopieren bei Veränderung bestimmter Zellenwerte Sprengt Excel
 18.03.2020 15:08:58 Werner
*****
Solved
19.03.2020 11:09:19 Gast70209
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
18.03.2020 15:08:58		 Views:
681		 Rating:
     
Antwort:
 Nein
Thema:
Spaltenkopieren bei Veränderung bestimmter Zellenwerte Sprengt Excel

Hallo,

du mußt die Events abschalten sonst landest du in einer Endlosschleife, beim Einfügen wird das Change Event immer wieder ausgelöst.

Private Sub Worksheet_Change(ByVal Target As Range)
   
If Target.Address(0, 0) = "D4" Then
    If IsNumeric(Target.Value) Then
        If Target.Value >= 1 Then
            Application.EnableEvents = False
            Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Rows("4:4").Copy Range("A5")
            Application.EnableEvents = True
        End If
    End If
End If
    
End Sub

 

Gruß Werner

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
18.03.2020 14:44:38 Michael
*****
NotSolved
Blau Spaltenkopieren bei Veränderung bestimmter Zellenwerte Sprengt Excel
 18.03.2020 15:08:58 Werner
*****
Solved
19.03.2020 11:09:19 Gast70209
NotSolved