Hallo Zusammen,
Ich brauche nur einen einen kleinen Teil eines VB-Skripts. Den rest habe ich mir per Makros selber zusammengebaut.
Ich brauche eine Abfrage per Fenster. Es dürfen nur eine 4 stellige Zahl eingegeben werden. Diese wird als neuer Tabellenname genommen. Sollte dieses Blatt schon existieren eine kurze Warnmeldung und nichts weiter.
Ich hoffe jemand kann mir helfen, mit dank im voraus.
S.F.T.I.
T-Rex
S.F.T.I.
„VB für Excel“
Und wo genau ist das Problem?
Immerhin läßt sich Deine Frage in mindestens drei Probleme aufteilen.
S.F.T.I.
Nachtrag zu: „VB für Excel“
Hi T-Rex,
du hast soweit recht.... 3 Probleme:
1. Ein Abfragefenster mit der Frage nach einer Jahreszahl (nur 4stellig)
2. Prüfen ob es schon eine Mappe gibt mit dieser Jahreszahl
3. Falls ja kurze Fehlermeldung (und zwar nicht den Debugger :-) )ansonsten weiter
Den Rest hab ich schon und kann es auch in mein vorhandenes Script einfügen an den Richtigen Stellen. Mir fehlen halt die Teile oben, so in richtung ifexist.
Ist das Präzise genung? Sonst schreib ich nochmal das ganze Projekt auf.
S.F.T.I.
Nachtrag zu: „VB für Excel“
Hi T-Rex,
du hast soweit recht.... 3 Probleme:
1. Ein Abfragefenster mit der Frage nach einer Jahreszahl (nur 4stellig)
2. Prüfen ob es schon eine Mappe gibt mit dieser Jahreszahl
3. Falls ja kurze Fehlermeldung (und zwar nicht den Debugger :-) )ansonsten weiter
Den Rest hab ich schon und kann es auch in mein vorhandenes Script einfügen an den Richtigen Stellen. Mir fehlen halt die Teile oben, so in richtung ifexist.
Ist das Präzise genung? Sonst schreib ich nochmal das ganze Projekt auf.
T-Rex
S.F.T.I.
„VB für Excel“
Zu 1.:
Du benötigst eine UserForm, darauf platzierst Du eine Textbox und zwei CommandButtons.
Ich bekomme das irgendwie nicht gebacken, ich erhalte nur einen Fehler.
Zu 2. und 3.:
Dim objSheet As WorkSheet
On Error Resume Next
Err.Clear
Set objSheet = ActiveWorkbook.Worksheets("Name des Datenblattes")
If Err.Number = 0 Then
MsgBox "Dieses Worksheet gibt es nicht"
Err.Clear
End If
S.F.T.I.
Nachtrag zu: „VB für Excel“
Hi T-Rex,
ich werde es am Montag mal ausprobieren. Er soll mir aber saben das es das Blatt schon gibt. Ich gah dann davon aus das die Err.number dann 1 sein muß. Ich werde mal ein wenig fummeln. Ich hoffe ich darf noch mal nerven wenn es doch nicht klappt.
Danke schon mal bis hierhin.
