Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox, Werte bei Abbruch/ESC

Inputbox, Werte bei Abbruch/ESC
25.02.2009 10:59:40
lutz
Hallo, ich frage mit einer Abfrage beim Start einen Beutzer ab:

Sub Workbook_Open()
Dim dname As String
dname = InputBox("Kassierernamen eintragen (bei ESC bleibt der Name bestehen")
Sheets("Eingabe").Range("C21").Value = dname
End Sub


Jetzt möchte ich aber, dass bei der Eingabe entweder der Wert der Zelle C21 schon vorgelegt wird in der Inputbox oder, das bei Abbruch und Escape der Wert der Zelle C21 nicht verändert wird.
Wie geht das?
Gruß und vielen Dank Lutz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox, Werte bei Abbruch/ESC
25.02.2009 11:12:51
DirkP
Dim dname As String

Sub Workbook_Open()
dname = InputBox("Kassierernamen eintragen (bei ESC bleibt der Name bestehen", "Bitte  _
Eingabe",        Sheets("Eingabe").Range("C21").Value)
If dname  "" Then
Sheets("Eingabe").Range("C21").Value = dname
End If
End Sub


AW: Inputbox, Werte bei Abbruch/ESC
25.02.2009 11:14:28
Daniel
Hi
das Vorbelegen lässt sich doch einfach herausfinden, wenn man mal die Hilfe zur Inputbox studiert:

dname = InputBox("Kassierernamen eintragen (bei ESC bleibt der Name bestehen", , Sheets("Eingabe").Range("C21"))


der 2. Fall ist schon etwas schwieriger herauszufinden, weil die Funktion nicht dokumentiert ist


If StrPtr(dname)  0 Then Sheets("Eingabe").Range("C21").Value = dname


Gruß, Daniel

Anzeige
AW: siehe auch....
25.02.2009 11:37:09
lutz
Hallo,
vielen Dank für Eure Hilfe - geht wie verrückt.
Der andere Eintrag war für mich eine andere Frage - sorry Renee, ich mache das sonst nicht.
Hier ging es nur noch um die Inputbox.
Vielen Dank für die Hilfe und noch einen schönen Tag.
Gruß aus Hamburg Lutz

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige