Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1500to1504
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

For each cell in Range - Spalte kopieren

For each cell in Range - Spalte kopieren
22.06.2016 11:46:25
VictorB
Schönen guten Tag,
mein Makro soll eine Zeile nach einem bestimmten Wert ("aktiv", kommt mehrfach vor) durchsuchen und den Wert aus der obersten Zeile der gleichen Spalte in ein anderes Tabellenblatt (SFCGFE) kopieren. Wie kann ich auf die Spalte der jeweils gefundenen Werte zurückgreifen? Zu Testzwecken (ob die Schleife funktioniert) kopiere ich momentan lediglich das Wort aktiv in das zweite Tabellenblatt.
i = 0
For Each cell In Rohdaten.Range("B2:AB2")
If cell.Value = "aktiv" Then
SFCGFE.Cells(3, 2 + i).Value = "aktiv"
i = i + 1
End If
Next

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For each cell in Range - Spalte kopieren
22.06.2016 12:23:35
Michael
Hallo!
So?
Sub a()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Rohdaten.Range("B2:AB2")
For Each Zelle In Bereich
If Zelle.Value = "aktiv" Then
SFCGFE.Cells(3, Zelle.Column).Value = Zelle.End(xlUp).Value
End If
Next Zelle
End Sub
LG
Michael
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige