Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.02.2016 15:54:53 |
Jürgen |
|
|
|
03.02.2016 18:23:08 |
BigBen |
|
|
Default Wert in Box aus Zelle lesen und schreiben? |
03.02.2016 18:49:01 |
Gast86314 |
|
|
|
03.02.2016 20:13:56 |
Jürgen |
|
|
Von:
Gast86314 |
Datum:
03.02.2016 18:49:01 |
Views:
453 |
Rating:
|
Antwort:
|
Thema:
Default Wert in Box aus Zelle lesen und schreiben? |
Hallo,
kannst es hier mal mit versuchen..
Option Explicit
Private Sub bei_start_inputbox()
Dim vntInput As Variant
With ThisWorkbook.Worksheets("Tabelle1").Cells(1, 1)
Do
vntInput = InputBox(Prompt:="Eingabe-Pers. NR", Title:="Abfrage Pers.-Nr.", Default:=.Value)
If StrPtr(vntInput) = 0 Then
Call MsgBox("Bitte bestätigen Sie Ihre Eingabe mit 'Ok'")
ElseIf Trim$(vntInput) = "" Then
Call MsgBox("Nix eingegeben")
ElseIf Not IsNumeric(vntInput) Then
Call MsgBox("Bitte geben Sie eine Zahl ein..")
ElseIf IsNumeric(vntInput) And (CLng(vntInput) \ 10000 < 1 Or CLng(vntInput) \ 10000 > 9) Then
Call MsgBox("Die eingebene Zahl muß exakt fünf Ziffern enthalten...")
Else
Exit Do
End If
Loop
.Value = vntInput
End With
End Sub
Private Sub Workbook_Open()
Call bei_start_inputbox
End Sub
Gruß,
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.02.2016 15:54:53 |
Jürgen |
|
|
|
03.02.2016 18:23:08 |
BigBen |
|
|
Default Wert in Box aus Zelle lesen und schreiben? |
03.02.2016 18:49:01 |
Gast86314 |
|
|
|
03.02.2016 20:13:56 |
Jürgen |
|
|