Clever-Excel-Forum

Hallo,

habe ein "eigentlich" funktionierendes Makro in eine andre Datei kopiert und die Zeile:

Code:
Worksheets("Tabelle1").Activate

eingefügt.

Dann verbinde ich das Makro mit einem Schalter und erhalte:
[attachment=40869]

Was meint es damit?
Hier der Code:

Code:
Sub Aufklapper(ByVal Target As Range)

Worksheets("Tabelle1").Activate

Static lngCol As Long

With Application

    If Not Intersect(Target, Range("A4:AZ5")) Is Nothing Then

        .EnableEvents = False

        Target.Resize(Range("A1"), Range("A2")).Select 'A1=2, A2 = 5

        If Target.Column < lngCol Then

            Target.Offset(2, 0).Resize(2, 100).ClearContents

        End If

        Target.Offset(2, 0) = WorksheetFunction.Sum(Selection)

        .EnableEvents = True

    End If

End With

lngCol = Target.Column

End Sub

Hallo

in deinem Code gibt es einige Dinge die NICHT zusammenpassen! Schau bitte mal genau hin!
Du verwendest Target in einem Standard Makro das in ein Modul gehört, das kann meines Wissens NICHT klappen!! Excel ist da sehr empfindllich.
Ersetze Target bitte mal durch "ActiveCell" und schau mal ob der Code dann funktioniert. Auch in der Klammer Target weglassen! "Sub Aufklapper()"

Target gehört immer als Privat Sub in ein Tabellenblatt. Dazu gibt es definierte Ereignisse wie Change, Activate, usw., aber keinEreignis:l "Aufklapper"

mfg Gast 123

kurtkurt57

Gast 123