Microsoft Excel

Herbers Excel/VBA-Archiv

VBA: wie wird dieser Code gestartet

Betrifft: VBA: wie wird dieser Code gestartet von: WalterK
Geschrieben am: 27.04.2014 17:33:00

Hallo,
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
Besten Dank für die Hilfe und Servus, Walter

  

Betrifft: AW: VBA: wie wird dieser Code gestartet von: Hajo_Zi
Geschrieben am: 27.04.2014 17:34:29

der Code wird gestartet durch eine Eingabe.

GrußformelHomepage


  

Betrifft: OK, danke Hajo. Servus Walter von: WalterK
Geschrieben am: 27.04.2014 17:51:06




  

Betrifft: Schau mal das hier an Walter,.. von: Matze Matthias
Geschrieben am: 27.04.2014 23:10:02

Hallo Walter,

http://www.online-excel.de/excel/singsel.php?f=100

vielleicht geht es auch ohne VBA zumindest kannst du es mal testen.

Gruß Matze


  

Betrifft: Danke Matthias, werde es mal anschauen. Servus von: WalterK
Geschrieben am: 28.04.2014 21:46:34

Walter