title image


Smiley Re: Umrechnen von Spalten oder Zellen in Euro
Hallo,



Hallo,

es gibt Makro-Lösungen (siehe weiter unten)



Hier zunächst eine Lösung ohne Makro:

in irgendeine leere Zelle den Umrechnungsfaktor 1,95583 schreiben, diese Zelle markieren und Kopieren wählen - und nun alle Zellen, die DM-Beträge enthalten (egal wie formatiert) markieren und dann "Bearbeiten" "Inhalte einfügen" "Dividieren" wählen.

Anschließend (Rundungsproblematik) eventuell all diese Zellen mit zwei Nachkommastellen formatieren und dann Extras, Optionen, Berechnung, Genauigkeit wie angezeigt wählen.



Und jetzt die Makrolösung (Achtung: es dürfen nur die Zellen markiert werden, die umgerechnet werden sollen!!):



Sub EuroUmrechnung()

On Error GoTo Fehlerbehandlung

Dim Bereich, Markiert, Benutzt, Schnitt As Range

Dim Frage, Zeile, Spalte, Fehler As Long

Dim Umgerechnet

Set Markiert = Selection

Set Benutzt = ActiveSheet.UsedRange

Set Schnitt = Application.Intersect(Markiert, Benutzt)

Schnitt.Select

Fehler = 1

Stellen = InputBox("Umrechnung auf wieviele interne Stellen?", , "2")

If Stellen = "" Then Exit Sub

If Not IsNumeric(Stellen) Then Stellen = 2

Stellen = CLng(Stellen)

Frage = MsgBox("Zelle(n) auch mit Euro-Zeichen versehen (Beispiel 123,56 €)?", vbYesNo, "Zelle(n) formatieren:")

For Each Bereich In Schnitt

Zeile = Bereich.Row

Spalte = Bereich.Column

If Bereich "" And IsNumeric(Bereich) Then

If InStr(Bereich.NumberFormat, "€") = 0 Then

If IsNumeric(Bereich.Formula) Then

Umgerechnet = Application.Round(Cells(Zeile, Spalte) / 1.95583, Stellen)

Cells(Zeile, Spalte) = Umgerechnet

End If

If Frage = vbYes Then Cells(Zeile, Spalte).NumberFormat = "#,##0.00 [$€-1];[Red]-#,##0.00 [$€-1]"

End If

End If

Next

Exit Sub



Fehlerbehandlung:

If Fehler 1 Then Exit Sub

MsgBox "Eine Zelle hat wohl falschen Inhalt !"

Cells(Zeile, Spalte).Select

Exit Sub

End Sub



Viele Grüße



Ulrich





Viele Grüße


(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: