Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

markierte Zellen kopieren

markierte Zellen kopieren
25.02.2022 15:59:28
ichverstehenichtswieso
Hallo zusammen,
ich würde gerne das blau markierte Zelle aus Blatt1 auf Blatt 2 kopieren, also nur den Inhalt.
zB. bei Blatt 1 B3 bis E3 soll nachgeschaut werden welche Zelle blau markiert ist, da sich dies immerwieder ändern kann. Also es kann sein das mal B3 blau markiert ist oder E3. Alle 15 Zeilen sollen abgecheckt werden.
Die blau markierten Zellen aus Blatt 1 sollen in Blatt 2 Spalte B in zweier Schritten kopiert werden. Also auf Blatt zwei B2,B4,B6, usw...
Danke

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachfrage
25.02.2022 16:12:48
UweD
Hallo
&GT&GT B3 bis E3 ...Alle 15 Zeilen sollen abgecheckt werden.
B3 bis E3 sind 4 Zellen keine 15
AW: Nachfrage
25.02.2022 16:19:03
Oberschlumpf
Hi Uwe
B3 bis E3 ist nur - eine! - Zeile^^ :-) aber durchaus vier Spalten ;-)
Ciao
Thorsten
AW: Nachfrage
25.02.2022 16:26:15
ich
Also alle 15 Zeilen sollen einzeln abgecheckt werden welches blau markiert ist
Und diese auf Blatt 2 in zwei Schritten kopiert werden
AW: Nachfrage
25.02.2022 16:29:34
UweD
Hallo

Sub Blau()
Dim TB1 As Worksheet, TB2 As Worksheet, RNG As Range
Dim Zelle, Sp As Integer, Z1 As Integer
Set TB1 = Sheets("Blatt1")
Set TB2 = Sheets("Blatt2")
Set RNG = TB1.Range("B3:E18") 'Oder was auch immer für einen Bereich
Sp = 2 'Zielspalte
Z1 = 2
'Reset
TB2.Columns(Sp).ClearContents
For Each Zelle In RNG
If Zelle.Interior.Color = RGB(0, 0, 255) Then  'Blau
TB2.Cells(Z1, Sp).Value = Zelle.Value
Z1 = Z1 + 2
End If
Next
End Sub
LG UweD
Anzeige
AW: Die Blaue Mauritius
25.02.2022 16:51:17
GerdL
Hallo,
wir können doch die Frage solange ändern bis eine Antwort passt. :-)
Ich gebe diesen Tipp ab.

Sub stanz()
Dim C As Range, Z As Long
If Intersect(Selection, Range("E3:P3")) Is Nothing Then Exit Sub
For Each C In Intersect(Selection, Range("E3:P3"))
Tabelle2.Range("B2").Offset(Z).Value = C.Value
Z= Z + 2
Next
End Sub
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige