Zeilen in andere Arbeitsmappe kopieren
08.01.2021 13:00:09
Sveni
ich benötige Hilfe beim zusammenfügen von zwei VBA Codes.
Ich möchte Zeilen mit dem Wert "ja" in eine bestehende Arbeitsmappe kopieren.
Der folgende Code kopiert ein komplettes Tabellenblatt in eine ausgewählte Datei.
Ich möchte aber nur die ganzen Zeilen mit dem Wert "ja" in die ausgewählte Datei kopieren!
Die Formatierung muss dabei nicht übertragen werden, lediglich der gesammte Inhalt
und auch Objekttypen die in der jeweiligen Zeile hinterlegt sind.
Vielen Dank schon mal!
Sub BlattKopieInMappe()
Dim Quelle As Workbook
Dim Ziel As Workbook
Dim Dialog As FileDialog
Dim Blatt As Worksheet
Application.ScreenUpdating = False
Set Quelle = ThisWorkbook
Set Blatt = Quelle.ActiveSheet
Set Dialog = Application.FileDialog(msoFileDialogFilePicker)
With Dialog
.Title = "Bitte Zieldatei wählen"
.AllowMultiSelect = False
If .Show -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else:
Set Ziel = Workbooks.Open(.SelectedItems(1))
End If
End With
With Ziel
Blatt.Copy after:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = .Worksheets(.Worksheets.Count).Range("A1").Text
.Save
.Close
End With
Application.ScreenUpdating = True
End Sub
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "Ja" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub