Office: Kopiere nur sichtbare Zellen und füge nur in sichtbare Zellen ein

Guten Tag,

(Excel 2010)
ich habe leider nicht sehr viel Erfahrung mit VBA. Da es aber für das Problem "Einfügen nur in sichtbare (nicht versteckte) Zellen" scheinbar keinen anderen Weg gibt, möchte ich gerne mal wieder VBA anwenden.

Grundproblem:
Kopiere nur sichtbare Zellen und füge diese nur in sichtbare Zellen ein.
Ersteres würde mit Goto special--> visible cells only gehen. Für's Einfügen habe ich aber nirgends im Web eine ebenso einfache Lösung gefunden.

Ich habe folgenden Code gefunden, der an sich gut läuft:
('ORIGINAL CODE http://superuser.com/questions/47267...filtered-table)

'Sub Paste2VisRows()
'
'Dim rFrom As Range, rTo As Range
'Dim i As Long, Ofset As Long
'
'Set rFrom = Range("A1:E3")
'Set rTo = Range("G1")
'
'For i = 1 To rFrom.Rows.Count
' Do Until Not rTffset(Ofset).Rows.Hidden
' Ofset = Ofset + 1
' Loop
' rFrom.Rows(i).Copy Destination:=rTffset(Ofset)
' Ofset = Ofset + 1
'Next i
'
'End Sub



Den muss ich jetzt aber anpassen - siehe auch Mustertabelle im Anhang:
1) Kopiere nur sichtbare Zellen (lasse versteckte Reihen und Spalten aus) aus dem einen Worksheet.
2) Füge nur in sichtbare Zellen (überspringe versteckte Reihen und Spalten) in ein anderes Worksheet.

Sub Paste2VisRows()


Dim rFrom As Range, rTo As Range
Dim i As Long, Ofset As Long

Worksheets("copy from here").Activate
'I suppose I have to activate the worksheet first?

Set rFrom = Worksheets("copy from here").Range("A1:F4").SpecialCells(xlCellTypeVisible)

'I want the code to only copy from visible cells.
'I want the range to be in another sheet ("copy from here") than where the values will be pasted ("target")

Worksheets("target").Activate
'I suppose I have to activate the worksheet first?

Set rTo = Worksheets("target").Range("A2")


'It should also skip hidden columns, not only hidden rows as in the original code.

For i = 1 To rFrom.Rows.Count
Do Until Not rTffset(Ofset)(Rows.Hidden, Columns.Hidden)
Ofset = Ofset + 1
Loop
rFrom.Rows(i).Copy Destination:=rTffset(Ofset)
Ofset = Ofset + 1
Next i


End Sub


Leider klappt das mit meinem Anfängergebastel nicht. Aktuell erscheint die Meldung "Run-time error '1004': Application-defined or object-defined error.
Ich denke, es hat noch zusätzliche Unstimmigkeiten in meinem Code.

Für einen Tipp wäre ich sehr dankbar!
Grüsse, Karin

:)

 

benutze Gehe zu( Start, Bearbeiten, Suchen und Auswählen), sichtbare Zellen.

 

Hallo Hajo,

danke für die Antwort!
Das klappt leider nur für das Kopieren der sichtbaren Zellen. (ist das Äquivalent zu meinem Kommentar zum Grundproblem mit F5 go to --> visible cells only, habe die englische Version).

Das geht aber nicht für das Einfügen in sichtbare Zellen. Viele im grossen weiten Netz sind auf der Suche danach, aber etwas einfacheres als ein VBA Code scheint es echt nicht zu geben...
Karin

 

Hallo Karin,

Ich glaube es geht nur, indem man einzeln alle Quellzellen und alle Zielzellen durchgeht. Das ist bei großen Datenmengen alles andere als effizient.
Code:

Hilft dir das weiter und kannst du es für dein Problem anwenden?

VG
Santa

PS: lass dich nicht von Hajo irritieren *wink.gif*

 

Hallo Santa,

das ist perfekt. Vielen Dank für die schnelle Antwort!
Auf die Idee, jede Zelle einzeln durchzugehen, wäre ich nicht gekommen, ich habe immer an den gesamten Zeilen/Spalten herumstudiert. Ich kann deinen Code sogar mehr oder weniger nachvollziehen und hab was gelernt dabei ;-).

Scheint auch mit grösseren Datenmengen kein Problem zu sein. Ich habe den Code jetzt immerhin auf einer Matrix ca. 200*5000 angewandt und habe das Resultat im Nullkommanix erhalten.

Vielen Dank, werde ich in nächster Zeit einige Male brauchen!

Karin