Kann mir jemand diesen Code erklären ?
28.02.2014 22:24:36
rieckmann
ich habe einen Code gefunden der meine Vorstellungen ziemlich nahe kommt,
nur muss er noch für mich angepasst werden, weil er so bei mir nicht funktioniert.
Ich habe ein Leerzeichen zwischen Text und Zahl.
Könnte mir jemand kurz die Zeilen ab "For" erklären ?
Gruß
Fred
Hier war die Aufgabenstellung:
Wie kann ich jetzt für jede Buchstabenkombination die letzte Nummer ermitteln.
z.B.
XXX12349
XXX12346
YYY12347
YYY12345
und hier der Code:
Sub test()
Dim c As Range
Dim xgroß As Long
Dim ygroß As Long
For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If Left(c.Value, 3) = "XXX" Then
If Right(c, Len(c) - 3) > xgroß Then xgroß = Right(c, Len(c) - 3)
Else
If Right(c, Len(c) - 3) > ygroß Then ygroß = Right(c, Len(c) - 3)
End If
Next
MsgBox "Größter XXX Wert : " & xgroß
MsgBox "Größter YYY Wert : " & ygroß
End Sub