VBA-Kopieren
17.08.2015 15:08:25
Raphael
ich bin gerade dabei verschiedene Listen zu verknüpfen und möchte hierzu von der "Datentabelle" alle Werte (Zeile;3) auf einen Inhalt prüfen.
Wenn Zeile x in der Spalte 3 = "Meilenstein" dann kopiere den Wert aus der Zeile x in der Spalte 3 in das Worksheet "Verknüpfung schaffen".
Jedes mal wenn eine Übereinstimmung gefunden wird soll unter die vorherige Zeile in das Worksheets "Verknüpfung schaffen" kopiert werden.
Hier schon mal mein Lösungsansatz, welcher zu keinem Ergebnis führt...
Sry dass ich euch alle so oft Belästige. Bin aktuell dabei als Teilgebiet meiner BA-Thesis eine Projektmanagement-Oberfläche zu gestalten.
Vielen Dank im Voraus für eure Unterstützung!
Anbei wie immer die Datei
Sub Transfer()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
With ActiveWorkbook
Set wksQuelle = .Worksheets("Datentabelle")
Set wksZiel = .Worksheets("Verknüpfung Schaffen")
End With
With wksQuelle
k = 13
S = 2
n = 1
Do While Not S = 0
If Cells(k, 2) = "" Then
S = 0
Else
If Cells(k, 3).Value = "Meilenstein" Then
Cells(k, 6).Copy Destination:=wksZiel.Cells(n, 1)
n = n + 1
End If
End If
k = k + 1
Loop
End With
End Sub
Hier die Datei: https://www.herber.de/bbs/user/99644.xlsm