Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1452to1456
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
Inhaltsverzeichnis

Alle markierten Zellen ansprechen

Alle markierten Zellen ansprechen
28.10.2015 17:38:23
Noureddine

Hallo zusammen,
ich möchte mir ein Makro zusammenbauen, mit dem ich die markierten Zellen (Bruttobetäge) in Nettobeträge umwandele.
Mein derzeitiger Code:


ActiveCell.value = ActiveCell.value / 1.19
Ich suche etwas anderes als ActiveCell.
ActiveCell wandelt nur die eine aktive Zelle um, auch wenn ich logischerweise mehrere Zellen markiere.
Sollte etwas also mit Selection sein...
Könnt Ihr mir hier helfen...
Danke vorab.

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

Betreff
Datum
Anwender
Anzeige
AW: Alle markierten Zellen ansprechen
28.10.2015 18:16:13
Tino
Hallo,
wenn dein gewählter Bereich nicht sehr groß ist,
kannst Du es mal so versuchen.
Sub Beispiel()
Dim rng As Range
For Each rng In Selection
If IsNumeric(rng.Value) Then
If rng.Value <> "" Then
rng.Value = rng.Value / 1.19
End If
End If
Next rng
End Sub
Gruß Tino

AW: Alle markierten Zellen ansprechen
28.10.2015 18:33:41
Daniel
Hi
machs dir erstmal von Hand:
1. schreibe den Wert 1,19 in eine freie Zelle.
2. kopiere diese Zelle
3. selektiere alle Zellen, die du umrechnen willst.
sollten die Zellen nicht lückenlos bei einander stehen sondern von Leerzellen unterbrochen sein, kannst du auch den ganzen Bereich selektieren und dann die Selektion mit START - BEARBEITEN - SUCHEN UND AUSWÄHLEN - INHALTE - KONSTANTEN - ZAHLEN auf die Zahlen einschränken.
4. klicke jetzt das Kontextmenü und wähle INHALTE EINFÜGEN - INAHLTE EINFÜGEN - Einfügen: Werte / Vorgang: Dividieren
5. leere die Zelle mit er 1,19 wieder.
wichtig ist, dass du die Zelle mit der 1,19 beim Einfügen nicht mit selektierst (das ergibt dann u.U ein falsches Ergebnis)
das geht natürlich auch per Makro, falls dir der Recorder nicht geläufig ist:
with Cells(1, 1) 'oder eine andere freie Zelle
.Value = 1.19
.Copy
Selection.SpecialCells(xlcelltypeconstants, 1).PasteSpecial Paste:=xlPasteValues, Operation:= _
xlDivide
.clearContents
end With
gruß Daniel

Anzeige
AW: Alle markierten Zellen ansprechen
28.10.2015 19:14:29
Hajo_Zi
bei Währung sollte man nicht das Runden vergessen.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige