Nur in sichtbaren Bereich einfügen

Posted by Excel Community on 5. September 2024 at 10:56

Mit diesem Code könnt ihr die Werte in eine gefilterte Tabelle einfügen. Das heisst, wenn ihr eine Liste kopiert und in einen Bereich einfügen wollt, der gefiltert ist, ist das damit möglich. Auf normalen Weg würde Excel euch eine Fehlermeldung ausgeben.



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 + n, targetColumn).Value = splitData(x)

            x = x + 1

        End If

        n = n + 1

    Next i

    Application.ScreenUpdating = TRUE

End Sub

Excel Community replied 4 months, 2 weeks aktiv. 1 Member · 0 Replies

0 Replies

Sorry, there were no replies found.