Thema Datum  Von Nutzer Rating
Antwort
14.03.2018 22:09:28 shark
NotSolved
14.03.2018 22:29:13 Werner
Solved
Rot Feld leeren wenn
 15.03.2018 09:41:34 derHöpp
NotSolved
14.03.2018 22:35:39 Gast91670
NotSolved
14.03.2018 23:00:51 shark
NotSolved
15.03.2018 06:17:00 steve1da
NotSolved

Ansicht des Beitrags:
Von:
derHöpp		 Datum:
15.03.2018 09:41:34		 Views:
567		 Rating:
     
Antwort:
  Ja
Thema:
Feld leeren wenn

Moin Werner,

da Target schon ein Rangeobjekt ist, würde ich bei Change-Events immer empfehlen, auf die Umwandlung und Prüfung eines Strings zu verzichten. Mit Intersect bietet sich eine einfache Möglichkeit, im objektorientierten Rahmen zu bleiben. Zudem bietet es sich meiner Meinung nach an, statt hart-codierter Zusammenhänge zwischen den zellen einen mathematischen Zusammenhang zu  verwenden.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge = 1 Then
        If Not Intersect(Target, Range("G2:G3")) Is Nothing Then
            If Target <> "" Then
                Application.EnableEvents = False
                    Target.Offset(-1 + (((Target.Row + 1) Mod 2) * 2)).ClearContents
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

Viele Grüße

derHoepp

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
14.03.2018 22:09:28 shark
NotSolved
14.03.2018 22:29:13 Werner
Solved
Rot Feld leeren wenn
 15.03.2018 09:41:34 derHöpp
NotSolved
14.03.2018 22:35:39 Gast91670
NotSolved
14.03.2018 23:00:51 shark
NotSolved
15.03.2018 06:17:00 steve1da
NotSolved