Alle markierten Zellen ansprechen

Bild

Betrifft: Alle markierten Zellen ansprechen
von: Noureddine
Geschrieben am: 28.10.2015 17:38:23

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.

Bild

Betrifft: AW: Alle markierten Zellen ansprechen
von: Tino
Geschrieben am: 28.10.2015 18:16:13
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

Bild

Betrifft: AW: Alle markierten Zellen ansprechen
von: Daniel
Geschrieben am: 28.10.2015 18:33:41
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

Bild

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Alle markierten Zellen ansprechen"