Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
944to948
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel für Pos Nr ermitteln

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
Anzeige
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

Anzeige
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



Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige