einzelne Zellen in anderes Blatt kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,
danke für den Hinweis, aufgrund fehlender Programmiererfahrung mit VBA fehlt mir scheinbar noch ein bißchen das Gefühl für kleine aber entscheidende Ergänzungen in meinen Problembeschreibungen. Daher nochmal die korrigierte Aufgabenstellung.
Aufgabenstellung:
Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern, jetzt würde ich gerne von Blatt "RTI" den Zelleninhalt aus Spalte "C" (nur die nicht leeren Zellen) in die erste freie Zeile von Spalte "A" von Arbeitsblatt "Fortschrittsüberwachung" kopieren, sofern in Spalte "BG" aus dem Arbeitsblatt "RTI" ein "ja" steht und somit die geforderte Bedingung erfüllt. Das Makro sollte so gestaltet sein, dass es bei wiederholtem Aufruf überprüft, ob der Wert schon in Spalte "A" von Blatt "Fortschrittsüberwachung" eingetragen ist, sodass keine Doppeleintragungen möglich sind. Sollte der Wert noch nicht eingetragen sein, weil die Bedingung in Spalte "BG" erst nach dem letzten Makrodurchlauf verändert wurde, soll dieser Wert nun beim nächsten Durchlauf in die erste freie Zelle von Spalte "A" auf Blatt "Fortschrittsüberwachung" kopiert werden.
Ich hoffe meine Vorstellung ist so eindeutiger.
Gruß Thomas

Option Explicit Public Sub Kopieren() Dim loLetzteQ As Long, loLetzteZ As Long, i As Long Dim wsQuelle As Worksheet, wsZiel As Worksheet Set wsQuelle = Worksheets("RTI") Set wsZiel = Worksheets("Fortschrittsüberwachung") loLetzteQ = wsQuelle.Cells(wsQuelle.Rows.Count, 3).End(xlUp).Row loLetzteZ = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1 With wsQuelle For i = 2 To loLetzteQ If .Cells(i, 3) "" Then If .Cells(i, 59) = "ja" Then wsZiel.Cells(loLetzteZ, 1) = .Cells(i, 3) loLetzteZ = loLetzteZ + 1 End If End If Next i End With With wsZiel loLetzteZ = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("A2:A" & loLetzteZ).RemoveDuplicates Columns:=1, Header:=xlNo End With Set wsQuelle = Nothing Set wsZiel = Nothing End Sub

Hallo Thomas,
je nachdem von wievielen Zeilen in Blatt RTI auszugehen ist, wäre eine Lösung per VBA über den Autofilter und anschließendem Kopieren des Filterergebnisses schneller als die Lösung hier mit einer Schleife.
Im Übrigen bin ich davon ausgegangen, dass der Datenbereich, sowohl im Blatt "RTI" als auch im Blatt "Fortschrittsüberwachung", jeweils in Zeile zwei beginnt weil in der Zeile 1 Überschriften stehen.

Option Explicit
Public Sub Kopieren()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim i As Long
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Set wsQuelle = Worksheets("RTI")
Set wsZiel = Worksheets("Fortschrittsüberwachung")
loLetzteQ = wsQuelle.Cells(wsQuelle.Rows.Count, 3).End(xlUp).Row
loLetzteZ = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1
With wsQuelle
For i = 2 To loLetzteQ
If .Cells(i, 59) = "ja" Then
wsZiel.Cells(loLetzteZ, 1) = .Cells(i, 3)
loLetzteZ = loLetzteZ + 1
End If
Next i
End With
Set wsQuelle = Nothing
Set wsZiel = Nothing
End Sub

Gruß Werner

Sub test() With Worksheets("RTI") .Rows(1).AutoFilter Field:=59, Criteria1:="ja" Intersect(.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible), .Columns("C")).Copy _ Worksheets("TFortschrittsüberwachung").Cells(Rows.Count, 1).End(xlUp).Offset(1) .Rows(1).AutoFilter End With End Sub

Beliebteste Forumthreads (12 Monate)

einzelne Zellen in anderes Blatt kopieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

einzelne Zellen in anderes Blatt kopieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread