Inputbox unterdrücken
07.10.2005 13:07:12
Lutz
wie kann ich meinen Code anpassen, dass sich beim Markieren des gesamten Blattes die Inputbox nicht öffnet.
Im Blatt habe ich bisher folgenden Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim x As String
If Intersect(Target, [B16:C115]) Is Nothing Then Exit Sub
x = InputBox("Daten einfügen:")
If x <> "" Then Target.Value = x
End Sub
Gruß Lutz
Anzeige