Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Währungsformate

Währungsformate
06.01.2004 23:40:42
Norbert
Hallo,
ich habe in einem Arbeitsblatt eine Zelle, deren Eingabe soll als Währung DM oder € formatiert werden. Maßgebend für die Formatierung die Jahreszahl die in der Zelle Jahr1 eingetragen wird. Das Makro sollte den Wert der Zelle Jahr1 erkennen und dann die Formatierung in € ausführen, wenn das Jahr größer als 2001 ist. Sollte das Jahr kleiner als 2002 sein, so soll die Formatierung in DM erfolgen. Sollte die Zelle jedoch leer sein, dann soll kein Formatierung vorgenommen werden.
Gruß Norbert

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Währungsformate
07.01.2004 00:02:45
Josef Ehrensberger
Hallo Norbert!

Der Code gehört in das Modul des Tabellenblattes!



Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, [Jahr1]) Is Nothing Then Exit Sub
   If IsDate([Jahr1]) And Year([Jahr1]) < 2001 Then
   [A1].NumberFormat = "[$DM] #,##0.00"
   'Adresse der Zelle anpassen
   ElseIf IsDate([Jahr1]) And Year([Jahr1]) >= 2001 Then
   [A1].NumberFormat = "$ #,##0.00"
   'Adresse der Zelle anpassen
   ElseIf [Jahr1] = "" Then
   [A1].NumberFormat = "General"
   'Adresse der Zelle anpassen
   End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige