Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
31.01.2021 14:13:18 |
Markus |
|
|
Tabellen nach gleicher Zeile durchsuchen und beide löschen |
31.01.2021 21:07:54 |
AlterDresdner |
|
|
|
31.01.2021 21:41:37 |
Markus |
|
|
|
01.02.2021 01:12:39 |
ralf_b |
|
|
|
01.02.2021 12:17:18 |
AlterDresdner |
|
|
Von:
AlterDresdner |
Datum:
31.01.2021 21:07:54 |
Views:
624 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Tabellen nach gleicher Zeile durchsuchen und beide löschen |
31.01.2021 21:07:54 |
AlterDresdner |
|
|
|
31.01.2021 21:41:37 |
Markus |
|
|
|
01.02.2021 01:12:39 |
ralf_b |
|
|
|
01.02.2021 12:17:18 |
AlterDresdner |
|
|