title image


Smiley Danke und vollständiges Makro aufgeführt
Hallo jinx!



Vielen Dank. Hat schliesslich geklappt.



Ich noch einmal das geänderte Makro, auch für andere User:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    If Target.Address(False, False) = "A36:C36" Or Target.Address(False, False) = "D36" Then

        If Range("F18") = "" Then

            Range("F18") = Date

            MsgBox "Aktuelles Datum in dieser Bestätigung wurde eingefügt (Zelle F18)", vbInformation, "Info"

        End If

    End If

End Sub

Code eingefügt mit Syntaxhighlighter 1.14



Zur Info:

Bei meiner Tabelle sind 36 bis C36 verbunden; beim Markieren der Zelle wird aber nur A36 als Name in der Symbolleiste angezeigt.

Im Makro muss man jedoch "A36:C36" angeben, damit es funktioniert.



Nochmals Danke.
Gruß, Jan ----- Fotoforum: http://www.pixelforum.net

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: