Nummernkreis hochzählen m.verb.Zellen
25.05.2020 10:36:55
Angelika
ich habe dank Karl Heinz einen Code auf meinem Command Button. Funktioniert einwandfrei.
Und zwar werden die Werte in Spalte B immer um eins erhöht.Das funktioniert super wenn nur
eine Zelle gefüllt ist. Wenn ich aber die letzte Zelle mit mehreren Zellen verbinde ( also z.B. Zelle 377 bis 380 ist verbunden ) dann funktioniert es nicht mehr.
Kann mir bitte jemand helfen hier der ursprüngliche Code von Karl Heinz :
Sub Nummernkreis()
Dim iNr As Integer
Dim sAA As String, svAA As String, stAA As String
svAA = ",SP,SCM,SA,PM,PR,QS,RD,TE,"
stAA = "1=SP 2=SCM 30=SA 4=PM 5=PR 6=QS 7=RD 8=TE"
With ActiveCell
If .Column = 2 And .Row > 13 Then
Nochmal:
sAA = InputBox("Bitte die Abforderungsabteilung oder Nr eingeben!" & vbCr & stAA, " _
Anforderungsabteilung", "SP")
If StrPtr(sAA) = 0 Then Exit Sub
sAA = UCase$(sAA)
If Val(sAA) > 0 Then
sAA = Split(svAA, ",")(Val(sAA))
ElseIf InStr(svAA, "," & sAA & ",") = 0 Then
GoTo Nochmal
End If
iNr = Val(Left$(.Offset(-1, 0).Value & " ", 4)) + 1
.Value = Right$("0000" & CStr(iNr), 4) & "-" & sAA & Format(Date, "-dd-mm-yyyy")
End If
End With
End Sub
Danke Angelika