Office: (Office 2016) Zahl nach dem Slash soll hochgezählt werden

Hallo,
ich arbeite im Support eines Logistikuntenehmens und man ist mit der Bitte an mich herangetraten eine Excel Datei zu fixen, die nicht von uns ist.

In der Spalte B kann man eine Nummer eintragen (Bsp "123456789/1") wenn man diese Nummer runterzieht, soll sich nach dem / die Nummer nur hochzählen. Allerdings soll es möglich sein, das man in der gleichen Spalte etwas tiefer eine andere Zahlenabfolge eingibt (z.B. "987654321/1") und wenn man diese dann herunterzieht, soll auch dort die Zahl nach dem / um 1 hochgezählt werden.

Wer kann mir da helfen? Danke

 

Hola,

=123456789&"/"&zeile(A1)

Gruß,
steve1da

 

Moin CrazyNet,


also das hier hört sich für mich so an, als wenn die Bedienbarkeit für jeden noch so unerfahrenen User gegeben sein muss:

Das hier lässt mich an Positionsnummern von Lieferscheinen, Sendungen, Rechnungen o.ä. denken:

Und vor allem hört sich das so an, als wenn man eine Lösung mittels Formeln komplett vergessen könnte.

Ohne Deine Datei zu kennen und nichtmal eine Beispieldatei mit den relevanten Teilen von Dir zu bekommen kann ich nur raten.
Jedenfalls würde ich sowas über ein Makro lösen:

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim intColumn, i, intCount As Integer
    Dim lngRow1, lngRow2 As Long
    Dim strInhalt As String
    
    On Error GoTo 0
    
    With Me
    
        intColumn = 2   ' Spalte 2 = Spalte B
        
        If Selection.Rows.Count > 1 And intColumn = ActiveCell.Column Then  ' Prüfung ob mehr als eine Zeile in Spalte "intColumn" ausgewählt wurde
            
            lngRow1 = ActiveCell.Row                        ' Zeile der obersten ausgewählten Zelle
            lngRow2 = lngRow1 + Selection.Rows.Count - 1    ' Zeile der untersten ausgewählten Zelle
            strInhalt = ActiveCell.Value                    ' Inhalt der obersten ausgewählten Zelle
            
            If InStr(strInhalt, "/") > 0 Then                                       ' Prüfung ob ein "/" im Zellwert enthalten ist
                intCount = Right(strInhalt, Len(strInhalt) - InStr(strInhalt, "/")) ' auslesen der eingegebenen Positionsnummer
                strInhalt = Left(strInhalt, InStr(strInhalt, "/") - 1)              ' Zellwert ohne "/" und Positionsnummer
            Else
                intCount = 1                                                        ' wenn kein "/" enthalten ist, Positionsnummer = 1
            End If
            
            For i = lngRow1 To lngRow2                              ' Schleife durch alle Zellen der Auswahl in Spalte "intColumn"
                .Cells(i, intColumn) = strInhalt & "/" & intCount   ' Eingabe Zellwert
                intCount = intCount + 1                             ' Positionsnummer hochzählen
            Next i
            
        End If
    End With
End Sub

Ganz wichtig ist noch:
Die Spalte "B", oder wo immer diese Funktion benötigt wird, muss als "Text" formatiert sein. Im Standardformat könnte sonst auch mal ein Datum oder sonstwas unerwünschtes angezeigt werden.

Hier mal eine Datei zu Veranschaulichung und zum rumspielen:
Den Anhang CrazyNet.xlsm betrachten

Ich habe lange nichts mehr in VBA gemacht und bin leider eingerostet. Das geht sicherlich auch einfacher, schöner...

 

Hi,

du brauchst dazu weder Formel noch VBA - das passiert doch automatisch, wenn du die Spalte als Text formatierst...

Bis später,
Karin

 

Das Leben kann so einfach sein... :D:D:D