VBA

test123

Posted by Excel Community on 23. Februar 2025 at 13:47

Sub procRandomNumbers()

  Const INT_MAX_ZAHL = 1000

  Randomize 'Zufallsgenerator initialisieren

  For Each objCell In Selection

    'Rnd erzeugt Zufallszahl >= 0 und < 1

    objCell.Value = Int((INT_MAX_ZAHL * Rnd))

  Next

End Sub

Excel Community replied 2 weeks, 3 days aktiv. 1 Member · 2 Replies

2 Replies

Excel Community

Administrator

23. Februar 2025 at 13:57

Private Sub Worksheet_Deactivate() ThisWorkbook.Sheets("HideThis").Visible = False End Sub

Excel Community

Administrator

23. Februar 2025 at 13:58

Sub VBARenameFile()



Name "C:\Users\marks\Documents\Example File.xlsx" As _

    "C:\Users\marks\Documents\Example File Renamed.xlsx"



End Sub