Office: Kopieren von Zellen

Hallo Zusammen,

ich habe folgendes Problem:

Ich muss in einer Excel Tabelle gefilterte Zeilen kopieren, d.h. ich habe zwei nicht zusammenhängende Zellen arrays. Die gefillterte Daten sind aber gleich, also ich habe in beiden Tabellen die einträge gleich. Durch die Filterung sind allerdings einige Zeilen in beiden Tabellen ausgeblendet, dies sind unterschiedlich viele, also diese passen nicht 1:1 ineinander. Wenn ich versuche die Zeilen zu kopieren, schiebt mir Excel dann die Daten in die ausgeblendeten Zellen.

Habe auch schon mit VBA Skripten gearbeitet. Das Ergebnis bleibt das Selbe...

Dieses Skript habe ich verwendet:

Sub Kopieren()
Dim lngZeile As String
Dim rngZelle As Range
lngZeile = 1
For Each rngZelle In Selection
Worksheets("Tabelle2").Cells(lngZeile, 10) = rngZelle
lngZeile = lngZeile + 1
Next rngZelle
End Sub

Dieses Skript läuft zwar in der einen Tablelle korrekt die nicht zusammenhängenden Felder durch (da die selektierten Felder durchgelaufen werden), aber fügt diese alle von Zeile eins ab in der anderen Tabelle ein.

Was ich allerdings brauche, ist dass die Zellen in den jeweils gefilterten Zellen eingefügt wird. Dann würde es passen.

Hatt den jemand anderst ein ähnliches Problem und kann mir bei meinem helfen?



In den zwei Bildern sind die Zeilenzahlen angegeben, damit man sich dir Problematik bisschen besser vorstellen kann.

 

Hallo.

so wirklich verstehe ich nicht, was du erreichen willst- Ich habe begriffen, dass du die Zellen aus Zeile 52, 50, 51, 56, 58, ... kopierst. Die sollen in eine andere Tabelle eingefügt werden. Sollen die auch dort in die Zeilen 52, 50, 51, 56, 58, ... eingefügt werden?

 

Nein eben nicht. Die Zellen 52, 50, 51, 56, 58 sollen dann in 69, 71, 72, 73, 74, 340, 371 eingefügt werden. Mir scheint ich habe wohl zweimal die selbe Tabelle erwischt beim Bild...

Ich habe aber mitlerweile eine annehmbare Lösung gefunden.
Ich kopiere hier einfach nur die Zellen von der einen Tabelle in einen anderen Reiter der anderen Tabelle. Somit sind die einen Zellen zusammenhängend. Dann gehe ich mit einem Skript die zusammenhängende Zellen durch und vergleiche jeden Eintrag, ob es einen passenden in der anderen Tabelle gibt. Wenn er passt, dann kopiere die Daten die ich auch in der anderen Tabelle haben möchte. Wenn nicht wird die nächste Zelle verglichen.