VBA: wie wird dieser Code gestartet
27.04.2014 17:33:00
WalterK
den nachfolgenden Code habe ich im Internet gefunden. Den Code habe ich in "Diese Arbeitsmappe" kopiert. Er soll aus allen Blättern die Spalte A in das Blatt "AlleBGRZusammenstellen" untereinander kopieren. ABER: wie sollte der Code eigentlich gestartet werden. Als VBA-Laie ist mir das noch nicht klar!
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range, lngRow As Long
On Error GoTo ErrExit
Application.EnableEvents = False
If Sh.Name "AlleBGRZusammenstellen" Then
If Target.Column = 1 Then
With Sheets("AlleBGRZusammenstellen")
lngRow = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
For Each rng In Target
If IsError(Application.Match(rng, .Columns(1), 0)) Then
.Cells(lngRow, 1) = rng
lngRow = lngRow + 1
End If
Next
End With
End If
End If
ErrExit:
Application.EnableEvents = True
End Sub
Anzeige