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:
967		 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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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