Extrahieren Sie einen Teil des Blattnamens in die Zelle - Excel, VBA, Excel-VBA, Auszug, Wochennummer

Ein Teil meines Blattnamens ist das Datum (der Teil zwischen den Bindestrichen) und ich möchte ein Makro erstellen, das den Blattnamen verwendet, um mir die Nummer der Woche in Zelle H1 des Blattes zu geben.

Blattname: BO-D58C2_-20180507-13260132

Ich möchte in der Woche in Zelle H1 extrahieren: 20180507

Hast du irgendwelche Tipps für einen VBA-Neuling?

Antworten:

Verwenden Sie die unten stehende Funktion, um das Wochentag zu ermitteln

Function dydate() As String
sname = ActiveSheet.Name
dydate = Mid(sname, InStr(sname, "_-") + 2, 8)
End Function

Bereich ("H1"). Wert = ActiveSheet.Name

wird den Blattnamen bekommen und in eine Zelle legenfür dich. Von dort aus können Sie beliebig viele RegEx- und String-Ersetzungen vornehmen, um nur den Code zwischen den Bindestrichen zu extrahieren und von dort aus in die Wochennummer zu konvertieren.