Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Zahlen in einem Bereich x 1.04 rechnen

Forumthread: 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


Anzeige

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
Anzeige
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
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
Anzeige
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


Anzeige
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
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


Anzeige
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
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


Anzeige
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

Forumthreads zu verwandten Themen

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
Prüfen ob erste Zahl im Textbox eine 0
urmila

Hallo zusammen,
ich bitte um eure Hilfe.
Es soll in einer TextBox geprüft werden, ob die erste Zahl eine Null (0) ist, wenn nein, soll eine 0 und dann die restlichen Zahle eingefügt werden.
z.B gebe ich eine "7" ein, so soll automatisch die 0 hinzugefügt werden....also dann "07"
...
11.11.2010 13:39:15
Thread-ID: 1186288
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
Anzeige
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
Zahlen in Tabellen überprüfen mit VBA
michael

HAllo.
In der Tabelle 3 stehen in jeder Zeile nebeneinander 3 Zahlen. Nun brauche ich ein Programm das zunächst feststellt in wievielen Zeilen diese Zahlen vorhanden sind. Dann soll für jede Zeile überprüft werden ob die 3 Zahlen aufsteigend sortiert sind(kleinste zuerst und dann größte. F...
07.02.2013 10:08:49
Thread-ID: 1298129
2 Beiträge
Zahlen in Tabellen überprüfen mit VBA
michael

HAllo.
In der Tabelle 3 stehen in jeder Zeile nebeneinander 3 Zahlen. Nun brauche ich ein Programm das zunächst feststellt in wievielen Zeilen diese Zahlen vorhanden sind. Dann soll für jede Zeile überprüft werden ob die 3 Zahlen aufsteigend sortiert sind(kleinste zuerst und dann größte. F...
07.02.2013 10:08:58
Thread-ID: 1298130
3 Beiträge
prüfen ob Eingabe Binärzahl ist
Uwe

Hallo zusammen,
hab mir eine UF gebastelt bestehend aus einem Textfeld und einem Command_Button.
Im Textfeld wird ein Binärcode eingegeben. Mit Click auf den CButton wird dieser in eine Dezimalzahl umgewandelt und im Label ausgegeben. Die Prüfung, ob die Eingabe nummerisch ist, hab ich...
12.10.2013 18:09:08
Thread-ID: 1334187
14 Beiträge
VBA Prüfen ob leer
flacus

Hallo,
ich brauche mal wieder Hilfe. Ich habe ein Makro, womit ich einen Seriendruck starte. Das klappt alles ganz gut, jedoch sollte er nicht drucken, wenn es leere Zeilen gibt. In meiner Beispiel Datei ist es das Modul 3, was nicht gedruckt werden soll.
Es soll also geprüft werden, ob...
25.10.2013 11:57:11
Thread-ID: 1335853
3 Beiträge
Anzeige
VBA: Überprüfen ob Zellen leer sind
Hans Egonschmidt
Hallo,
ich habe da eine etwas knifflige Aufgabe und komme nicht so recht weiter:
Ich soll im Zellbereich A1:A20 überprüfen ob die Zellen leer sind und in einer Messagebox dann ausgeben, wie viele Schleifendurchläufe und wieviele leere Zellen es gibt.
Bin bis jetzt so angefangen:
Op...
10.11.2014 17:36:15
Thread-ID: 1391509
5 Beiträge
Zahlen von einem Buchstaben in Excel trennen 200h
einem

Hallo liebe Gemeinde,
ich habe eine Spalte voller Zahlen mit jeweils einem Buchstaben hinten dran:
Beispiel:
200H
600H
650H
540H
95H
2801H
2500H
3250H
3799H
588H
2689H
2799H
Ich möchte aber das die Zahlen von den Buchstaben getrennt we...
18.12.2014 12:15:17
Thread-ID: 1398846
3 Beiträge
Err 1004 bei einfachem Einfügen einer Zahl in Zell
Konrad

Hallo zusammen,
ich bekomme die Err.number 1004 Anwendungs- oder objektdefinierter Fehler wenn ich eine Tabelle einen Wert einfügen will. Allerdings nur in einer einzigen Zelle. Bei allen anderen funktionierts super. Tabelle1.Range("A4") = "Test"
Hatte damit noch nie Probleme und verstehs...
01.08.2002 18:23:15
Thread-ID: 143763
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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