Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Zahlen in einem Bereich x 1.04 rechnen

Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 14:35:10
Peter
Guten Tag
Ich muss in verschiedenen Sheets die Zahlen in bestimmten Zellbereichen mal 1.04 rechnen.
Dazu wollte ich mir ein einfaches Makro basteln.
Doch anscheinend habe ich mir das zu einfach vorgestellt.
Ich möchte den Bereich markieren und dann das entsprechende Makro dazu aufrufen.
Wer kann mir helfen?
Danke, Peter

Sub einsnullvier()
Dim SEL As Range
SEL = Selection
SEL = SEL * 1.04
Selection = SEL
End Sub


13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 14:38:51
udoof
Hi Peter,
andere Möglichkeit: Schreib 1,04 in eine Zelle, markiere diese und kopiere sie. Dann markierst Du den Zielbereich, gehst auf Bearbeiten/Inhalte einfügen, und dort auf Vorgang-Multiplizieren. Voilà.
Grüßle,
Udo
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 14:40:32
Peter
Hallo Udo
Das mache ich schon eine Weile so.
Nach dem 20. Mal scheint auch diese Vorgehensweise zu aufwändig.
Gruss, Peter
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 14:52:06
udoof
Hi,
der Macrorekorder schmeisst mir sowas raus:
Selection.Copy
Range("G8:H10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Das entsprechend umbauen sollte reichen.
Grüßle,
Udo
Anzeige
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 14:39:50
D.Saster
Hallo,
dazu brauchst du kein Makro.
1,04 in eine leere Zelle, kopieren, Bereich markieren, Bearbeiten-Inhalte einfügen, Werte und multiplizieren anhaken.
Gruß
Dierk
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 14:42:09
Peter
Hallo Dierk
Mit der Zeit wird auch das aufwändig.
Wenn ich dem gewünschten Makro nur ein Shortcut hinterlege, wird es doch etwas angenehmer.
Gruss, Peter
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 15:11:06
robert
hi peter,
probier mal das, bereich musst du anpassen
gruß
robert

Sub Test()
Dim A As Long, B As Long
Dim Bereich As Range
Dim myAr
Set Bereich = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
myAr = Bereich
For A = 1 To UBound(myAr)
myAr(A, 1) = myAr(A, 1) * 1.04
Next A
Bereich = myAr
End Sub


Anzeige
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 15:24:02
Peter
Hallo Robert
Deine Antwort hat mich zum Ziel geführt. Vielen Dank!
Gruss, Peter

Sub Test()
Dim A As Long, B As Long
Dim Bereich As Range
Dim myAr
Set Bereich = Range(ActiveSheet.Name & "!" & Selection.Address(0, 0))
myAr = Bereich
For A = 1 To UBound(myAr)
myAr(A, 1) = myAr(A, 1) * 1.04
Next A
Bereich = myAr
End Sub


AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 15:34:06
Peter
Hallo Robert
Ich habe noch eine Anschlussfrage:
Wie kann ich so einen Beriech mit beliebig vielen Spalten multiplizieren?
Wahrscheinlich hängt dies mit den Parametern bei myAr(?) zusammen?
Gruss, Peter
Anzeige
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
01.04.2009 15:47:58
robert
hi,
dann so ?
gruß
robert

Sub Test1()
Dim A As Long, B As Long
Dim Bereich As Range
Dim myAr
Set Bereich = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row)
myAr = Bereich
For A = 1 To UBound(myAr)
For B = 1 To UBound(myAr, 2)
myAr(A, B) = myAr(A, B) * 1.04 'Range("D1").Value
Next B
Next A
Bereich = myAr
End Sub


AW: Alle Zahlen in einem Bereich x 1.04 rechnen
02.04.2009 15:03:29
Peter
Hallo Robert
So klappt das, vielen Dank. Nun nochmals eine Frage: Kann dieser Code angepasst werden, dass die Multiplikation auch bei nicht zusammenhängenden Bereichen funktioniert?
Beispielsweise, wenn in A1:C3 und in D5:G15 und in L20 die Zahlen stehen.
Gruss, Peter
Anzeige
Keine Ahnung-sorry-Frage offen...owT
02.04.2009 16:35:11
robert
AW: Alle Zahlen in einem Bereich x 1.04 rechnen
02.04.2009 16:53:02
robert
hi,
probier das einmal
gruß
robert

