title image


Smiley Re: alle Währungsfelder multiplizieren
Hallo,



folgendes Makro multipliziert im markierten Bereich alle Zellen, deren Währungsformat ein € enthält, mit 1,1



Viele Grüße



Ulrich



Sub umrechnen()

Dim a As Range

For Each a In Selection

If InStr(a.NumberFormat, "€") > 0 Then a = a * 1.1

Next

End Sub


(Falls vorhanden:) Tabellen sind eingefügt mit Tool von Schorsch Dabbeljuh
hier sein offizieller Download-Link

(Fast) alles über Excel-Formeln ohne VBA findet man auf der Seite Excelformeln

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: