Microsoft Excel

Herbers Excel/VBA-Archiv

bestimmte Zeilen kopieren

Betrifft: bestimmte Zeilen kopieren von: Stephan
Geschrieben am: 20.06.2014 17:04:14

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

  

Betrifft: AW: bestimmte Zeilen kopieren von: Hajo_Zi
Geschrieben am: 20.06.2014 17:24:59

benutze doch Autofilter und kopiere den sichtbaren Bereich.

GrußformelHomepage


  

Betrifft: AW: bestimmte Zeilen kopieren von: Stephan
Geschrieben am: 21.06.2014 13:10:35

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


 

Beiträge aus den Excel-Beispielen zum Thema "bestimmte Zeilen kopieren"