Sub test()
Dim Zelle As Range
Dim Bereich As Range
For Each Zelle In Range("A1:A3,d5:g15,L20").SpecialCells(xlCellTypeConstants).Offset(1, 0)
Zelle = Zelle * 1.04
Next
End Sub


AW: Alle Zahlen in einem Bereich x 1.04 rechnen
05.04.2009 22:41:30
Peter
Hallo Robert
Vielen Dank für deinen Input. Ich habe es nun wie folgt gelöst:

Sub testx()
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range(ActiveSheet.Name & "!" & Selection.Address(0, 0))
For Each Zelle In Bereich
Zelle = Zelle * 1.04
Next
End Sub


Gruss, Peter

Anzeige

309 Forumthreads zu ähnlichen Themen

VBA: gerade - ungerade Zahlen
Franz

Guten Morgen Fachleute,
nur ne kurze Frage: wie lautet bitte für VBA die Anweisung "gerade" bzw. "ungerade"? Ich muss abfragen, ob gerade in einer Zeile mit gerader bzw. ungerader Zeilennummer gearbeitet wird.
Danke schon mal und beste Grüße
Franz
18.12.2008 09:43:16
Thread-ID: 1033769
4 Beiträge
Anzeige
perVBA prüfen, ob Internetadresse vorhanden
Rüdiger

Liebe Fachleute für InternetExplorer aus Excel-VBA heraus!
ich habe Excelsheet mit Adressen u.a. auch URLs (und Mailadr.)
ich möchte prüfen, ob die in meiner Liste (eine Spalte) erfassten URLs seit der letzten Mailingsaktion vor einem Jahr noch erreichbar sind:
(In einem weiteren Sc...
19.10.2009 13:06:55
Thread-ID: 1110593
6 Beiträge
Zeilennummer gerade oder ungerade?
Franz

Hallo Fachleute,
vielleicht nur ne Kleinigkeit, ich weiß nicht: wie kann ich im Worksheet.Change-Ereignis ermitteln, ob die Target.Row gerade oder ungerade ist? Geht das?
Danke schonmal und Grüße
Franz
04.03.2010 08:00:58
Thread-ID: 1143199
5 Beiträge
Anzeige
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Per VBA prüfen, ob ein Namen in einer Spalte
stefan

vorhanden ist.
Hallo,
ich einer Spalte mit 10000 Namen möchte ich per VBA rausfinden, ob ein Name (in Celle A1) vorhanden ist.
Wie mache ich das?
Vielen Dank
11.10.2011 18:56:09
Thread-ID: 1233433
4 Beiträge
VBA - Prüfen ob Schaltfläche vorhanden
WalterK

Hallo,
ich möchte prüfen, ob die Formularschaltfläche "WAHR" bereits vorhanden ist und dementsprechend eine MsgBox ausgeben. Irgendetwas klappt nicht, weiß aber nicht wo der Fehler ist. Option Explicit Sub Testmodul() Dim shShape As Shape With ActiveSheet If shShape.Name = "WAHR" Then MsgBo...
11.03.2012 15:44:26
Thread-ID: 1254585
8 Beiträge
0 oder 00 vor einer Zahl
Jäger

Hallo liebe Excelgemeinde,
ich versuche ein txt-File in Excel zu importieren.
In Spate D stehen "Zahlen", die aber mit 0 oder 00 beginnen.
Excel lässt die 0 weg was ja auch richtig ist es gibt keine Zahl die mit 0 beginnt.
Ich habe versucht die Spalte als Text zu formatieren...
27.06.2012 20:43:09
Thread-ID: 1269230
9 Beiträge
Per VBA prüfen, ob Nutzer in SAP angemeldet ist
Maximilian

Hallo!
Hat jemand eine Idee, wie ich vor dem Beginn meines Skript prüfen kann, ob der Nutzer im SAP angemeldet ist?
Ich könnte beispielsweise nach dem Fenster "SAP Easy Access" suchen. Weiß jemand, wie das geht?
Vielen Dank!
31.10.2012 11:18:13
Thread-ID: 1284599
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
7
5
4
3
3
3
7
8
1
1
2
13
2
2
4
2
5
2
2
7
3
4
8
2