Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prozentrechnung

Prozentrechnung
10.10.2006 00:34:31
Stötter
Hallo,
benötige eine Formel bei der folgendes passiert.
Ich möchte in A1 eine zahl eingeben die dann automatisch mit 20 prozent
erhöht wird.
Gibts da eine passende Formel
Beispiel:
Ich geb 100 ein und 120 erscheint
gruß Fred

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prozentrechnung
10.10.2006 00:48:53
Ali
Hi,
nix Formeln, VBA!
mfg Ali
AW: Prozentrechnung
10.10.2006 08:18:26
Dr.
Hi,
wie schon geschrieben, sollen die 120% in derselben Zelle erscheinen, nur per VBA. In einer anderen Zelle ist das per Formel möglich.
AW: Prozentrechnung
10.10.2006 10:48:20
Peter
Hallo Fred,
mit dem folgenden Makro geht es für Spalte A von Zeile 1 bis 100

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Betrag As Double
If Target.Column = 1 And Target.Row > 0 And Target.Row < 100 Then
Betrag = Target.Value + Target.Value * 0.2
Application.EnableEvents = False
Target.Value = CDbl(Betrag)
Application.EnableEvents = True
End If
End Sub

Rechtklick auf den Tabellenblattreiter des fraglichen Blattes.
Linksklick auf Code anzeigen.
Makro kopieren.
Alt + Q
und ausprobieren.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Prozentrechnung
10.10.2006 13:39:34
Stötter
Du bist genial Peter, funktioniert hervorragend
AW: Prozentrechnung nochmal
11.10.2006 12:55:44
Stötter
Hallo Peter,
was muss ich eigentlich tun wenn ich mehrere Spalten
so berechnen will.
Also zum Beispiel die Spalten A-C, Zeilen 9-100 ?
Könntest du mir da nochmals helfen die erste Formel war ja
spitzenmäßig.
Gruß Fred
AW: Prozentrechnung nochmal
12.10.2006 09:23:16
Peter
Hallo Fred,
dann versuch es mit dem nachfolgenden Makro:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Betrag As Double
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Or Target.Column < 4 And _
Target.Row > 8 And Target.Row < 100 Then
Betrag = Target.Value + Target.Value * 0.2
Application.EnableEvents = False
Target.Value = CDbl(Betrag)
Application.EnableEvents = True
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Prozentrechnung nochmal
12.10.2006 12:10:15
Stötter
Vielen Dank du bist echt spitze.
Gruß Fred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige