PS: Pass auf dass du keine Endlosschleifen baust. Sonst stürzt dir dein Excel ab. Am besten baust du in Schleifen zu Beginn einen Haltepunkt, bis du weißt, dass sicher beendet wird. Ist mühsehlig beim durchklicken, aber das ist das Warten auf das abstürzende
Excel auch;). Wenn du etwas mehr Erfahrung gesammelt hast, lässt du das mit dem Haltepunkt in der Schleife dann wieder weg.
Excel Vba Wert In Zelle Schreiben Download
2011, 10:29
# 7
Wie ihr seht, hat er sich gemeldet
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
10. 2011, 10:43
# 8
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? Excel vba wert in zelle schreiben download. 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.
Excel Vba Wert In Zelle Schreiben 2019
10. 02. 2011, 08:58
# 1
Aragorn25
VBA - 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 = putBox("Bitte geben Sie die Artikelnummer ein. VBA - in nächste freie zeile schreiben - MS-Office-Forum. ", "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
10. 2011, 09:26
# 2
MOF Guru
Registrierung: 21. 2009
Hallo
meinst Du es so? Code:
Sub versuch()
With Sheets("Tabelle1")("C5")
If <> "" Then
If MsgBox("soll Wert überschrieben werden", vbYesNo) = vbYes Then
= Artikelnummer
GoTo weiter
End With
weiter:
MsgBox "Code weiter ausfuehren"
gruss hary
10.
10. 2011, 11:55
# 9
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
10. 2011, 12:05
# 10
Vorschlag:
baue Dir eine eigene Userform mit einer Textbox und drei Buttons. Excel vba wert in zelle schreiben 2019. da kannst Du dann machen was Du willst. gruss hary