Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Umrechnung Dollar Euro | Herbers Excel-Forum


Betrifft: Umrechnung Dollar Euro von: Kerstin Tisot
Geschrieben am: 14.10.2008 12:02:50

Hallo Forum,

mal wieder eine Frage:

Ich hatte den unten benannten Befehl von Euch erhalten, der super funktioniert.

Jetzt kommt es allerdings doch vor, dass zb. in einer Zelle keine Zahl steht sondern ein Text. Jetzt - klar - beschwert sich dieser Befehl über diesen Text.

Wie kann ich diesen nun umgestalten, sodass er sich einfach nicht am Text stört und diesen einfach so lässt wie er ist, die anderen Daten aber umrechnet.

Vielen, vielen Dank - ohne dieses Forum wäre ich echt verloren.

Gruss

kerstin


Private Sub CommandButton1_Click()
 Dim wks As Worksheet, Zelle As Range
  Dim Kurs As Double
  Selection.NumberFormat = "[$$-409]#,##0.00"
  Kurs = Application.InputBox(Prompt:="Währungskurs USD/EUR?", _
    Title:="Währungskonversion", _
    Default:="0,73346", _
    Type:=1)
  If Kurs = 0 Then Exit Sub
  Set wks = ActiveSheet
  With wks
    For Each Zelle In .UsedRange
      'Zell-Format prüfen auf US-$
      If InStr(1, Zelle.NumberFormat, "$-409") > 0 Then
        If Not IsEmpty(Zelle) Then
          Zelle.Value = Kurs * Zelle.Value
        End If
        'Währung auf Systemeinstellung setzen
        Zelle.NumberFormat = "#,##0.00 $"
      End If
    Next
    End With

End Sub


  

Betrifft: AW: Umrechnung Dollar Euro von: JogyB
Geschrieben am: 14.10.2008 12:06:57

Private Sub CommandButton1_Click()
 Dim wks As Worksheet, Zelle As Range
  Dim Kurs As Double
  Selection.NumberFormat = "[$$-409]#,##0.00"
  Kurs = Application.InputBox(Prompt:="Währungskurs USD/EUR?", _
    Title:="Währungskonversion", _
    Default:="0,73346", _
    Type:=1)
  If Kurs = 0 Then Exit Sub
  Set wks = ActiveSheet
  With wks
    For Each Zelle In .UsedRange
      'Zell-Format prüfen auf US-$
      If InStr(1, Zelle.NumberFormat, "$-409") > 0 Then
        If Not IsEmpty(Zelle) And IsNumeric(Zelle) Then
          Zelle.Value = Kurs * Zelle.Value
        End If
        'Währung auf Systemeinstellung setzen
        Zelle.NumberFormat = "#,##0.00 $"
      End If
    Next
    End With

End Sub


Gruss, Jogy


Beiträge aus den Excel-Beispielen zum Thema "Umrechnung Dollar Euro"