Automatisch Zahl voran stellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Double With Target If .Column > 1 Then Exit Sub If .CountLarge > 1 Then Exit Sub If .Row = 1 Then Exit Sub If .Value 0 Then X = .Value Application.EnableEvents = alse Application.Undo .Value = CLng(.Offset(-1, 0)) + X End If End If End If End With Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim ltw As Integer Dim ll As Integer If Target.Value = "" Then Exit Sub x1 = Target.Value ll = Left(Cells(Target.Row - 1, 1), 1) ltw = Right(Cells(Target.Row - 1, 1), 3) If x1 > ltw Then Else ll = ll + 1 End If Application.EnableEvents = False Cells(Target.Row, 1).Value = ll & "." & x1 Application.EnableEvents = True End Sub

Hi
du könntest dir meinen anderen Code entsprechend abändern.
mach aus:


 If Abs(Target.Value)

das hier


 If Int(Target.Value) = Target.Value Then

und aus


Target.Value = Target.Value + Fix(Target.Offset(-1, 0).Value)

machst du


Target.Value = Fix(Target.Offset(-1, 0).value) & "." & Target.Value

dh immer wenn du eine Zahl mit Nachkommastellen eingibst, wird diese unverändert übernommen, und wenn du eine Ganzzahl eingibst, werden dieses als Nachkommastellen genommen und an die Ganzzahl der Vorgängerzelle angehängt.
im Gegenzug könntest du mir aber folgende Frage beantworten:
nachdem du geschrieben hast:


Weil ich mir die , Komma Eingabe am Handy sparen wollte.

wüsste ich gerne, welches Handy mit welchem Betriebssystem und welchem Excelprogramm du verwendest, auf dem Makros laufen.
Gruß Daniel

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Target.CountLarge = 1 Then If VarType(Target.Value) = 5 Then If Abs(Target.Value) 1 Then If VarType(Target.Value) = 5 Then Application.EnableEvents = False Target.Value = Target.Value + Fix(Target.Offset(-1, 0).Value) Application.EnableEvents = True End If End If End If End If End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Target.Column > 1 Then Exit Sub If Target.Row = 1 Then Exit Sub If Not IsNumeric(Target.Text) Then Exit Sub If Not IsNumeric(Target.Offset(-1).Text) Then Exit Sub If Target.Offset(-1) >= 1 Then If Target 0 Then Application.EnableEvents = False If (Target.Offset(-1) - Int(Target.Offset(-1))) * 1000

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisch Zahl voran stellen

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread