Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWünsch Dir wasWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Excel Inputbox Zahl 0 eingeben

Mitglied: semper

semper (Level 1) - Jetzt verbinden

10.07.2020 um 19:30 Uhr, 238 Aufrufe, 2 Kommentare

Hey Leute,

Ich habe das Problem und hoffe das mir jemand weiterhelfen kann.

Ich schreibe Zahlen in eine Inputbox und diese werden in Spalte A nach unten fortlaufend eingetragen . Nur die Zahl 0 nimmt er nicht. Gebe Ich die Zahl Null ein und bestätige mit Enter oder OK schließt sich das Inputfenster und die Zelle bleibt leer.

Hier der Code:

Kann mir da jemand helfen das auch die 0 wie eine Zahl behandelt wird und wie alle anderen fortlaufend eingetragen wird?

Danke
Mitglied: Meierjo
LÖSUNG 11.07.2020 um 15:17 Uhr
Hallo

Kurzum:
Wenn var=0 ist, wird var als False interpretiert, und der Code wird beendet.
Kannst du sehen, wenn du den Code in der Entwicklungs-Umgebung mit F8 Schritt für Schritt abarbeitest

Dein Code läuft das erste Mal durch, da du vor dem Eintritt in die Schleife var=1 festlegst.
Wenn dann in der Inputbox der Wert 0 eingegeben wird, wird in Zeile 15 der Code beendet, da var = false.

Du kannst das Verlassen der Schleife unterbinden, indem du zb den Code in Zeile 10 und Zeile 15 änderst
.
Dann macht aber der Code aus meiner Sicht keinen Sinn mehr.

Was willst du denn überhaupt erreichen, was ist das Ziel??

Gruss
Bitte warten ..
Mitglied: semper
12.07.2020 um 05:39 Uhr
Ein User von einem Anderen Forum hat den Code umgeschrieben:

Sub InputWerte()
Dim var As Variant
Dim iRow As Integer
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
var = 1
Do Until VarType(var) = vbBoolean And var = False
var = Application.InputBox( _
prompt:="Wert:", _
Default:=var, _
Type:=1)
If VarType(var) = vbBoolean And var = False Then Exit Sub
Cells(iRow, 1).Value = var
iRow = iRow + 1
Loop
End Sub

So funktioniert es
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBS InputBox Format
gelöst Frage von freshman2017VB for Applications4 Kommentare

Guten Morgen, ist es möglich, nachfolgende Abfrage so zu gestalten, dass bei der Eingabe eines falschen Formats eine weitere ...

Microsoft Office

Outlook 2013 - Excel Anhang durchsuchen nach Zahl

Frage von schoenengutentagMicrosoft Office18 Kommentare

Hallo, besteht irgendwie die Möglichkeit in Outlook die Inhalte der Excelanhänge zu durchsuchen? Text wird in den Excelanhängen richtig ...

Microsoft Office

Excel 2013 Zahl aus einem String auslesen

Frage von DerSkipperMicrosoft Office3 Kommentare

Hallo zusammen. für eine Reorg in der Firma ändern sich die Nummern aller OE-Einheiten in allen Hierarchien. Ebenso sollen ...

Microsoft Office

Excel, Zahl in Zelle, anderen Werte addieren

gelöst Frage von wusa88Microsoft Office5 Kommentare

Hallo Zusammen, der Titel ist schwierig zu wählen, aber ich versuche zu erklären, was ich vorhabe. Hier mal ein ...

Neue Wissensbeiträge
Exchange Server

Exchange Server 2016 and the End of Mainstream Support

Information von Dani vor 3 StundenExchange Server

As hopefully many of you already know Exchange Server 2016 enters the Extended Support phase of its product lifecycle ...

Viren und Trojaner

Schwachstelle in Teamviewer oder aufgeflogene Backdoor?

Information von magicteddy vor 1 TagViren und Trojaner

Moin, die Interpretation überlasse ich jedem selber, ich habe eine deutliche Abneigung dagegen. Wer es nutzen muss sollte schleunigst ...

Sicherheit

Eine ungepatchte Sicherheitslücke in der Windows Druckerwarteschlange ermöglicht das Ausführen von Malware mit Adminrechten

Information von transocean vor 3 TagenSicherheit

Moin, eigentlich sollte die Sicherheitslücke schon seit Mai 2020 geschlossen sein. Aber lest selbst. Grüße Uwe

Erkennung und -Abwehr

Liste ungeschützter Pulse-VPN-Server veröffentlicht

Information von Visucius vor 5 TagenErkennung und -Abwehr

bzw. Der tiefe Blick in die Profi-Administratoren-Welt ;-)

Heiß diskutierte Inhalte
Internet
VPN und Fritzbox
Frage von jensgebkenInternet29 Kommentare

Hallo Gemeinschaft, da der Support von AVM mir keine Antwort gibt, versuche ich es hier einmal HArdware 7490 zwei ...

Sicherheit
Verschlüsseln anstatt löschen ?
Frage von TastuserSicherheit17 Kommentare

Hallo, ist es möglich ganze Ordner auf Windows 10 zu verschlüsseln? Aber keine Kopien zu verschlüsseln (wie mit WinRAR) ...

Switche und Hubs
Neue Switches für Schule
Frage von Freak-On-SiliconSwitche und Hubs13 Kommentare

Servus; Eins Vorweg, bin leider in vielen Sachen noch nicht so erfahren. Und nein, ich kann LEIDER keinen Dienstleister ...

Windows 10
Bildschirmschoner startet zu früh, trotz korrekter GPO
Frage von toddehbWindows 1011 Kommentare

Hi, habe für einen Kollegen gerade ein neues Dell 7410 Laptop eingerichtet. Wie alle anderen Nutzer auch, bekommt er ...

Weniger Werbung?
Administrator Magazin
08 | 2020 Cloud-First-Strategien sind inzwischen die Regel und nicht mehr die Ausnahme und Workloads verlagern sich damit in die Cloud – auch Datenbanken. Dort geht es aber nicht nur um die Frage, wie die Datenbestände in die Wolke zu migrieren sind, sondern auch darum, welche Datenbank ...