Thema Datum  Von Nutzer Rating
Antwort
16.02.2017 17:18:50 Fisch
NotSolved
Blau Erhöhen von Markierten Zellen
 16.02.2017 19:05:20 Werner
NotSolved
20.02.2017 09:54:27 Fisch
NotSolved
20.02.2017 11:24:22 Werner
NotSolved
20.02.2017 12:33:14 Fisch
NotSolved
21.02.2017 14:13:01 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
16.02.2017 19:05:20		 Views:
643		 Rating:
     
Antwort:
  Ja
Thema:
Erhöhen von Markierten Zellen

Hallo,

angenommen, die Prozentzahl um die du die Zellen steht in Zelle A1 (Zelle im Format Standard, nicht als Prozent formatieren).

Folgenden Code in ein allgemeines Modul:

 

Public Sub Prozent()
Dim rngZelle As Range

For Each rngZelle In Selection
    rngZelle.Value = rngZelle.Value + (rngZelle.Value * Range("A1") / 100)
Next rngZelle

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
16.02.2017 17:18:50 Fisch
NotSolved
Blau Erhöhen von Markierten Zellen
 16.02.2017 19:05:20 Werner
NotSolved
20.02.2017 09:54:27 Fisch
NotSolved
20.02.2017 11:24:22 Werner
NotSolved
20.02.2017 12:33:14 Fisch
NotSolved
21.02.2017 14:13:01 Werner
NotSolved