Zelle per InPut-Box füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Ralf() 'Inputbox mit Type 1 laesst nur Zahlen als Eingabe zu. Worksheets("Tabelle1").Range("A23") = Application.InputBox("Anzahl der Ausdrucke", "Drucken" _ , 0, Type:=1) End Sub

Option Explicit Sub Ml() Dim Zelle As Range Dim WKs As Worksheet Set WKs = Worksheets("Vorb") Set Zelle = WKs.Range("B2") Zelle = InputBox("Bitte Wert eintragen", , "Hallo") Set Zelle = Nothing Set WKs = Nothing End Sub

Option Explicit Sub Ralf2() Dim Zelle As Range Dim WKs As Worksheet Dim Oldwert As String Set WKs = Worksheets("Vorb") Set Zelle = WKs.Range("B2") Oldwert = Zelle.Value Zelle = InputBox("Bitte Wert einttrgaen", , "Hallo") If Zelle = "" Then Zelle = Oldwert Set Zelle = Nothing Set WKs = Nothing End Sub

Sub Ralf2() Dim Zelle As Range Dim WKs As Worksheet Dim Oldwert As String Set WKs = Worksheets("Vorb") Set Zelle = WKs.Range("B2") Oldwert = Zelle.Value Zelle = InputBox("Bitte Wert einttrgaen", , Oldwert) If Zelle = "" Then Zelle = Oldwert Set Zelle = Nothing Set WKs = Nothing End Sub

Option Explicit Sub gemeinsam_schaffen_wir_es() Dim Zelle As Range Dim WKs As Worksheet Dim Oldwert As String Set WKs = Worksheets("Vorb") Set Zelle = WKs.Range("B2") Oldwert = Zelle.Value Zelle = InputBox("Bitte Wert eintragen", , Oldwert) If Zelle = "" Then Zelle = Oldwert Set Zelle = Nothing Set WKs = Nothing End Sub

...hier noch gar nicht gefallen, Leute!
Wenn Ralf mal das Herber-Archiv bemüht hätte, hätte er nicht fragen müssen! Da findet man etliche Möglichkeiten, u.a. auch recht komfortable Lösung(en) von mir. Die letzte liegt, glaube ich, noch gar nicht lange zurück... ;-)
Nach InputBox wird hiernämlich des Öfteren gefragt...
Kurz, ich würde nicht mit irgendwelchen Zellabfragen (das wäre die alternative Möglichkeit), sondern mit einer Konstanten und einer Static-Variablen arbeiten. Letztere wird beim Erstaufruf, solange sie also Empty ist, mit dem Wert der Const gefüllt und als Default in der InputBox angezeigt. Wenn das Eingabeergebnis ≠ Empty bzw Leerstring ist (bei Abbruch, evtl auch ≠ Eingabevorschrift, die die Const alternativ enthalten könnte), wird der evtl andere Eingabewert in die Static-Defaultvariable zurück geschrieben. Ansonsten bleibt der alte (bzw der jeweils neue) Wert während der ganzen xlSitzung erhalten. Die einzige Anpassung, die man ggf vornehmen müsste, wäre, die Const zu ändern. Wenn statt bzw zusätzlich zu der Const eine "normale" Dim-Variable benutzt wird, in die ein Zellwert gelesen wird, hätte man beide Möglichkeiten vereint. Liegt kein Zellwert (auch in Form eines reservierten Namens adressunabhängig gestaltbar) vor, wird Const zur Initialisierung benutzt. Auf diese Weise muss gar nicht in das Pgm eingegriffen wdn!
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle per InPut-Box füllen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread