title image


Smiley VBA-Code
Hallo,

das folgende Makro macht hoffentlich das, was du brauchst:





      

Sub ToggleWährung()



    Dim c As Range

    Dim DollarOrEuro As String

    Dim Faktor As Double

    

    'Umrechnungsfaktor-hier aus A1

    Faktor =[a1]

    For Each c In ActiveSheet.UsedRange

        If IsNumeric(c) Then

           If c.NumberFormat = _

              "_-[$$-409]* #,##0.00_ ;_-[$$-409]* -#,##0.00 ;_-[$$-409]* ""-""??_ ;_-@_ " Then

              DollarOrEuro = "Dollar"

              Exit For

            Else

              If c.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)" Then

                 DollarOrEuro = "Euro"

                 Exit For

              End If

            End If

        End If

    Next c

            

    If DollarOrEuro = "Dollar" Then

       For Each c In ActiveSheet.UsedRange

           If c.NumberFormat = "_-[$$-409]* #,##0.00_ ;_-[$$-409]* -#,##0.00 ;_-[$$-409]* ""-""??_ ;_-@_ " Then

              c.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

              c.Value = c.Value * Faktor

           End If

       Next c

    Else

       For Each c In ActiveSheet.UsedRange

           If c.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)" Then

              c.NumberFormat = "_-[$$-409]* #,##0.00_ ;_-[$$-409]* -#,##0.00 ;_-[$$-409]* ""-""??_ ;_-@_ "

              c.Value = c.Value / Faktor

           End If

       Next c

    End If

      

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0





Anleitung zum Erstellen eines Makros.

Gehe in den VBA Editor- entweder Tastenkombination Alt+F11 oder über Menü Extras - Makros - VBA-Editor

Dort füge über Menü Einfügen -Modul ein Modul ein

Dorthinein kannst du jetzt den Code kopieren oder auch selber eigenen Code schreiben

Um zb das gewählte Format deiner Währungszellen zu bekommen, wähle in Excel Menü Extras - Makros - Aufzeichnen und gebe dann einer Zelle das gewünschte Format. Aus dem aufgezeichneten Code kannst du das Format dann herauskopieren.




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: