[Excel Community]

Sub VBARenameFile()



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

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



End Sub

[Excel Community]

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

[Excel Community]

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]

Hier noch die Lösung, wenn man Minus-Stunden berechnen möchte:

(Häkchen bei “1904-Datumswerte verwenden”)

https://www.business-wissen.de/artikel/excel-tipp-negative-uhrzeiten-in-excel-darstellen/

[Excel Community]

Sub Benutzer()
Dim StringUser, StringText As String
StringUser = Environ(“USERPROFILE”)
StringText = Mid(StringUser, InStrRev(StringUser, “\”) + 1)
MsgBox StringText
End Sub

[Excel Community]

So erstelle ich einen Codeblock

Sie sehen gerade einen Platzhalterinhalt von Youtube. Um auf den eigentlichen Inhalt zuzugreifen, klicken Sie auf die Schaltfläche unten. Bitte beachten Sie, dass dabei Daten an Drittanbieter weitergegeben werden.

Mehr Informationen

Inhalt entsperren Erforderlichen Service akzeptieren und Inhalte entsperren

[Excel Community]

So erstelle ich einen Codeblock

https://youtu.be/FsS2OHSeHzk

Sie sehen gerade einen Platzhalterinhalt von Youtube. Um auf den eigentlichen Inhalt zuzugreifen, klicken Sie auf die Schaltfläche unten. Bitte beachten Sie, dass dabei Daten an Drittanbieter weitergegeben werden.

Mehr Informationen

Inhalt entsperren Erforderlichen Service akzeptieren und Inhalte entsperren

[Excel Community]

Sub Einfuegen_nur_sichtbar()

Application.ScreenUpdating = False

'Zwischenablage überprüfen

If Not ClipboardHasData() Then

    MsgBox "Die Zwischenablage ist leer.", vbExclamation

    Exit Sub

End If

Dim clipboardData As New MSForms.DataObject

Dim splitData As Variant

Dim targetRow As Long

Dim targetColumn As Long

Dim lastRow As Long

'Zwischenablage auslesen

clipboardData.GetFromClipboard

splitData = Split(clipboardData.GetText, vbCrLf)

'Aktuelle Zeile und Spalte

targetRow = Selection.Row

targetColumn = Selection.Column

'Letzte Zeile

lastRow = GetLastRow(ActiveSheet, 1)

Dim i As Long

Dim n As Long

Dim x As Long

n = 0

x = 0

'Werte aus Zwischenablage in die sichtbaren Zeilen einfügen

For i = targetRow To lastRow

    If Not Rows(i).EntireRow.Hidden Then

        Cells(targetRow, targetColumn).Value = splitData(x)

        x = x + 1

    End If

    'n = n + 1

Next i

Application.ScreenUpdating = True

End Sub