Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1364to1368
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

bestimmte Zeilen kopieren

bestimmte Zeilen kopieren
20.06.2014 17:04:14
Stephan

Hallo,
ich habe eine Liste und möchte sofern in einer Spalte E okay steht, diese Zeilen kopieren. Leider kopiert das Makro alle Zeilen. Siehe Beispieldatei und Code.
https://www.herber.de/bbs/user/91194.xlsm
Leider weiß ich nicht warum!
Grüße
Stephan
Bisher habe ich folgenden Code:
Option Explicit


Sub Kopieren()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle1")
Dim i As Long
Do While ws.Range("E2").Offset(i, 0).Value <> ""
If ws.Range("E2").Offset(i, 0).Value Like "okay" Then
ws.UsedRange.Copy Destination:=Sheets("Tabelle2").Range("A2")
End If
i = i + 1
Loop
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Zeilen kopieren
20.06.2014 17:24:59
Hajo_Zi
benutze doch Autofilter und kopiere den sichtbaren Bereich.

AW: bestimmte Zeilen kopieren
21.06.2014 13:10:35
Stephan
Hallo Hajo,
danke für den Hinweis. Leider weiß ich nicht, warum der Code nicht funktioniert.
Würde mich über Hinweise freuen.
Grüße
Stephan

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige