AW: bei Mausklick soll Eintrag in Nachbarzelle erfolge
28.03.2014 11:48:27
Oberschlumpf
Hi Peter
versuch mal
Schreib den Code im VBE in das Tabellen-Modul, in dessen Tabelle dein Klick-Wunsch erfolgen soll, z Bsp im VBE in Tabelle1 (Tabelle1)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(Target.Address, ":") > 0 Or _
InStr(Target.Address, ";") > 0 Then
Exit Sub
End If
If Target.Column = 2 And _
Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Date
End If
End Sub
Die obere If-Bedingung prüft, ob mehr als eine Zelle markiert sind, wenn ja, dann Exit Sub, da es sonst zu einem Fehler kommt.
Die untere If-Bedingung wird nur dann ausgeführt, wenn irgdeine Zelle in Spalte B angeklickt wurde.
Der Code wird also IMMER ausgeführt, wenn in Spalte B eine Zelle angeklickt wird.
Und es wird in C nur dann ein Datum eingetragen, wenn C vorher leer.
Möchtest du aber, dass in C nur dann ein Datum eingetragen wird, wenn in Spalte B nur ein bestimmter Bereich, z Bsp B1-B10, angeklickt wird, dann versuch es so
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(Target.Address, ":") > 0 Or _
InStr(Target.Address, ";") > 0 Then
Exit Sub
End If
If Not Intersect(Target, Range("B1:B10")) Is Nothing And _
Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Date
End If
End Sub
Hier passiert fast das Gleiche, wie im ersten Code-Bsp.
Nur mit dem Unterschied, dass hier nur bei Klick in B1-B10 etwas passiert.
Wenn ein anderer Bereich in B gemeint ist, als im Bsp angegeben, dann korrigiere B1:B10 entsprechend.
Hilft etwas davon?
Ciao
Thorsten