Thema Datum  Von Nutzer Rating
Antwort
Rot verschieben funktioniert nicht
27.06.2018 10:44:24 Prefix
**
NotSolved
27.06.2018 12:38:48 Mackie
****
NotSolved
27.06.2018 13:11:15 Prefix
NotSolved
27.06.2018 13:15:31 Mackie
****
NotSolved
27.06.2018 13:35:43 Prefix
NotSolved
27.06.2018 13:43:45 Mackie
*****
Solved
27.06.2018 13:46:25 Gast60622
NotSolved

Ansicht des Beitrags:
Von:
Prefix		 Datum:
27.06.2018 10:44:24		 Views:
998		 Rating:
     
Antwort:
  Ja
Thema:
verschieben funktioniert nicht

Guten Tag,

Ich habe hier einen Code von euch bekommen, der funktioniert hat. Jetzt wollte ich ihn ändern, da es für mich praktischer ist die Blätter zu verschieben als zu löschen. Jetzt bekomme ich aber den Fehler: Index außerhalb des gültigen Bereichs

Meine Frage: Wie kann ich den Fehler beheben? (Code steht unten)

 

Sub neueMappe2()

Workbooks.Add

ActiveWorkbook.SaveAs "AlteStandUps"

End Sub

 

Sub verschieben()

    Dim Tabelle As Worksheet
    
    For Each Tabelle In Worksheets
    
        If Tabelle.Range("B1").Value < Date - 3 Then
        
            Tabelle.Move After:=Workbooks("AlteStandUps.xlsx")
                                
        End If
        
    Next
    
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot verschieben funktioniert nicht
27.06.2018 10:44:24 Prefix
**
NotSolved
27.06.2018 12:38:48 Mackie
****
NotSolved
27.06.2018 13:11:15 Prefix
NotSolved
27.06.2018 13:15:31 Mackie
****
NotSolved
27.06.2018 13:35:43 Prefix
NotSolved
27.06.2018 13:43:45 Mackie
*****
Solved
27.06.2018 13:46:25 Gast60622
NotSolved