Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vorgang wiederholen

Forumthread: Vorgang wiederholen

Vorgang wiederholen
31.08.2022 12:23:39
Mo
Hallo zusammen,
ich habe folgende Anfrage und zwar soll der unten aufgeführte VBA-Code wiederholt werden indem ich über eine Inputbox die Anzahl angebe.
Ich habe ein Steuerelement wenn ich darauf klicke soll eine Inputbox aufgehen und abfragen bis zur welcher KW oder wie viele Kopien erstellt werden sollen, ansonsten muss der Nutzer jedes mal für eine neue KW da drauf klicken.
könnte mir jemand dabei behilflich sein.

Sub BlattKopierenDurchZelleUmbenennen()
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
On Error Resume Next
Dim i As Integer
For i = 3 To 52
Sheets(1).Name = "Datum"
Sheets(2).Name = "KW " & 1
Sheets(i).Name = "KW " & i - 1
Sheets(i).Range("A1") = Sheets("Datum").Range("A4").Offset(i, 0).Value
Sheets(i).Range("B2") = Sheets("Datum").Range("B4").Offset(i, 0).Value
Range("B4:G15").ClearContents
Next i
On Error GoTo 0
End Sub
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vorgang wiederholen
31.08.2022 12:49:39
MCO
Hallo Mo!
Probier das mal:

Sub BlattKopierenDurchZelleUmbenennen()
Dim i As Integer
Dim max_zahl As Integer
max_zahl = Application.InputBox("Anzahl")
If max_zahl > 52 Then MsgBox "Dussel! Das geht nicht!", vbOKOnly + vbExclamation: Exit Sub
On Error Resume Next
Sheets(1).Name = "Datum" 'macht keinen Sinn, das in der Schleife zu behandeln
Sheets(2).Name = "KW 1"'macht keinen Sinn, das in der Schleife zu behandeln, 1 ist Teil des Textes
For i = 3 To max_zahl
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
With Sheets(i)
.Name = "KW " & i - 1
.Range("A1") = Sheets("Datum").Range("A4").Offset(i, 0).value
.Range("B2") = Sheets("Datum").Range("B4").Offset(i, 0).value
.Range("B4:G15").ClearContents
End With
Next i
On Error GoTo 0
End Sub
Gruß, MCO
Anzeige
AW: Vorgang wiederholen
31.08.2022 13:37:21
Mo
Hallo MCO,
vielen Dank für deine schnelle Antwort.

    Sheets(1).Name = "Datum" 'macht keinen Sinn, das in der Schleife zu behandeln
Sheets(2).Name = "KW 1"'macht keinen Sinn, das in der Schleife zu behandeln, 1 ist Teil des Textes
auf sheets(1) = Datum habe ich die ganzen Daten und das Steuerelement drin es geht regulär ab sheet (2) mit KW 1 los
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige