Makro auf Tabellenblatt-Wechsel starten
03.11.2006 12:29:38
Düppi
ich möchte ein Makro beim Wechsel auf das Tabellenblatt "Guetersloh" starten. Folgendes Makro steht im Code des Blattes "Guetersloh" - mit der lästigen Krücke, es durch Eingabe von Irgendwas in "J5" zu starte. Das ist umständlich, ich möchte es ja - wie gesagt - starten, sobald das Blatt angewählt wird.
Wer weiß Rat, fragt und grüßt Düppi!
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "J5"
Dim lGT As Integer
Dim lWD As Integer
Worksheets("Guetersloh").Range("K5:K52").ClearContents
For lGT = 5 To 52
For lWD = 1 To 52
If Sheets("Ausgaben").Range("B" & lGT).Value = Sheets("Ausgaben").Range("J" & lWD).Value Then
Sheets("Guetersloh").Range("K" & lGT).Value = Sheets("Ausgaben").Range("I" & lWD)
Exit For
End If
Next lWD
Next lGT
Case Else
End Select
End Sub