Worksheet Copy mit For Next Loop
22.10.2022 19:00:13
Kalle
folgendes Problem: ich möchte Werte von meheren Sheets per Makro in eine absolut baugleiche Arbeitsmappe mit identischen Sheet-Namen und CodeNamen übertragen. Leider funktioniert mein Ansatz bislang nur bis zum Auslesen der relevanten Sheet-Namen/Code-Namen, nicht aber der Kopiervorgang an sich. Und jetzt wird es richtig merkwürdig: Es kommt keine Fehlermeldung ...
Mappe Quelle: https://www.herber.de/bbs/user/155797.xlsm
Mappe Ziel: https://www.herber.de/bbs/user/155796.xlsm
(muss im selben Ordner sein; Dateiname siehe VBA-Code unten)
Vielleicht fällt Euch ja etwas auf ... ich bin total ratlos; möchte aber die schlanke Schleifenvariante unbedingt zum Laufen bekommen.
Sub MISC_iTD_Live_Migration_Daten()
Dim lr As Long
Dim wbQuelle, wbZiel As Workbook
Dim ws As Worksheet
Dim cn As Integer
Dim DValue, TValue, tl As String
DValue = Format(Date, "dd.mm.yy")
TValue = Format(Time, "hh:mm")
tl = UCase(Environ$("USERNAME"))
If MsgBox("Achtung: Live-Migration?", vbExclamation + vbYesNo + vbDefaultButton2, "iTD PLANUNGSASSISTENT") = vbYes Then
Set wbZiel = Workbooks.Open(FileName:=ThisWorkbook.Path & "\individualisierte Testdiagnostik (iTD) - LEER -.xlsm", UpdateLinks:=3)
Set wbQuelle = ThisWorkbook
For Each ws In wbQuelle.Worksheets
cn = Val(Right(ws.CodeName, Len(ws.CodeName) - 7))
If cn > 100 And cn Kalle