|
Hallo,
Mein Ziel ist es die vorhandene Liste zu durchsuchen ob in der Spalte A der Name "*Wien*" vorkommt.
Wenn das der Fall ist soll diese Zeile in das Dokument "RD_Wien_Verfahren.xlsx" kopiert werden.
Danach soll die Liste weite durchsucht werden und der vorherige Schritt bis zum ende der liste wiederholt.
In meinem Script macht er alles bis zur Zeile >> Rows(wz).EntireRow.Select
Egal was ich mache .... ich kann aus diesem Script die Zeile 2, oder andere Zeilen , nicht und nicht ansteuern --- immer nur Fehler :-((((((((
Sub DatenWienKopieren()
Dim w As Long
Dim zw As Long
w = 2
zw = 2
Do Until Cells(w, 1).Value = ""
If Cells(w, 1) Like "*Wien*" Then
Rows(w).Select
Selection.Copy
Windows("RD_Wien_Verfahren.xlsx").Activate
Sheets("50-100_T").Select
Rows(wz).EntireRow.Select
ActiveSheet.Paste
zw = zw + 1
End If
w = w + 1
Loop
End Sub
Ich weis das der Code sehr Hölzern ist aber so verstehe ich ihn.
Ich verwende Excel 2010
Vielen Dank euch!!!
Jens
|