VBA: Zeile in anderem Blatt finden und löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim wsInput As Worksheet Set wsInput = Sheets("Input") If Not Intersect(Target, Columns(5)) Is Nothing Then wsInput.Cells.Rows(Target.Cells.Row).Delete End If End Sub

Rob, vielen Dank für deine schnelle Antwort und den Vorschlag! Daniel hat allerdings recht: Die Listen sind nicht exakt identisch.
Grundsätzlich gilt: Einträge, die im Input gelöscht werden, werden nicht in den Output übernommen (fliegen also bei der nächsten Aktualisierung raus - dafür hab ich bereits einen Makro). Allerdings arbeite ich ausschließlich im Output, weshalb ich von dort aus gerne Sachen im Input löschen möchte. Wenn ich etwas nur im Output lösche, taucht es bei der nächsten Aktualisierung wieder auf, weil es nach wie vor im Input vorhanden ist.
Ich habe also drei Möglichkeiten:
1. Manuell: ID im Input suchen und Zeile dort löschen (das will ich vermeiden)
2. VBA: ID im Input suchen und Zeile dort löschen
3. VBA: ID im Input suchen und Zeile dort löschen, zusätzlich Zeile im Output löschen (alternativ den VBA aus Lösung Nr. 2 einfach zweimal laufen lassen)
Zudem ist die Spaltenaufteilung nicht die gleiche. Im Input sind deutlich mehr Spalten vorhanden, welche ich nicht alle in den Output übernehme.

Doch bischen mehr Code wie ich dachte aber damit sollte es funktionieren:


Option Explicit
Dim lastColumn As Integer, lastRow As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wsInput As Worksheet, wsOutput As Worksheet
Dim findText As Range
Set wsInput = Sheets("Input")
Set wsOutput = Sheets("Output")
If Not Intersect(Target, Columns(5)) Is Nothing Then
'Funktion aufrufen um ID zu erstellen -> Verkettung der Spalten
Call ConcatenateRows(wsInput)
Call ConcatenateRows(wsOutput)
'ID in Arbeitsblatt 'Input' suchen und Zeile löschen
lastColumn = wsInput.Cells(1, Columns.Count).End(xlToLeft).Column
Set findText = wsInput.Columns(lastColumn).Find(Target.Offset(0, 1))
wsInput.Rows(findText.Row).Delete
'Ausgewählte Zeile in Arbeitsblatt 'Output' löschen
Rows(Target.Row).Delete
End If
'Abschließend die IDs wieder löschen
wsInput.Columns(lastColumn).Clear
lastColumn = wsOutput.Cells(1, Columns.Count).End(xlToLeft).Column
wsOutput.Columns(lastColumn).Clear
End Sub
Private Sub ConcatenateRows(ws As Worksheet)
Dim r As Range, concatRange As Range
With ws
lastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
lastRow = .Cells(.Rows.Count, 5).End(xlUp).Row
Set concatRange = .Range(.Cells(1, lastColumn), .Cells(lastRow, lastColumn))
End With
For Each r In concatRange
r = Application.WorksheetFunction.Concat(r, r.Offset(0, -5), r.Offset(0, -4), r.Offset( _
0, -3))
Next r
End Sub

Beliebteste Forumthreads (12 Monate)

VBA: Zeile in anderem Blatt finden und löschen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Zeile in anderem Blatt finden und löschen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread