Office: bestimmte Zellen von markierten Zeilen in anderes Tabelleblatt kopieren

Mr_Venom · 28. September 2019

Hallo Zusammen,

ich will bestimmte Zellen von markierten Zeilen in ein anderes Tabellenblatt kopieren.

Z.b. Zeile 10 und 15 ist markiert und hier sollen die Spalten A und C kopiert werden.

Ich habe folgendes schon probiert:
Code:

Dim rngZ As Range

For Each rngZ In Selection

Next rngZ
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allerdings zählt er hier jede einzelne Zelle durch. Ich brauche eigentlich nur immer die markierten Reihen. Das kopieren würde ich dann einfach mit ein Array machen

Hat jemand eine Idee?

Grüße
Venom

:)

Klaus-Dieter · 30. September 2019

Hallo,

warum markierst du nicht einfach die Zellen, um die es geht?

Mr_Venom · 7. Oktober 2019

Genau ich will die Zeilen, um die es geht markieren und dann auf ein Button drücken, welcher Spalte A und C der markierten Zeilen in ein anderes Tabelleblatt kopiert. Ähnlich wie Copy Paste allerdings sollen nur die markierten Zeilen kopiert werden und Spalte B ausgelassen werden

Beverly · 7. Oktober 2019

Hi,

vielleicht so:

Code:

Sub Markieren()
Dim rngZelle As Range
Dim rngBereich As Range
For Each rngZelle In Selection
If rngBereich Is Nothing Then
Set rngBereich = Union(Cells(rngZelle.Row, 1), Cells(rngZelle.Row, 3))
Else
Set rngBereich = Union(rngBereich, Cells(rngZelle.Row, 1), Cells(rngZelle.Row, 3))
End If
Next rngZelle
rngBereich.Copy
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mr_Venom · 13. Oktober 2019

\@Beverly super vielen Dank. Dein Code funktioniert

Office: bestimmte Zellen von markierten Zeilen in anderes Tabelleblatt kopieren

bestimmte Zellen von markierten Zeilen in anderes Tabelleblatt kopieren

bestimmte Zellen von markierten Zeilen in anderes Tabelleblatt kopieren

bestimmte Zellen von markierten Zeilen in anderes Tabelleblatt kopieren

bestimmte Zellen von markierten Zeilen in anderes Tabelleblatt kopieren - Similar Threads - bestimmte Zellen markierten

Bestimmte Ziffern in Zelle entfernen

Wenn in Zelle bestimmter Wert dann kopieren

Über Eingabefelder bestimmte Zellen füllen, wohl VBA

Zählen wenn Wert von bestimmter Zelle vorkommt

Druckverbot, wenn Zelle einen bestimmten Inhalt haben.

Prüfen ob Zelle in bestimmter Spalte markiert ist

Eine mit x markierte Zelle soll bestimmte Spalten aus der gleichen Zeile kopieren