|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.03.2009 19:44:02 |
Windhaber |
|
|
|
07.03.2009 20:08:32 |
Horst |
|
|
|
07.03.2009 20:20:20 |
Windhaber |
|
|
|
07.03.2009 20:32:39 |
Horst |
|
|
|
07.03.2009 20:41:50 |
Windhaber |
|
|
|
07.03.2009 20:54:37 |
Horst |
|
|
|
07.03.2009 20:57:07 |
Windhaber |
|
|
|
07.03.2009 21:03:30 |
Windhaber |
|
|
 Aw:Programmierung für Zahlen, Sonderzeichen, Großb |
08.03.2009 13:45:14 |
Holger |
|
|
|
09.03.2009 21:12:24 |
Horst |
|
|
|
09.03.2009 22:03:39 |
Windhaber |
|
|
Von:
Holger |
Datum:
08.03.2009 13:45:14 |
Views:
1613 |
Rating:
|
Antwort:
|
Thema:
Aw:Programmierung für Zahlen, Sonderzeichen, Großb |
Hallo Windhaber,
schau dir die VBA-Erklärungen für InputBox und Select Case an!
Sub Satzteile()
zahl = InputBox("Bitte geben Sie ihren Wert ein")
Select Case zahl
Case "0" To "9"
MsgBox "Das von ihnen eingegebene Zeichen war die Zahl: " & zahl
Case "A" To "Z"
MsgBox "DDas von ihnen eingegebene Zeichen war der Großbuchstabe: " & zahl
Case "a" To "z"
MsgBox "Das von ihnen eingegebene Zeichen war der Kleinbuchstabebuchstabe: " & zahl
Case ""
MsgBox "Es wurde nichts eingegeben!"
Case Else
MsgBox "Das von ihnen eingegebene Zeichen war das Sonderzeichen: " & zahl
End Select
End Sub
Gruß
Holger
Windhaber schrieb am 07.03.2009 19:44:02:
Habe folgende Aufgabenstellung bekommen:
'Programm soll herausfinden, ob ein Großbuchstabe, Kleinbuchstabe, eine Zahl (zw. 0 und 9) oder ein andere Zeichen eingegeben wurde!!
Das ganze sol über MsgBoxen und InputBoxen geschrieben werden.
Also ich starte das programm und gib eine Zahl einen Großbst oder einen Kleinbst oder ein Sonderzeichen eingen, anschließend Enter drücken und mittels MsgBox soll mir das Programm ausgeben welchen Großbst, Kleinbst, Zahl bzw. Sonderzeichen ich eingegeben habe!!!!
Brauche Hilfe so weit bon ich schon und kenn mich überhaupt nicht aus :
Dim Zahl As Single
Dim Sonderzeichen As Single
Dim Großbuchstabe As Integer
Dim Kleinbuchstabe As Integer
Sub Satzteile()
InputBox ("Bitte geben Sie ihren Wert ein")
Select Case Zahl
Case "0" To "9"
End Select
MsgBox "Die von ihnen eigegebene Zahl lautet:" & Format(Zahl)
Select Case Großbuchstabe
Case "A" To "Z"
End Select
MsgBox "Der eingegebene Buchstabe war ein Großbuchstabe: " & Format(Großbuchstabe)
End Sub
Bitte helft benötige das für die Schule hoffe ihr könnt mir helfen Danke
Lg Stefan |
- 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
|
|
07.03.2009 19:44:02 |
Windhaber |
|
|
|
07.03.2009 20:08:32 |
Horst |
|
|
|
07.03.2009 20:20:20 |
Windhaber |
|
|
|
07.03.2009 20:32:39 |
Horst |
|
|
|
07.03.2009 20:41:50 |
Windhaber |
|
|
|
07.03.2009 20:54:37 |
Horst |
|
|
|
07.03.2009 20:57:07 |
Windhaber |
|
|
|
07.03.2009 21:03:30 |
Windhaber |
|
|
Aw:Programmierung für Zahlen, Sonderzeichen, Großb |
08.03.2009 13:45:14 |
Holger |
|
|
|
09.03.2009 21:12:24 |
Horst |
|
|
|
09.03.2009 22:03:39 |
Windhaber |
|
|