Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prozentuale Steigerung

Prozentuale Steigerung
27.06.2005 11:23:17
Thomas
Hallo,
hat jemand einen Ansatz in VBA für folgende Aufgabe:
Wie kann ich in vorhandene Zahlenwerte über einen Command Button um z.B.
5 % erhöhen,wenn ich die gewünschte Zeile markiere
Beispiel:
Ursprungswert
A1 =100
Neuer Wert
Command button anklicken
A1 = 105
Danke für die Hilfe
Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prozentuale Steigerung
27.06.2005 11:33:06
Markus
Hallo Thomas
Vielleicht so?

Sub erhöhen()
Dim wert As Double
wert = Sheets("Blatt").Cells(8, 3)
Sheets("Blatt").Cells(8, 3) = wert * 1.05
End Sub


Sub senken()
Dim wert As Double
wert = Sheets("Blatt").Cells(8, 3)
Sheets("Blatt").Cells(8, 3) = wert / 1.05
End Sub

Gruss
AW: Prozentuale Steigerung
27.06.2005 13:10:26
Thomas
Hallo Markus,
Danke für die Hilfe.
Habe es so eingegeben, geht leider nicht
Was bedeutet den hinter Cells( 8, 3) sorry für die dumme frage
Gruß

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige