Bestimmte Werte

Forumthread: Bestimmte Werte
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Bestimmte Werte

Bestimmte Werte

Einzel

Hallo,
habe folgenden Code:
InSheet = InputBox("Bitte Anlage im Format" & vbLf & "S1, S5, S6 usw ... eingeben!", "Tabelle festlegen", "S1")
Nun möchte ich das man aber nur bestimmte Werte eintragen kann. S1, S5, S6, S7, S8, S9
sobald ein anderer Wert eingegeben wird soll ein hinweis kommen das es diesen Wert nicht gibt.
kann mir da jemand helfen?
MfG
Stephan

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Bestimmte Werte

Original
AW: Bestimmte Werte

Matthias
AW: Bestimmte Werte

Einzel
AW: Bestimmte Werte

Einzel

AW: Bestimmte Werte

18.10.2009 21:08:19

Original

Hi,
da erscheint es sinnvoller, die gültigen Werte aus z.B. einer Combobox wählen zu lassen.
mfg Kurt

AW: Bestimmte Werte

18.10.2009 21:11:18

Matthias

Hallo
Option Explicit

Sub ml()
Dim InSheet As String
nochmal:
InSheet = InputBox("Bitte Anlage im Format" & vbLf & "S1, S5, S6 usw ... eingeben!", "Tabelle  _
festlegen", "S1")
If InSheet = "" Then Exit Sub
If InSheet  "S1" And InSheet  "S5" And InSheet  "S6" Then
MsgBox "[" & InSheet & "] Diesen Wert gibt es nicht ...": GoTo nochmal
End If
MsgBox InSheet
End Sub

Ich würde da aber eher eine Combobox benutzen
Gruß Matthias

AW: Bestimmte Werte

18.10.2009 21:44:34

Einzel

Leider weiß ich nicht wie das mit einer combobox geht.
MfG
Stephan

AW: Bestimmte Werte

18.10.2009 22:27:00

Einzel

Ich habe es wie im Beispiel von Matthias programmiert. Klappt danke
MfG
Stephan