Wert in String ermitteln u. weiterzählen

Hallo Leute,
in meinem Sub fehlen mir zwei entscheidende Zeilen um einen nummerischen Wert in einem String zu ermitteln, diesen +1 weiterzuzählen und den neuen Wert letztlich in ein anderes Tabellenblatt zu übertragen.
Mein Coding:

Private Sub REnrButton1_Click()
'Die letzte RE-Nr. aus TB3 Umsatz (Spalte C) soll gesucht und um +1 erhöht werden = neue RE-Nr.  _
in TB1 in Zelle "I13"
'orig. Format der RE-Nr.: "C 134/2016" -> es soll die Zahl vor dem Schrägstrich / ermittelt und  _
um +1 weitergezählt werden. Also neue RE-Nr.: "C 135/2016"
Dim strREnr As String
Dim strREnr2 As String
Dim r As Byte
With Sheets(3)
For r = 2 To Sheets(3).Cells(Rows.Count, 3).End(xlUp).Row       'Die Schleife durchläuft  _
die Zellen C2 bis C Ende (= Spalte RE-Nr.)
'die Var. "strREnr" soll die letzte RE-Nr. enthalten ? :(
Next r
'danach soll im "strREnr" die Zahl vor dem Schrägstrich / ermittelt und um +1 weitergezä _
hlt werden ? :(
strREnr2 = strREnr 'strREnr2 = neue RE-Nr.
Sheets(1).Range("I13").Value = strREnr2  'Übertrag der neuen RE-Nr. in TB1 Zelle "I13"
End With
End Sub

Bitte um Rat.
Gruß
Lukas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Function fncExtractNumbers(ByRef probjCell As Range) As Long Dim objRegEx As Object, objMatch As Object 'Regular Expression-Objekt erstellen Set objRegEx = CreateObject("VBScript.RegExp") End Function

Hallo Lukas,
die Funktion kannst du löschen.

Option Explicit

Private Sub REnrButton1_Click()
    Dim lngRow As Long, lngBillNumber As Long, lngMaxBillNumber As Long
    Dim objRegEx As Object, objMatch As Object, objMaxMatch As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    objRegEx.Pattern = "(\w+) (\d+)\/\d+"
    With Worksheets(3)
        For lngRow = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
            Set objMatch = objRegEx.Execute(.Cells(lngRow, 3).Text)
            If objMatch.Count > 0 Then
                lngBillNumber = Clng(objMatch.Item(0).SubMatches.Item(1))
                If lngBillNumber > lngMaxBillNumber Then
                    lngMaxBillNumber = lngBillNumber
                    Set objMaxMatch = objMatch
                End If
            End If
        Next
    End With
    Worksheets(1).Cells(13, 9).Value = objMaxMatch.Item(0).SubMatches(0) & _
        " " & CStr(lngMaxBillNumber + 1) & "/" & Year(Date)
    Set objMaxMatch = Nothing
    Set objMatch = Nothing
    Set objRegEx = Nothing
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Wert in String ermitteln u. weiterzählen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread