Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 08:00:41
Zeilen mit Eintrag #NV löschen
07.05.2024 05:42:07
VBA Code Änderung bei Bedingung
06.05.2024 18:21:33
Formel/Code für einen Status in % anzeigen
06.05.2024 18:10:24
Powerquery fehler Spalte nicht gefunden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige