Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inputbox Problem

Inputbox Problem
19.04.2006 13:19:46
helena
Hallo
denke ein Problem noch für heute, dann sollte alles klappen
Quelle irgendwo aus Forum, Problem ist Zelle darf nie leer sein
denn dies ergibt Blattname wenn Abruch dann sollte "MUSTER"
in Zelle stehen oder auch wenn OK drückt alte Wert erhalten bleiben
bleibst jetzt stecken bei EXIT sub

Sub Name_Insert()
Dim sTxt As String
sTxt = InputBox("Bitte Modulname/Blattname eingeben:")
If sTxt = False Then Exit Sub
Range("O2").Value = sTxt
End Sub

gruss helena

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox Problem
19.04.2006 13:27:21
Harald
Hi nochma ;-)
tausche False gegen ""
Gruss Harald
Inputbox Problem --> Wunschänderung
19.04.2006 13:52:31
helena
Hallo Harald
geht soweit habe aber noch WUNSCH, habe noch was anderes gefunden
es muss etwas eingegen werden wenn nicht sollte INPUTBOX wieder öffnen

Sub Name_Insert()
Dim strInput As String
strInput = InputBox("Eingabe:", "BLATTNAME")
Range("O2").Value = strInput
If StrPtr(strInput) = 0 Then
MsgBox "Abbrechen gedrückt, Sheet hat noch keinen Namen!"
Exit Sub
ElseIf strInput = "" Then
MsgBox "OK ohne Eingabe, Sheet hat noch keinen Namen gedrückt!"
Exit Sub
End If
End Sub

soweit geht es aber der LOOP wieder zu INPUTBOX fehlt noch min.
ein Zeichen muss eingegeben werden, sonst bleibt im Makro
DANKE
gruss helena
Anzeige
AW: Inputbox Problem --> Wunschänderung
19.04.2006 13:59:07
u_
Hallo,

Sub Name_Insert()
Dim strInput
Do While strInput = ""
strInput = InputBox("Name?", "Blattname")
If strInput = "" Then MsgBox "Bitte was eingeben"
Loop
Range("O2") = strInput
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Danke beiden --> @u_ perfekt wie immer (o.T)
19.04.2006 14:06:47
helena
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige