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“
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
