Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seltsame Frage bzgl. Formatierung

Seltsame Frage bzgl. Formatierung
22.05.2006 17:21:03
Nehir
Hallo,
ich hoffe ihr könnt mir helfen.
Gibt es die Möglichkeit im Excel, dass wenn ich z.B. 2- schreibe, er diesen Wert als -2 automatisch darstellt und zum Berechnen weiter benutzen kann. Ich habe alles mögliche versucht, doch bekomme es einfach nicht hin. Hintergrund ist, dass ein Anwender bei uns behauptet, dass dies die ganze Zeit unter Office 2000 wunderbar funktioniert hat und erst durch das Upgrade nicht mehr funktioniert.
Gibt es im Office ein Setting, welches dies ermöglicht ?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seltsame Frage bzgl. Formatierung
22.05.2006 18:59:43
Matthias
Hallo Nehir,
entweder mit Autokorrektur (aber bei vielen Zahlen viele Einträge, deshalb kaum machbar), oder ins Tabellenmodul:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp As String, zahl As String
tmp = Target(1).Value
If Len(tmp) > 1 Then
If Right(tmp, 1) = "-" Then
zahl = Left(tmp, Len(tmp) - 1)
If IsNumeric(zahl) Then
Application.EnableEvents = False
Target.Value = "-" & zahl
Application.EnableEvents = True
End If
End If
End If
End Sub

Was anderes fällt mir dazu nicht ein.
Gruß Matthias
AW: Seltsame Frage bzgl. Formatierung
22.05.2006 21:10:27
Tassos
Hallo.
Mal eine Idee (Beispiel nur):


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Len(Target) > 1 And Right(Left(Target, 2), 1) = "-" Then
  Application.EnableEvents = False
  Target = VBA.StrReverse(Target)
 End If
Application.EnableEvents = True
End Sub


Gruss
Tassos
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige