Thema Datum  Von Nutzer Rating
Antwort
31.01.2021 14:13:18 Markus
NotSolved
Blau Tabellen nach gleicher Zeile durchsuchen und beide löschen
 31.01.2021 21:07:54 AlterDresdner
NotSolved
31.01.2021 21:41:37 Markus
NotSolved
01.02.2021 01:12:39 ralf_b
Solved
01.02.2021 12:17:18 AlterDresdner
NotSolved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
31.01.2021 21:07:54		 Views:
621		 Rating:
     
Antwort:
  Ja
Thema:
Tabellen nach gleicher Zeile durchsuchen und beide löschen

Hallo Markus, es ist möglich:

Sub ZeilenLoeschen()
Dim sh1 As Object, sh2 As Object, found, zeile As Long
  Set sh1 = ThisWorkbook.Sheets("Tabelle1")
  Set sh2 = ThisWorkbook.Sheets("Tabelle2")
  zeile = sh1.Cells(Rows.Count, 1).End(xlUp).Row
  If ActiveCell.Row > zeile Then Exit Sub
  zeile = ActiveCell.Row
  Set found = sh2.Range("A:A").Find(what:=sh1.Cells(zeile, 1), lookat:=xlWhole)
  If Not (found Is Nothing) Then
    sh1.Rows(zeile).Delete shift:=xlUp
    sh2.Rows(found.Row).Delete shift:=xlUp
  End If
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
31.01.2021 14:13:18 Markus
NotSolved
Blau Tabellen nach gleicher Zeile durchsuchen und beide löschen
 31.01.2021 21:07:54 AlterDresdner
NotSolved
31.01.2021 21:41:37 Markus
NotSolved
01.02.2021 01:12:39 ralf_b
Solved
01.02.2021 12:17:18 AlterDresdner
NotSolved