Thema Datum  Von Nutzer Rating
Antwort
30.04.2021 06:52:13 Dennis
Solved
30.04.2021 07:18:51 Dennis
Solved
Rot Wenn Wert aus Tabelle 2 in Tabelle 1 vorhanden dann nicht kopieren
 01.05.2021 09:28:13 Werner
Solved
03.05.2021 18:42:59 Dennis
Solved
03.05.2021 19:15:23 Werner
Solved
03.05.2021 19:58:37 Dennis
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
01.05.2021 09:28:13		 Views:
179		 Rating:
     
Antwort:
 Nein
Thema:
Wenn Wert aus Tabelle 2 in Tabelle 1 vorhanden dann nicht kopieren

Hallo,

Option Explicit

Sub uebertragen()
Dim sPfad As String, sDateiname As String
Dim iZeileQuelle As Long, iZeileZiel As Long
Dim wsQuelle As Worksheet, wbZiel As Workbook, wsZiel As Worksheet

Set wsQuelle = ThisWorkbook.Sheets(1)
iZeileQuelle = wsQuelle.Cells(Rows.Count, "A").End(xlUp).Row
sPfad = "Zielpfad"
sDateiname = "Zieldatei.xlsx"

Set wbZiel = Workbooks.Open(Filename:=sPfad & sDateiname)
Set wsZiel = wbZiel.Sheets(1)

With wsZiel
    iZeileZiel = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    If WorksheetFunction.CountIf(.Columns("A"), wsQuelle.Range("B1")) > 0 Then
        If MsgBox("Der Wert ist schon vorhanden." & vbLf & vbLf & _
        "Sollen die Daten dennoch kopiert werden?", vbYesNo, "Rückfrage...") = vbYes Then
            wsQuelle.Range("A4:H" & iZeileQuelle).Copy wsZiel.Cells(iZeileZiel, "A")
            wbZiel.Close True
        Else
            MsgBox "Abbruch durch Nutzer."
        End If
    Else
        wsQuelle.Range("A4:H" & iZeileQuelle).Copy wsZiel.Cells(iZeileZiel, "A")
        wbZiel.Close True
    End If
End With

Set wsQuelle = Nothing: wbZiel = Nothing: Set wsZiel = Nothing
End Sub

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.04.2021 06:52:13 Dennis
Solved
30.04.2021 07:18:51 Dennis
Solved
Rot Wenn Wert aus Tabelle 2 in Tabelle 1 vorhanden dann nicht kopieren
 01.05.2021 09:28:13 Werner
Solved
03.05.2021 18:42:59 Dennis
Solved
03.05.2021 19:15:23 Werner
Solved
03.05.2021 19:58:37 Dennis
Solved