Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
800to804
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenformate--Waehrungen

Zahlenformate--Waehrungen
12.09.2006 00:42:23
Raphael
Hallo zusammen,
ich habe eine Excel-Tabelle und folgendes Problem. In meiner Tabelle befinden sich in einer Spalte sowohl € als auch $, diese werden durch die Zellformatierung beschrieben. Ich moechte nun die $-Werte erkennen und diese in einer naechsten Spalte umrechnen, um sie spaeter in € summieren zu koennen.
Vielen DAnk fuer die Bemuehungen,
Raphael

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlenformate--Waehrungen
12.09.2006 01:05:35
Horst
Hi,
wenn sie nur formatiert sind, änerdert sich der Wert ja nicht.
mfg Horst
AW: Zahlenformate--Waehrungen
12.09.2006 01:30:40
Raphael
Hallo,
Ich habe fixe Eingaben von $ und Euro Werten und moechte diese Automatisch erkennen. Sei es mit einer If-Bedingung oder etwas anderem um Sie einander anpassen zu koennen...
Vielen Dank,
Raphael
AW: Zahlenformate--Waehrungen
12.09.2006 01:28:21
Matthias
Hallo Raphael,
meinst du so?
Tabelle1
  
 AB
1$1,000,79 €
22,00 €2,00 €
3$3,002,36 €
44,00 €4,00 €
5$5,003,93 €
66,00 €6,00 €
7$7,005,51 €
Formeln der Tabelle
B1 : =euro(A1)

B2 : =euro(A2)

B3 : =euro(A3)

B4 : =euro(A4)

B5 : =euro(A5)

B6 : =euro(A6)

B7 : =euro(A7)


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Die Funktion EURO() musst du selbst schreiben:

in ein Modul:

Function Euro(x As Range)
Const Euro_in_Dollar = 1.2712
Application.Volatile
Dim w As String
w = x.NumberFormat
If Left(w, 4) = "[$$-" Then
Euro = Round(x.Value / Euro_in_Dollar, 2)
Else
Euro = x.Value
End If
End Function


Die Funktion wird nicht automatisch neu berechnet, wenn sich das Zellformat des Argumentes ändert. Du musst erst noch F9 drücken.

Gruß Matthias

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 01:33:45
                                            

                                

                                            Raphael
                                    

            

        

        

                            
Ja,danke. Aber wie binde ich ein solches MOdul ein?

Gruss,

Raphael

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 01:50:33
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hallo Raphael,

mit Alt+F11 den VB-Editor aufrufen,

dann in Menü Einfügen, Modul

ins erscheinende Codefenster meinen Code einfügen, den VB-Editor wieder schließen, und nun kannst du die Euro()-Funktion nutzen.

Gruß Matthias

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 01:49:06
                                            

                                

                                            Raphael
                                    

            

        

        

                            
Hallo,

habe das MOdul eingebunden. Danke! Wie schaffe ich es nun, dass es sich flexibel den Umrechnungskurs aus einer Zelle auf dem Datenblatt zieht?... Sorry, Fragen ueber Fragen...

Vielen Dank,

Raphael

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 01:56:37
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hallo Raphael,

z.B. so:


Tabelle1
  
 AB
1Dollarkurs1,2701
2  
31,00 €1,00 €
4$2,001,57 €
53,00 €3,00 €
6$4,003,15 €
75,00 €5,00 €
8$6,004,72 €
97,00 €7,00 €
10$8,006,30 €
Formeln der Tabelle
B3 : =euro(A3;$B$1)

B4 : =euro(A4;$B$1)

B5 : =euro(A5;$B$1)

B6 : =euro(A6;$B$1)

B7 : =euro(A7;$B$1)

B8 : =euro(A8;$B$1)

B9 : =euro(A9;$B$1)

B10 : =euro(A10;$B$1)


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

und die geänderte Funktion:

Function Euro(x As Range, Euro_in_Dollar As Double)
Application.Volatile
Dim w As String
w = x.NumberFormat
If Left(w, 4) = "[$$-" Then
Euro = Round(x.Value / Euro_in_Dollar, 2)
Else
Euro = x.Value
End If
End Function


Gruß Matthias

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 22:31:51
                                            

                                

                                            Raphael
                                    

            

        

        

                            
Sorry, aber es laeuft immer noch nicht. MAcht es einen UNterschied, dass an einer amerikanischen Excelversion sitze. Der nimmt bei mir immer nur die else Klausel. Ich habe das Left mal so ausprobiert und das schneidet nie den Dollar aus.

Gruss,

Raphael

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 22:35:50
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hallo Raphael,

markiere mal eine Zelle mit $-Format und gib dann ins Direktfenster ein:

Debug.Print Activecell.NumberFormat


Das gleiche dann nach Markierung einer Zelle mit €-Format.

Was gibt Excel da aus?

Gruß Matthias

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 22:48:41
                                            

                                

                                            RAphael
                                    

            

        

        

                            
Sorry, ich raffe gar nichts mehr. Das Direkteingabe-Fenster ist welches?

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 22:50:15
                                            

                                

                                            Reinhard
                                    

            

        

        

                            
Hi raphael,

im VB-Editor Ansicht--Direktfenster.

Gruß

Reinhard

ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 22:55:53
                                            

                                

                                            RAphael
                                    

            

        

        

                            
fuer $1: $#,##0.00_);[Red]($#,##0.00)

fuer Eur 1: [$EUR] #,##0.00

Danke,

Raphael

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 22:59:41
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hi Raphael,

ok, dann einfach



If Left(w, 1) = "$" Then



Das geht so natürlich nur, wenn nur entweder $ oder €-Währung verwendet wird.

Gruß Matthias

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Zahlenformate--Waehrungen
                                            

                    

                                                    12.09.2006 23:08:02
                                            

                                

                                            RAphael
                                    

            

        

        

                            
Vielen Dank,

Raphael

                    


            


    
    


            
    
    
    
    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

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

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige