Typen unverträglich: Inputbox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Dim KW As Variant KW = Application.InputBox(prompt:="Bitte die Kalenderwoche eingeben:", Title:="Kalenderwoche", Type:=1) If KW = False Then Exit Sub 'Bricht Vorgang ab KW = Int(KW) If IsNumeric(Worksheets("Tagesprogramm").Cells(1, 10).Value) Then If KW = KW > 53 Then 'aktuelle Woche als Zielwoche nehmen KW = Worksheets("Tagesprogramm").Cells(1, 10).Value ElseIf KW

Code: [Cc] Sub Test() Dim KW As String KW = InputBox(prompt:="Bitte die Kalenderwoche eingeben:", Title:="Kalenderwoche") If StrPtr(KW) = 0 Then Exit Sub '..... End Sub

Danke schön euch allen!!!
p.s. was hat es bei der anderen Lösung mit "Type:=1" auf sich?
Hallo Karl-Heinz,
danke =) habe zuerst die Variant Lösung probiert und deine danach.
Deine hat dabei deutlich besser funktioniert (Leereingabe gab beim anderen einen Fehler), interessant dass ein Vergleich mit Val() doch möglich ist.
Und auch dass auf meinem deutschen Rechner mit Office 2010 mein alter Code ging?!
Einzig wenn ich Abbruch drücke trägt es FALSCH in das Feld ein, statt das Exit Sub auszuführen;
was ich in google herausfinden konnte, dass es so eigentlich mit StrPtr gehen hätte müssen?
Danke nochmal an alle =)
Dim KW As String
KW = Application.InputBox(prompt:="Bitte die Kalenderwoche eingeben:", Title:="Kalenderwoche")
If StrPtr(KW) = 0 Then
Exit Sub
End If
If KW = "" Or Val(KW) > 53 Then
'MsgBox "aktuelle Woche als Zielwoche"
KW = Worksheets("Tagesprogramm").Cells(1, 10).Value
ElseIf Val(KW) 'MsgBox "Abziehen"
KW = Worksheets("Tagesprogramm").Cells(1, 10).Value + KW
Else
'KW = KW
End If
Worksheets("Statistik").Cells(10, 2).Value = KW
Sheets("Statistik").Select 'zum Statistikblatt springen

Hi
wenn du ELSE-If mit mehreren Abfragen hast und die Bedingungen nicht eindeutig sind, spielt die Reihenfolge der Abfragen eine Rolle, da immer nur der erste zutreffende Abschitt ausgeführt wird, alles was danach folgt wird nicht mehr angeschaut (auch wenn es vielleicht zutreffen könnte)
so gilt, dass VAL("irgendein Text") immer 0 ergibt
ebenso ist jeder Text immer größer als jede Zahl.
ich würde hier, wenn du mit String arbeitest, die Abfrage, ob ein Abbruch vorliegt, an den Anfang stellen:


IF KW = "Falsch" Or KW = "False" Then 'um deutsch oder englisch abzudecken, wenn andere Sprachen möglich sind, müssten diese berücksichtigt werden

wobei ich den Typ Variant für KW bevorzugen würde.
Dann kannst du über den Datentyp eindeutig feststellen, ob abgebrochen wurde oder ob OK gedrückt wurde.
Gruß Daniel

Sub test() Dim KW As Variant KW = Application.InputBox(prompt:="Bitte die Kalenderwoche eingeben:" & vbLf & "(0 = aktuelle KW)", _ Title:="Kalenderwoche", Type:=1) If VarType(KW) = vbBoolean Then 'Abbruch Exit Sub ElseIf KW = 0 Or KW > 53 Then 'aktuelle Woche als Zielwoche nehmen KW = Worksheets("Tagesprogramm").Cells(1, 10).Value ElseIf KW

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Typen unverträglich: Inputbox

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread