Test Einfach

[tom]

Antwort 1:

Sub Test ()

MsgBox "Hallo zurück!"

End Sub

[tom]

Sub Test()

[tom]

Test

[tom]

Test Wild

[tom]

Test

[tom]

Test

[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

[tom]

Sub Test ()

MsgBox "Hallo Welt!"

End Sub

[tom]

Sub Test ()

MsgBox "Hallo Welt!"
End Sub

[tom]

Sub Test()

MsgBox "Hallooo!"

End Sub

[tom]

Sub Test()

MsgBox "Mit Extrazeile"

End Sub ()

[tom]

Sub Test()

MsgBox “Hallo!”

End Sub

[tom]

Sub Test()

MsgBox "Hallo"

End Sub

[tom]

Sub Test()

MsgBox "!"

End Sub

[tom]

Sub Test()

MsgBox "!"
End Sub

[tom]

Sub Test()

End Sub