Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inputbox unterdrücken

Inputbox unterdrücken
07.10.2005 13:07:12
Lutz
Hallo Experten,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox unterdrücken
07.10.2005 13:33:23
{Boris}
Hi Lutz,
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim x As String
If Not Intersect(Target, [B16:C115]) Is Nothing And Target.Count = 1 Then
x = InputBox("Daten einfügen:")
If x <> "" Then Target.Value = x
End If
End Sub

Grüße Boris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige