Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
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
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

InputBox

InputBox
Werner
Hallo zusammen,
ich habe folgendes Problem:
Wenn das Tabellenblatt Aktiviert wird soll eine Inputbox erscheinen in der ich eine Zahl eingeben kann z.B. 2010 und bei klick auf ok soll diese Zahl in die Zelle G5 des Tabellenblattes Übernommen werden.
Gruß Werner

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: InputBox
19.09.2010 02:04:40
DirkR
Hallo Werner,
versuch mal folgendes:
Private Sub Worksheet_Activate()
Dim Number As Long
Number = InputBox("Bitte geben Sie eine Zahl ein", "Titel")
If IsNumeric(Number) Then
Cells(1, 1).Value = strInput
Else
MsgBox "Keine Zahl"
End If
End Sub
Gruß DirkR
AW: InputBox
19.09.2010 02:08:13
DirkR
Hallo Werner,
habe noch Fehler entdeckt, hier der richtige Code:
Private Sub Worksheet_Activate()
Dim Number As Long
Number = InputBox("Bitte geben Sie eine Zahl ein", "Titel")
If IsNumeric(Number) Then
Cells(5, 7).Value = Number
Else
MsgBox "Keine Zahl"
End If
End Sub
Gruß DirkR
Anzeige
so?
19.09.2010 02:43:50
CitizenX
Hallo Werner
Code kommt ins Modul des Blattes:
Option Explicit
Private Sub Worksheet_Activate()
Dim myWert
myWert = InputBox("Bitte Wert eingeben")
If IsNumeric(myWert) Then
Cells(5, 7) = myWert
End If
End Sub

Grüße
Steffen
Besser so
19.09.2010 09:24:45
JogyB
Hallo Werner,
so kann man nur eine Zahl eingeben. 
Private Sub Worksheet_Activate()
Dim einGabe
einGabe = Application.InputBox("Bitte Zahl eingeben", "Eingabe", , , , , , 1)
If Not VarType(einGabe) = vbBoolean Then Range("G5") = einGabe
End Sub

Gruß, Jogy
Anzeige
AW: Besser so
19.09.2010 11:37:40
Werner
Hallo zusammen,
zuerst mal herzlichen Dank für Eure Antworten.
Die Lösung von Jogy habe ich übernommen.
Gruß Werner

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