verbundene Daten aus Sheet1 in Sheet2
21.12.2005 18:18:52
ergolizer
ich habe im Archiv folgendes Script gefunden (Vielen Dank an den Ersteller), welches genau mein Problem trifft.
Lediglich muß bei mir das "X" nicht in Spalte A, sondern in Spalte N gesetzt werden. Eine weiterere Schwierigkeit, die ich nicht lösen kann; bei meinen Daten sind immer fünf Zeilen miteinander verbunden, die alle gemeinsam auf das eine "X" reagieren sollen.
Wenn mir einer helfen kann, würde ich mich sehr freuen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, ber As Range
Dim zeile As Long, i As Long
Dim shZiel As Worksheet
Set shZiel = Sheets("Tabelle2")
Set ber = Intersect(Target, Range("A2:A65536"))
On Error GoTo errhandler
Application.EnableEvents = False
If Not ber Is Nothing Then
For Each z In ber
zeile = shZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
z.EntireRow.Copy Destination:=shZiel.Cells(zeile, 1)
Next z
End If
zeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = zeile To 2 Step -1
If UCase(Cells(i, 1)) = "X" Then
Rows(i).Delete shift:=xlUp
End If
Next i
errhandler:
Application.EnableEvents = True
End Sub