Thema Datum  Von Nutzer Rating
Antwort
Rot Format auf andere Spalten übernehmen
 27.02.2017 12:48:43 Sabrina
NotSolved
27.02.2017 19:03:21 Gast7777
NotSolved
27.02.2017 19:36:24 Gast47174
NotSolved

Ansicht des Beitrags:
Von:
Sabrina		 Datum:
27.02.2017 12:48:43		 Views:
1336		 Rating:
     
Antwort:
  Ja
Thema:
Format auf andere Spalten übernehmen
Hallo Zusammen, ich möchte, dass in jeder Spalte ab Spalte C immer wieder folgende Rechnung durchgeführt wird: Eingegebener Wert multipliziert mit dem Wert aus Spalte B oder wenn nicht mit B2 multiplizierbar, 1,1 und weiter. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$C$2" Then Target = Target * 1.1 If Target.Address = "$C$3" Then Target = Target * 0.6 If Target.Address = "$C$4" Then Target = Target * 79 If Target.Address = "$C$5" Then Target = Target * 110.6 If Target.Address = "$C$6" Then Target = Target * 140 If Target.Address = "$C$7" Then Target = Target * 72 Application.EnableEvents = True End Sub Wenn ich es so mache: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$C$2" Then Target = Target * 1.1 If Target.Address = "$C$3" Then Target = Target * 0.6 If Target.Address = "$C$4" Then Target = Target * 79 If Target.Address = "$C$5" Then Target = Target * 110.6 If Target.Address = "$C$6" Then Target = Target * 140 If Target.Address = "$C$7" Then Target = Target * 72 If Target.Address = "$D$2" Then Target = Target * 1.1 If Target.Address = "$D$3" Then Target = Target * 0.6 If Target.Address = "$D$4" Then Target = Target * 79 If Target.Address = "$D$5" Then Target = Target * 110.6 If Target.Address = "$D$6" Then Target = Target * 140 If Target.Address = "$D$7" Then Target = Target * 72 Application.EnableEvents = True End Sub Dann ist es erstens zu viel Arbeit und zweitens, erhalte ich dann eine Fehlermeldung, dass zu viel Speicher verwendet wird. Hat hier jemand eine Idee für mich? Mit Schleifen oder sonstigem? Viele Grüße

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
Rot Format auf andere Spalten übernehmen
 27.02.2017 12:48:43 Sabrina
NotSolved
27.02.2017 19:03:21 Gast7777
NotSolved
27.02.2017 19:36:24 Gast47174
NotSolved