Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten von einem Blatt zum anderen kopieren

Daten von einem Blatt zum anderen kopieren
05.01.2005 16:45:34
einem
Hallo Excelgemeinde
Ich bräuchte ein Macro das mir aus dem Blatt CAQ 200(C) alle Zeilen in denen in Spalte E das Wort "Endkontrolle" steht, in das Blatt mit dem Namen Endkontrolle ab zeile 2 kopiert.
Kann mir jemand helfen ?
Gruß Heino
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten von einem Blatt zum anderen kopieren
einem
Hallo Heino,
hier ein Vorschlag.
Gruß Max
Public

Sub Kopieren()
Dim i As Long, Zähler As Long
Dim Blatt1 As Worksheet
Dim Blatt2 As Worksheet
Set Blatt1 = ThisWorkbook.Sheets("CAQ200(C)")
Set Blatt2 = ThisWorkbook.Sheets("Endkontrolle")
Zähler = 1
Application.ScreenUpdating = False
For i = 1 To 65000 'Zeilenanzahl einstellen, die überprüft werden soll
If Blatt1.Range("E" & i) = "Endkontrolle" Then
Zähler = Zähler + 1
Blatt1.Select
Blatt1.Rows(i).Select
Selection.Copy
Blatt2.Select
Rows(Zähler).Select
ActiveSheet.Paste
End If
Next i
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Daten von einem Blatt zum anderen kopieren
einem
Hallo Max
Danke schön. Das Funktioniert
Gruß Heino

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige