Guten Morgen zusammen,
ich benötige einmal Eure Hilfe.Der Fall ist was kniffliger :)
Ich habe 2 Dateien welche je 1 Tabelle haben.
Ich möchte gerne folgendes:
Wenn der Wert aus Tabelle 2 Zeile B1 (=ThisWorkbook.ActiveSheet) in Tabelle 1 Spalte A:A vorkommt, eine Warnung herausgibt ob man das Kopierte dennoch einfügen möchte.
Zur Zeit sieht das Kopiermakro so aus, funktioniert auch entsprechend gut.
Sub uebertragen()
' Daten aus dieser Datei in Zieldatei kopieren
Dim sPfad As String, sDateiname As String
Dim iZeile1 As Long, iZeile2 As Long
Dim WShZ As Worksheet, WShQ As Worksheet, WkbZ As Workbook
Set WShQ = ThisWorkbook.ActiveSheet ' Quellblatt <<<anpassen>>
iZeile2 = WShQ.Cells(Rows.Count, "A").End(xlUp).Row ' Anzahl der Quellzeilen
sPfad = "Zielpfad" ' Zielpfad <<<anpassen>>
sDateiname = "Zieldatei.xlsx" ' Zieldatei <<<anpassen>>
Workbooks.Open Filename:=sPfad & sDateiname
Set WkbZ = ActiveWorkbook
Set WShZ = WkbZ.Sheets(1) ' Zielsheet <<<anpassen>>>
iZeile1 = WShZ.Cells(WShZ.Rows.Count, "A").End(xlUp).Row + 1 ' Erste freie Zeile
' Jetzt die Daten übernehmen
WShQ.Range("A4:H" & iZeile2).Copy Destination:=WShZ.Cells(iZeile1, "A")
WkbZ.Close savechanges:=True ' Zieldatei schließen
End Sub
Ist sowas überhaupt möglich umzusetzen?
|