I know that my english can be better. Please rate my work and not my lack in linguistic skills!

If you find any kind of ownership issue, or you think some content is your property. Please be so kind and contact me, i will remove or solve it ASAP.

You like my free Uploads and want to support me, than please donate here:

Private Sub CommandButton1_Click()

    Dim Loletzte As Long
    Dim actws As Integer
    Dim maxws As Integer
    Dim WkzNr As Integer
    Dim WkzNrChk As Integer
   
    actws = 2
    maxws = ThisWorkbook.Sheets.Count
   
    For x = 1 To (maxws - 1)
        ThisWorkbook.Worksheets(actws).Activate
        Loletzte = Cells(Rows.Count, 1).End(xlUp).Row + 1
        WkzNrChk = Application.WorksheetFunction.Max(ThisWorkbook.Worksheets(actws).Range("A1:A999"))
        If WkzNrChk > WkzNr Then
            WkzNr = WkzNrChk
        End If
        actws = actws + 1
    Next
   
    MsgBox ("Höchste Werkzeugnummer ist " & WkzNr)
   
 End Sub