Thema Datum  Von Nutzer Rating
Antwort
30.04.2021 06:52:13 Dennis
Solved
Blau Wenn Wert aus Tabelle 2 in Tabelle 1 vorhanden dann nicht kopieren
 30.04.2021 07:18:51 Dennis
Solved
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:
Dennis		 Datum:
30.04.2021 07:18:51		 Views:
210		 Rating:
     
Antwort:
 Nein
Thema:
Wenn Wert aus Tabelle 2 in Tabelle 1 vorhanden dann nicht kopieren

Habe es bis jetzt soweit geschafft... zwar nicht wie ich mir es vorstelle aber was meine Kenntnisse noch so her gibt :P

Aber er gibt mir permament die Fehlermeldung aus das die letzte Leere Zeile in der zu kopierenden Datei doppelt ist.

Er sucht entsprechend nicht nach B1 aus Tabelle 2.

 

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
  Dim c As Range
  Dim PO As String
  
  PO = B1
  
  Set WShQ = ThisWorkbook.ActiveSheet                            ' Quellblatt <<<anpassen>>
  iZeile2 = WShQ.Cells(Rows.Count, "A").End(xlUp).Row            ' Anzahl der Quellzeilen
  sPfad = "xxxxxxxxxxxxxx"                              ' Zielpfad  <<<anpassen>>
  sDateiname = "xxxxxxxxx.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
 Set c = WShZ.Range("A:A").Find(PO, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
 MsgBox "PO ist bereits vorhanden in der Zeile " & c.Row
    Else
' Jetzt die Daten übernehmen
  WShQ.Range("A4:H" & iZeile2).Copy Destination:=WShZ.Cells(iZeile1, "A")
  End If
  WkbZ.Close savechanges:=True                                  ' Zieldatei schließen
End Sub

 

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
Blau Wenn Wert aus Tabelle 2 in Tabelle 1 vorhanden dann nicht kopieren
 30.04.2021 07:18:51 Dennis
Solved
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