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
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige