Formel für Pos Nr ermitteln

Forumthread: Formel für Pos Nr ermitteln

27.01.2008 17:52:17

Harald

Hallo im Excelforum,
mit folgender Formel berechne ich meine neue Position Nr aus der vorherigen Zeile wird die Zahl um eins erhöht, was auch sehr gut funktioniert bei Ganzzahlen
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Das Problem ist wenn andere Zahlen in der vorherigen Zeile sind
zb 01.01.
darunter solte jetzt stehen
zb 01.02
nur die hintere Zahl sollte um eins erhöht werden
mfg
Harald

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel für Pos Nr ermitteln

27.01.2008 18:21:00

Josef
AW: Formel für Pos Nr ermitteln

27.01.2008 19:05:00

Harald
AW: Formel für Pos Nr ermitteln

27.01.2008 19:57:00

Josef
AW: Formel für Pos Nr ermitteln

27.01.2008 20:26:45

Harald

AW: Formel für Pos Nr ermitteln

27.01.2008 18:21:00

Josef

Hallo Harald,
ungetestet.


If IsNumeric(ActiveCell.Offset(-1, 0)) Then
ActiveCell = ActiveCell.Offset(-1, 0) +1
ElseIf IsNumeric(Right(ActiveCell).Offset(-1, 0), 1) Then
ActiveCell = Left(ActiveCell.Offset(-1, 0), Len(ActiveCell.Offset(-1, 0)) - 1) & Right( _
ActiveCell).Offset(-1,   0),  1) + 1
End If

Gruß Sepp

AW: Formel für Pos Nr ermitteln

27.01.2008 19:05:00

Harald

Hallo Josef,
Danke für deine Antwort


Sub Pos_Nr()
If IsNumeric(ActiveCell.Offset(-1, 0)) Then
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
'    ActiveCell = ActiveCell.Offset(-1, 0) + 1
ElseIf IsNumeric(Right(ActiveCell.Offset(-1, 0), 1)) Then
ActiveCell = Left(ActiveCell.Offset(-1, 0), Len(ActiveCell.Offset(-1, 0)) - 1) & Right( _
ActiveCell.Offset(-1, 0), 1) + 1
End If
End Sub

erste Bedingung liefert eine Ganzzahl anstatt 1.02. 102
zweite Bedingung liefert einen Fehler Typen unverträglich
Excel interpretiert auch die Zahl 1.02. als Zahl .
mfg
Harald

AW: Formel für Pos Nr ermitteln

27.01.2008 19:57:00

Josef

Hallo Harald,
diesmal getestet ;-)
Sub Pos_Nr()
Dim tmp As String

tmp = ActiveCell.Offset(-1, 0).Text

If IsNumeric(tmp) Then
    If Right(tmp, 1) = "." Then
        ActiveCell = Left(tmp, Len(tmp) - 2) & _
            Mid(tmp, Len(tmp) - 1, 1) + 1 & "."
    Else
        ActiveCell = Replace(Left(tmp, Len(tmp) - 1) & _
            Right(tmp, 1) + 1, ".", ",")
    End If
End If

End Sub

Gruß Sepp

AW: Formel für Pos Nr ermitteln

27.01.2008 20:26:45

Harald

Hallo Sepp,
Vielen Dank für deine Mühe funktioniert prima.
Gruß
Harald

Beliebteste Forumthreads (12 Monate)

Forumthread: Formel für Pos Nr ermitteln

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread