Thema Datum  Von Nutzer Rating
Antwort
05.01.2020 21:47:44 Mike
NotSolved
05.01.2020 22:19:41 Mase
NotSolved
06.01.2020 14:57:49 Mike
NotSolved
05.01.2020 23:30:22 Gast7777
NotSolved
06.01.2020 14:58:11 Mike
NotSolved
Blau Debuggen Fehler? bei InputBox
 06.01.2020 16:15:43 Mase
NotSolved
09.01.2020 15:23:19 Mike
NotSolved
09.01.2020 16:14:39 Mase
NotSolved
09.01.2020 16:25:57 Mike
NotSolved
09.01.2020 16:43:24 Mase
NotSolved
09.01.2020 16:48:10 Mase
NotSolved
10.01.2020 20:06:26 Gast87819
NotSolved
10.01.2020 20:10:55 Mase
NotSolved
10.01.2020 20:28:08 Gast83245
NotSolved
10.01.2020 22:51:05 Mase
NotSolved
13.01.2020 19:38:53 Mike
Solved
13.01.2020 20:09:40 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
06.01.2020 16:15:43		 Views:
351		 Rating:
     
Antwort:
  Ja
Thema:
Debuggen Fehler? bei InputBox

2Dinge:

1) Sheets("Welcome") sollte vermutlich Sheets("Wellcome") heissen

2) Wenn Du auf abbrechen klickst, ist Deine Variable = ""

 

Oben genanntes wird nachfolgende berücksichtigt:

Sub TestA()
Sheets("PRINT").Select
 
Dim strDatum
   Dim Register As Worksheet
   Dim bolShtVorhanden As Boolean
   Dim strNewName As String
   Dim bolErsetzen As Boolean
   Dim vntAntwort As Variant
    
   strDatum = Format(Date, "dd.mm.yyyy")
   ActiveSheet.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
       
   Do
      strNewName = InputBox("The File will be saved in your current Workbook and today's date: " & Format(Date, "dd.mm.yyyy"), , strDatum)
      If strNewName = "" Then Exit Sub
      For Each Register In ActiveWorkbook.Sheets
         If Register.Name = strNewName Then
            bolShtVorhanden = True
            vntAntwort = MsgBox("The file already exists.," & vbCrLf _
               & "Do you want to overwrite it?", _
               vbQuestion + vbYesNo, "Security check")
            If vntAntwort = vbYes Then
               bolErsetzen = True
               Exit Do
            End If
         End If
      Next Register
      If Not bolShtVorhanden Then Exit Do
   Loop
    
   If bolErsetzen Then
      On Error Resume Next
      With Application
         .ScreenUpdating = False
         .DisplayAlerts = False
         Sheets.Delete
         .DisplayAlerts = True
         .ScreenUpdating = True
          
      End With
   End If
 
 
   ActiveSheet.Name = strNewName
    
    Range("A1").Select
        
 
Sheets("Wellcome").Select
 MsgBox "Saved!"
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.01.2020 21:47:44 Mike
NotSolved
05.01.2020 22:19:41 Mase
NotSolved
06.01.2020 14:57:49 Mike
NotSolved
05.01.2020 23:30:22 Gast7777
NotSolved
06.01.2020 14:58:11 Mike
NotSolved
Blau Debuggen Fehler? bei InputBox
 06.01.2020 16:15:43 Mase
NotSolved
09.01.2020 15:23:19 Mike
NotSolved
09.01.2020 16:14:39 Mase
NotSolved
09.01.2020 16:25:57 Mike
NotSolved
09.01.2020 16:43:24 Mase
NotSolved
09.01.2020 16:48:10 Mase
NotSolved
10.01.2020 20:06:26 Gast87819
NotSolved
10.01.2020 20:10:55 Mase
NotSolved
10.01.2020 20:28:08 Gast83245
NotSolved
10.01.2020 22:51:05 Mase
NotSolved
13.01.2020 19:38:53 Mike
Solved
13.01.2020 20:09:40 Mase
NotSolved