Makro ändern auf Tabellenblatt

Hallo liebe Excelianer;
durch viele Informationen hier und im Archiv habe ich mir ein Makro gebastelt, dass auch funktioniert. ABER, ich weiß nicht, wie ich dieses Makro konzipieren soll, damit es nur zwei Tabellenblätter "überwacht", es wären "Kosten" und "Treibstoff".
Ich habe es auch schon versucht, das Makro so umzubenennen, dass es auf Worksheet heißt und auch in deren Tabellenblatt aufgerufen, bringt es keine Lösung.
Ich weiß keinen Rat und hoffe auf Hilfe.
Hier das Makro, dass auch funktioniert (über die komplette Datei)
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
If Target.Count > 1 Then Exit Sub
If Sh.Name = "Protokoll" Then Exit Sub
If Intersect(Target, Sh.Range("B7:O1000")) Is Nothing Then Exit Sub
With Sheets("Protokoll")
ErsteFreieZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ErsteFreieZeile, 1) = Now
.Cells(ErsteFreieZeile, 2) = Sh.Name
.Cells(ErsteFreieZeile, 3) = Target.Address(0, 0)
.Cells(ErsteFreieZeile, 5) = Target.Value
.Cells(ErsteFreieZeile, 6) = Environ("Computername")
.Cells(ErsteFreieZeile, 7) = ThisWorkbook.FullName
End With
End Sub

Meine Frage:
Wie kann ich dieses Makro so aufrufen, dass es nur das Tabellenblatt "Kosten" und "Treibstoff" auflistet?

Vielen Dank
Django

Hallo Django,

eine Mehrfachnennung kann gut mit einem Select Case behandelt werden:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)



    If Target.Count > 1 Then Exit Sub

    If Intersect(Target, Sh.Range("B7:O1000")) Is Nothing Then Exit Sub

    Select Case Sh.Name

    Case "Protokoll", "Treibstoff"

        Application.EnableEvents = False

        With Worksheets("Protokoll").Cells(Rows.Count, 1).End(xlUp) ' mit von unten kommend letzter befüllten Zelle in Spalte A

            .Offset(1, 0).Value = Now '1 Zeile tiefer, gleiche Spalte

            .Offset(1, 1).Value = Sh.Name '1 Zeile tiefer, eine Spalte nach rechts

            .Offset(1, 2).Value = Target.Address(0, 0) 'usw.

            .Offset(1, 3).Value = Target.Value

            .Offset(1, 4).Value = Environ("Computername")

            .Offset(1, 5).Value = ThisWorkbook.FullName

        End With

        Application.EnableEvents = True

    End Select

End Sub

Beachte, dass Du mit diesem Ereignis-Makro Daten in einem Blatt einträgst und somit eine Ereignis auslöst, was genau diese Ereignismakro hervorruft. Es bildet sich eine Endlose-Schleife. Die Lösung besteht daran, die Zelleneinträge zwischen

        Application.EnableEvents = False

        ...

        Application.EnableEvents = True

zu platzieren. Was es bewirkt, ist selbstredend.

VG
Yal

Forumthread: Makro ändern auf Tabellenblatt

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Makro ändern auf Tabellenblatt

Forumthread: Makro ändern auf Tabellenblatt

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread