-
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