Thema: Wiederholen bis . | Herbers Excel-Forum

Hallo Fachleute,
habe mir ein Makro zusammengesetzt.
Es soll geprüft werden, wenn der Name der Tabelle
vorhanden ist, und die Ziffer nicht verändert wird, sool
die Inputbox so lange offen bleiben bis eine andere Ziffer gesetzt wurde.
Bei mir wird zwar die Inputbox wieder geöffnet aber beim 2 mal geschlossen.
Mfg Walter MB
blattname = Format(CDate(ActiveSheet.Range("AO1")), "mmm")
For i = 1 To Sheets.Count
If blattname = Sheets(i).Name Then
MsgBox "Die Tabelle existiert schon," _
& Chr(13) & Chr(13) & "bitte Monats-Ziffer ändern ! ", vbCritical + vbOK, "Abbruch"
TBName = InputBox("Monat auswählen:", "Übernehmen ?", (ActiveSheet.Range("D1")))
End If
Next i

Hallo Walter
Hab zwar versucht das nachzubauen, aber ich weiß nicht so recht was in "AO1" steht und wie die Sheets heißen. Mach mal ein Beispiel mit 3-4 Sheets und den passenden BlattNamen dazu und fülle AO1 mit einem Wert
Zitat
... und die Ziffer nicht verändert wird ... ?
Also ich tappe noch total im Dunklen.
Vielleicht erklärst Du in der Bsp.Datei nochmal was Du wann erwartest und warum.
Gruß Matthias

Hallo Matthias,
Ziel sollte sein, wenn der Monat vorhanden ist, solange die Inputbox
offen, bis anderer Monat gewählt wurde/wird oder "Abbrechen" gedrückt wird.
https://www.herber.de/bbs/user/66846.xls
Das Datum in AO1 steht das Datum .b. für Januar Monat "Jan" (von Zelle D1 als "MMM" formatiert),
wenn ich jetzt einen neuen Monat aussuche und nicht eine 2 eingebe für Februar
dann bleibt ja die 1 in meiner Inputbox stehen.
Nur wenn man eine andere Zahl eingibt, soll es weitergehen.
mfg walter mb

Hallo Walter
https://www.herber.de/bbs/user/66847.xls
Ist zwar etwas altmodisch mit Goto (als Sprungmarke) aber es funtzt.
Weiterhin mußt Du das Abbrechen-Button überwachen,
sonst wird die Zelle D1 geleert und Du hast ein neues Problem.
Hab ich aber mit eingebaut.
If StrPtr(TBName) = 0 Then Exit Sub prüft ob Abbrechen gedrückt wurde.
zum Testen: Setz einfach mal ein Hochkomma vor diese Codezeile und lass ihn nochmal laufen.
Drücke nun Abbrechen und schau was passiert.
Gruß Matthias

Guten Abend Matthias,
habe getestet, einwandfrei danke !!!
mfg walter mb