Thema Datum  Von Nutzer Rating
Antwort
04.01.2015 20:28:06 Christian
NotSolved
Blau UPS
 05.01.2015 09:05:43 Gast62279
NotSolved
Rot UPS
 05.01.2015 11:09:31 Christian
NotSolved
09.01.2015 09:19:09 Gast31828
Solved

Ansicht des Beitrags:
Von:
Gast62279		 Datum:
05.01.2015 09:05:43		 Views:
878		 Rating:
     
Antwort:
  Ja
Thema:
UPS

Mit GoTo-Anweisungen wird der Code schwer verständlich, und die Pflege des Codes wird ebenfalls erschwert. Verwenden Sie stattdessen nach Möglichkeit eine Steuerungsstruktur. Weitere Informationen finden Sie unter http://msdn.microsoft.com/de-de/library/ca8tdhcs.aspx

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range
Set c = Target: Set d = c.Offset(, 1)
If Intersect(Range("C:C"), c) Is Nothing Then Exit Sub
If Len(c.Formula) = 0 Then Exit Sub       'Sinnlos
If Not IsNumeric(c.Value) Then Exit Sub   'ditto
If Not IsNumeric(d.Value) Then Exit Sub   'ditto
'
On Error GoTo errh
Application.EnableEvents = False
d.Value = d.Value + c.Value
'
errh:
Application.EnableEvents = True
End Sub

 

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
04.01.2015 20:28:06 Christian
NotSolved
Blau UPS
 05.01.2015 09:05:43 Gast62279
NotSolved
Rot UPS
 05.01.2015 11:09:31 Christian
NotSolved
09.01.2015 09:19:09 Gast31828
Solved