Thema Datum  Von Nutzer Rating
Antwort
02.05.2018 20:39:47 Nick
NotSolved
02.05.2018 21:26:01 Werner
NotSolved
02.05.2018 21:32:10 Nick Nebel
NotSolved
02.05.2018 23:25:54 Werner
NotSolved
03.05.2018 20:20:45 Gast28523
NotSolved
03.05.2018 21:59:47 Werner
NotSolved
04.05.2018 07:55:46 RPP63
NotSolved
04.05.2018 15:27:06 Gast85856
NotSolved
Rot Sehr viel schneller und einfacher
 04.05.2018 16:24:23 Gast29053
NotSolved

Ansicht des Beitrags:
Von:
Gast29053		 Datum:
04.05.2018 16:24:23		 Views:
508		 Rating:
     
Antwort:
  Ja
Thema:
Sehr viel schneller und einfacher

Hallo,

jetzt kommt plötzlich noch das Währungsformat dazu, davon war am Anfang aber nicht die Rede. Zudem habe ich jetzt noch drin, dass bei Eingabe von negativen Werten diese auch negativ bleiben.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
    If Not Target Is Nothing Then
        If Target.Value <> "" Then
            If IsNumeric(Target) Then
                If Target > 0 Then
                    Application.EnableEvents = False
                    Target = Target * -1
                    Target.NumberFormat = "#,##0.00 $"
                    Application.EnableEvents = True
                Else
                    Target.NumberFormat = "#,##0.00 $"
                End If
            End If
        End If
    End If
End If
End Sub

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.05.2018 20:39:47 Nick
NotSolved
02.05.2018 21:26:01 Werner
NotSolved
02.05.2018 21:32:10 Nick Nebel
NotSolved
02.05.2018 23:25:54 Werner
NotSolved
03.05.2018 20:20:45 Gast28523
NotSolved
03.05.2018 21:59:47 Werner
NotSolved
04.05.2018 07:55:46 RPP63
NotSolved
04.05.2018 15:27:06 Gast85856
NotSolved
Rot Sehr viel schneller und einfacher
 04.05.2018 16:24:23 Gast29053
NotSolved