Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle in Währungsformat setzen | Herbers Excel-Forum


Betrifft: Zelle in Währungsformat setzen von: Larissa
Geschrieben am: 23.10.2008 20:39:35


Hallo,

ich lasse in eine Tabelle durch VBA in einer Zeile Daten eintragen, welche aus verschiedenen Tabellenblättern gesammelt werden.

In Spalte 11 Wird die Währung "USD" oder "EUR" eingetragen und zwei Spalten danach die Summe. Die Spalte mit der Summe muss entsprechend der Währung formatiert werden. In diesem Forum wurde mir bereits mit diesem Makro geholfen:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 11 Then
        Select Case Target
            Case "€"
                Target.Offset(0, 2).NumberFormat = "#,##0.00 €"
            Case "USD"
                Target.Offset(0, 2).NumberFormat = "#,##0.00 [$$-409]"
        End Select
    End If
End Sub



Das funktioniert super, aber nur, wenn man die Währung in Spalte 11 manuell eingibt und nicht, wenn sie durch ein Makro eingetragen wird.
Kann mir bitte jemand bei diesem Problem helfen?
Danke und lieben Gruß,
Larissa

  

Betrifft: Kleine Änderung! von: Backowe
Geschrieben am: 23.10.2008 21:34:24

Hi Larissa,

VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Target.Count = 1 Then
  Select Case Target
    Case "€"
      Target.Offset(0, 2).NumberFormat = "0.00 €"
    Case "USD"
      Target.Offset(0, 2).NumberFormat = "0.00 [$$-409]"
  End Select
End If
End Sub

Code eingefügt mit Syntaxhighlighter 4.15


Gruß Jürgen


  

Betrifft: AW: Kleine Änderung! von: Larissa
Geschrieben am: 23.10.2008 23:25:11

Hallo Jürgen,
danke. Leider funktioniert es noch nicht. Erst, wenn ich auf die Zelle in Spalte 11 klicke, ändert sich die Formartierung in Spalte 13. Warum wird nicht erkannt, dass in Spalte 11 z.B. "EUR" steht??
Weiß das jemand?
Danke nochmal für Hilfe.
Gruß,
Larissa


  

Betrifft: seltsam, bei mir funzt es perfekt von: Matthias L
Geschrieben am: 23.10.2008 23:40:44

Hallo Larissa

bei mir klappt es ohne Probleme, benutze aber XL2000.

https://www.herber.de/bbs/user/56231.xls

Gruß Matthias


  

Betrifft: AW: seltsam, bei mir funzt es perfekt von: Larissa
Geschrieben am: 23.10.2008 23:54:51

Stimmt, da funktioniert es. Dann muss bei mir ein Fehler sein. Ich werde mal auf Suche gehen.
Vielen Dank und Gruß,
Larissa


Beiträge aus den Excel-Beispielen zum Thema "Zelle in Währungsformat setzen"