Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
540to544
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
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige