Office: Inputbox: Wert in Zelle lassen oder überschreiben

Hallo zusammen

Ich bin auf untenstehende Frage gestossen...

Wie kann folgende Sub ergänzt werden, wenn bereits ein Wert in der betreffenden Zelle vorhanden ist?
Also wenn in C5 bereits ein Eintrag vorhanden ist und nun dieser überschrieben werden sollte.


Sub Inputbox_öffnen()
Dim Artikelnummer As Variant
Artikelnummer = Application.InputBox("Bitte geben Sie die Artikelnummer ein.", "Artikelnummereingabe", , Type:=1)
If Artikelnummer = False Then
Exit Sub
Else
Sheets("Tabelle1").Activate
Range("C5") = Artikelnummer
End If
End Sub


Das funktioniert. Ich möchte nun aber eine weitere Möglichkeit:
1. einen Wert in eine Zelle einfügen können (code oben ok)
2. abbrechen können (code oben ok)
3. den bestehenden Wert in der Zelle lassen und dennoch im Makro weiterfahren

Gruß und Besten Dank im Voraus

:)

 

Hallo
meinst Du es so?
Code:

gruss hary

 

Hallo Aragorn25,

oder so?

Code:

Grüße
EarlFred

 

Hallo EarlFred
mich hat nur das stutzig gemacht:

mit was fuer einem Code weitermachen? daher mit Sprungmarke
gruss hary

 

Hallo hary,

ja, bin ich auch drüber gestolpert. Habe mal ins Blaue rein geraten.
Er wird das schon irgendwie verwenden können, sonst wird er sicher nachfragen... *wink.gif*

Grüße
EarlFred

 

Besten Dank.

Noch besser wäre es, wenn ich ohne einen Wert einzugeben, Ok drücken könnte und der Wert in der Zelle bleibt.

Weiss nicht, ob das kompatibel ist mit Type:=1

Gruss

 

Wie ihr seht, hat er sich gemeldet *Smilie

Habe nicht viel Ahnung auch in Forumsdiskussionen nicht. hatte vorher die Seite nicht aktualisiert...

Versuche nochmals kurz das zu erklären. Die Variante von EarlFred kommt meiner Vorstellung schon näher.

3 sollte das Fenster aufweisen:

1. 100 eingeben -> Ok -> 100 wird in Zelle geschrieben
2. Ok -> nichts wird in Zelle geschrieben, da immer schon ein Wert in dieser Zelle steht
3. Abbrechen -> Abbruch des Markos

Danke euch nochmals

Gruss

 

Hallo Aragorn,

wenn ich keinen Wert eintragen will, dann klicke ich Abbruch - das akzeptiert das Makro ja auch und es wird auch nichts an der Tabelle geändert. Warum sollte ich denn in diesem Fall OK klicken, wenn ich nichts ändern will?

Punkt 2 verstehe ich nicht. Wenn Du OK klickst, soll nichts in die Zelle eingetragen werden, da dort schon was steht? Woher weißt Du das denn? Das würde ja Punkt 1 ad absurdum führen.

Was versehst Du unter Punkt 3 als "Abbruch"?

Bitte schreib nochmal ordentlich auf, was wann wie wo warum passieren soll.

Grüße
EarlFred

 

Hallo EarlFred

Ich möchte eine Unterscheidung zwischen Abbruch des Makros und "Abbruch" der Application InBox. Daher habe ich gedacht, statt 3 Buttons (wäre auch ok), schlage ich vor, dass man den Ok Button doppelt benutzen kann.

Die Zellen sind immer gefüllt, da eine Vorlage existiert, die ich oft auswerten muss. Sobald ich die Werte einmal geändert habe, kann ich die meisten weiterverwenden, ohne sie abzuändern.

Gruss Aragorn

 

Hallo
Vorschlag:
baue Dir eine eigene Userform mit einer Textbox und drei Buttons.
da kannst Du dann machen was Du willst.
gruss hary