VBA -变量命名选项卡和不同标准的总体结果

Question

因此，我创建了一个包含两种不同流程图的电子表格。用户输入每个需要的流程图的数量，它会自动倍增，因此用户可以填写每个流程图中的数据。在每个流程图的顶部都有一条显示结果的线条。在此之前，一切都运行得很完美。现在，我需要创建一个从每个流程图创建的总体结果的标签，我面临的问题是:1)每个标签将被用户重命名-所以我想我可以创建一个代码来使用工作表的代号(sheet1等)来获得结果，但它也不能工作bc: 2)有2种不同类型的流程图(这意味着2个不同的结果标准，具有不同的行数等)，并且用户将为每个创建的工作表的数量也是未知的。

我真的迷失在这里，我真的很感谢你的帮助！

附注：我对宏是个新手，所以我对VBA不是很熟悉。

‘'Ausführung bei auf den Button "Anzahl Bauteile eingeben“’Private Sub CommandButton4_Click()

'Insert Blatt
Dim InAnzahl As Integer, intI As Integer, insL As Integer, insR As Integer, ws As Worksheet
InAnzahl = Application.InputBox("Anzahl der Prozesse (eingeben", "Kopie", 0, Type:=1)
If InAnzahl = 0 Then Exit Sub
If InAnzahl = 1 Then Sheets("Prozessbewertung").Select
For intI = 1 To InAnzahl - 1
    Sheets("Prozessbewertung").Select
    Sheets("Prozessbewertung").Copy after:=Sheets(ActiveSheet.Name)
Next intI

 'Insert Lines (ALSO UPDATED)
If InAnzahl > 2 Then Sheets("Gesamtbewertung").Select
For insL = 1 To InAnzahl - 1
Sheets("Gesamtbewertung").Rows("11:11").Insert shift:=xlDown,
CopyOrigin:=xlFormatFromLeftOrAbove
Next insL

更新：

我创建了下面的程序来插入结果(但它受到我将在程序中创建的行数的限制)，而且，我仍然不知道如何让excel理解我有两个不同的结果标准，所以我只为一个创建。

Sub Ergebnisse()

'Prozessbewertung Blatt 1
Sheets(5).[C3:AL3].Copy Sheets(3).[C10:AL10]
'Prozessbewertung Blatt 2
Sheets(6).[C3:AL3].Copy Sheets(3).[C11:AL11]
'Prozessbewertung Blatt 3
Sheets(7).[C3:AL3].Copy Sheets(3).[C12:AL12]
'Prozessbewertung Blatt 4
Sheets(8).[C3:AL3].Copy Sheets(3).[C13:AL13]

结束子对象

以此类推。

有人能帮上忙吗？我还不能解决这个问题！请!

Answer 1

既然我找不到解决这个问题的办法，我决定将两个不同标准的结果分成两个不同的excel工作表。