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.

[vba]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
[/vba]

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

0 Replies

Sorry, there were no replies found.