Private Sub Workbook_Open()
MsgBox "text" & Chr(13) & _
Call Sortieren
Call fett
End Sub
gerne die aktuelle zeilenanzahl dieser arbeitsmappe anteigen lasse, könnt ihr mir herfen
Private Sub Workbook_Open()
MsgBox "text" & Chr(13) & _
Call Sortieren
Call fett
End Sub