Thema Datum  Von Nutzer Rating
Antwort
22.03.2022 13:40:59 Peter
NotSolved
22.03.2022 18:53:50 AlterDresdner
NotSolved
23.03.2022 07:54:09 Peter
NotSolved
Blau Tabelle auf Unterschied prüfen via VBA
 23.03.2022 14:25:21 AlterDresdner
NotSolved
03.04.2022 10:30:32 Gast42108
NotSolved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
23.03.2022 14:25:21		 Views:
501		 Rating:
     
Antwort:
  Ja
Thema:
Tabelle auf Unterschied prüfen via VBA

Hallo Peter,
damit sollte es gelingen:

Sub vergleichen()
Dim B1 As Object, B2 As Object
Dim zeile As Long, erg As Variant, Mittlg As String
  Set B1 = ActiveWorkbook.Sheets(1)
  Set B2 = ActiveWorkbook.Sheets(2)
  With B1
    For zeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
      Set erg = B2.Columns(1).Find(what:=.Cells(zeile, 1), lookat:=xlWhole)
      If erg Is Nothing Then
        Mittlg = Mittlg & IIf(Mittlg = "", "", "; ") & .Cells(zeile, 1)
      End If
    Next zeile
  End With
  If Mittlg = "" Then Mittlg = "alle Ds vorhanden"
  MsgBox Mittlg, vbOKOnly, "noch nicht erfasste IDs"
End Sub

Gruß der ALteDresdner

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
22.03.2022 13:40:59 Peter
NotSolved
22.03.2022 18:53:50 AlterDresdner
NotSolved
23.03.2022 07:54:09 Peter
NotSolved
Blau Tabelle auf Unterschied prüfen via VBA
 23.03.2022 14:25:21 AlterDresdner
NotSolved
03.04.2022 10:30:32 Gast42108
NotSolved