Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle verlassen Makro

Betrifft: Zelle verlassen Makro von: Frank H.
Geschrieben am: 13.08.2020 20:53:56

Hallo Zusammen,
euch allen einen schönen Abend.

Wenn ich folgenden Code mittels Button ausführe funzt es.

For lng = 8 To 228

If Sheets("Besichtigungsprotokoll").Range("E9") = Sheets("Datenbestand").Cells(lng, 10) Then
Sheets("Besichtigungsprotokoll").Range("H11") = Sheets("Datenbestand").Cells(lng, 11)
End If

Next lng

Ich möchte aber beim Verlassen der Zelle E9, dass das Makro ausgeführt wird.
Da stelle ich mich gerade zu blöd an, wer kann helfen. Schon jetzt Danke.

Gruß Frank H.

Betrifft: AW: Zelle verlassen Makro
von: GerdL
Geschrieben am: 13.08.2020 22:24:04

Guten Abend Frank!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Static Old As Range

    If Not Old Is Nothing Then
    
        If Old.Address(0, 0) = "E8" Then
            MsgBox "Machwas"
        End If
    End If
    Set Old = Target

End Sub

Das erschlägt nicht alles, aber einiges.
Gruß Gerd

Betrifft: AW: Zelle verlassen Makro
von: Frank H.
Geschrieben am: 14.08.2020 08:48:55

Hallo Gerd,
Danke funzt Super!
L.G. Frank H.