Datum

Titel

15.04.2024 23:32:21

Darstellung im IMAGE sehr schlecht

15.04.2024 21:08:34

PDF mit Makro erstellen mehrere Sheets

15.04.2024 18:38:39

Arbeitszeiten Vorlage ergänzen

15.04.2024 17:34:30

Fehlende Zeilen automatisch nach Zeiten ergänzen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1060to1064

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Spalte multiplizieren

Forumthread: Spalte multiplizieren
11 Beiträge zu diesem Forumthread
Anzeige
189 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

24.03.2009 18:54:16

Kai

Hi,
ich möchte alle Einträge (alles Zehlen) in einer Spalte (B20:B100) mit einem Makro mit dem wert 24 multiplizieren. Also jeder Eintrag ab B20 soll mit 24 multipliziert werden. Das ganze soll per Makro geschehen, nicht mit einer Formel.
Wie kann man das den machen ?
Danke
Kai

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalte multiplizieren

24.03.2009 19:02:55

Disco
Danke, teste ich...

24.03.2009 19:12:08

Kai
AW: Danke, teste ich...

24.03.2009 19:12:58

Timmy
OK, jetzt ists klar, Danke :-)

24.03.2009 19:15:19

Kai
AW: Spalte multiplizieren

24.03.2009 19:05:36

Timmy
Korrektur: for i=20 to 100 owT

24.03.2009 19:06:18

Timmy
Danke Timmy owT

24.03.2009 19:14:35

Kai
AW:noch eine Art

24.03.2009 19:16:38

hary
AW: AW:noch eine Art

24.03.2009 19:46:15

Makrigiannis
Ohne Makro und ohne Formel!

24.03.2009 22:00:21

Backowe
Danke an alle.....

25.03.2009 07:15:10

Kai

AW: Spalte multiplizieren

24.03.2009 19:02:55

Disco

Hallo Kai,
das kannst Du so realisieren:


Sub multiplizieren()
Dim i As Long
For i = 20 To 100
Cells(i, 2) = Cells(i, 2) * 24
Next i
End Sub

Gruß
Henning

Danke, teste ich...

24.03.2009 19:12:08

Kai

...für was für ein Parameter steht denn die 2 ?
Gruss
Kai

AW: Danke, teste ich...

24.03.2009 19:12:58

Timmy

Fuer die Spalte B!
Gruss
Timmy

OK, jetzt ists klar, Danke :-)

24.03.2009 19:15:19

Kai

AW: Spalte multiplizieren

24.03.2009 19:05:36

Timmy

Hi Kai,
wie folgt:


Sub multiplizieren()
Dim i As Long
for i=20 to 500
cells(i,2)=cells(i,2)*1.24
next i
End Sub

Gruss
Timmy

Korrektur: for i=20 to 100 owT

24.03.2009 19:06:18

Timmy

Danke Timmy owT

24.03.2009 19:14:35

Kai

AW:noch eine Art

24.03.2009 19:16:38

hary

Hi Kai


Sub multi()
Dim c As Range   ' c fuer Zelle
For Each c In Range("B20:B100")
c = c * 24
Next
End Sub

Gruss hary

AW: AW:noch eine Art

24.03.2009 19:46:15

Makrigiannis

und noch eine
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Const Multiplikator1 As Currency = 24
Application.EnableEvents = False
For Each rngZelle In Target
If Not Intersect(rngZelle, Range("B20:B100")) Is Nothing And IsNumeric(rngZelle) And  _
rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator1)
End If
Next rngZelle
Application.EnableEvents = True
End Sub

Ohne Makro und ohne Formel!

24.03.2009 22:00:21

Backowe

Hi Kai,
https://www.herber.de/forum/messages/1063001.html
Gruß JP

Danke an alle.....

25.03.2009 07:15:10

Kai

....so viel Auswahl habe ich ja noch nie gehabt :-)
werde für mich die beste nehmen
Gruss
Kai