Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

InputBox

Forumthread: 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
Anzeige

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
Anzeige
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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige