Hey ihr Lieben,
folgendes Problem:
ich möchte gerne eine Datei öffnen, das aktive Blatt in vorgegeben Spalten nach Kriterien durchsuchen. Das klappt soweit.
Wenn diese Kriterien allerdings beide erfüllt sind soll er mir die ganze Zeile kopieren und in ein anderes Workbook in ein neues Tabellenblatt kopieren.
Die Spalten die ich mit Hochkommata gesetzt habe waren ein anderer Weg wie ich versucht habe, dass mit dem Kopieren hinzubekommen, hat aber auch nicht geklappt.
Nachdem ich die ganze Zeile in eine andere Datei kopiert habe soll sich die Ursprungsdatei automatisch schließen.
Hier mein Makro:
Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+Umschalt+M
'
Workbooks.Open Filename:="H:\Max Mustermann\VBA Aufgabe Prio Deru\Vorgehen Besprechung mit Max.xlsm", UpdateLinks:=0, Notify:=False
Sheets("Sheet1").Activate
Dim Zeile As Long
Dim n As Long
With Sheet1
n = 1
For Zeile = 14 To ActiveSheet.UsedRange.Rows.Count
If Cells(Zeile, 18).Value = "kein FA" Then
If Cells(Zeile, 32).Value <> 0 Then
Rows(Zeile).Copy Destination:=Workbooks("H:\Max Mustermann\VBA Aufgabe Prio Deru\VBA Lösungsüberlegungen.xlsm").Sheets("Tabelle1").Range("A1")
' Workbooks.Open Filename:="H:\Max Mustermann\VBA Aufgabe Prio Deru\VBA Lösungsüberlegungen.xlsm"
' Sheets("Tabelle1").Range("A1").Activate
' ActiveSheet.Paste
End If
End If
Next Zeile
End With
Application.CutCopyMode = False
Workbooks("H:\Max Mustermann\VBA Aufgabe Prio Deru\Vorgehen Besprechung mit Max.xlsm").Close SaveChanges:=False
End Sub
Ich hoffe, ihr könnt helfen, lieben Gruß
Sarah
|