Excel ändert eigenmächtig Tabellennummern

Alkcair · 5. Juni 2024

Moin,

ich habe hier eine Excel-Datei mit allerhand Makros, die in Visual Basic im Arbeitsblatt hinterlegt sind und für diverse Schaltflächen dienen. Ursprünglich war das mal die "Tabelle6 (Ergebnis)". Die hat Excel, warum auch immer, zwischenzeitig totgeschaltet und aus dem ganzen "Tabelle61 (Ergebnis)" gemacht. Resultat war, dass die Makros nicht mehr funktionierten, weil der Code dort natürlich nicht hinterlegt war. Mit Copy & Paste aus der jetzt toten "Tabelle6" konnte ich das ganze wieder zum Laufen bringen. Jetzt hat Excel das Sperenzchen wiederholt und aus dem ganzen "Tabelle611 (Ergebnis)" gemacht. Es kann doch nicht sein, dass Excel meint, mir da andauernd die Tabellennummer zu erhöhen. Gibt es eine Möglichkeit, das rückgängig zu machen? Ich sehe daneben auch nur noch ein kleines Excel-Symbol statt dem Tabellenblattsymbol wie sonst üblich.

Grüße
Alkcair

Krik · 5. Juni 2024

Von sich aus ändert Excel die Sheet-Namen nicht. Ich habe auch noch nie von so einem Fall gehört. Mach dich auf die Suche nach dem VBA-Code, der dafür verantwortlich ist.

Haplo · 5. Juni 2024

Bei jeder Kopie einer Tabelle hängt Excel eine 1 an den Namen an. Du kannst den Namen im "Table Design"-Ribbon ganz links unter "Table Name" anpassen.

Alkcair · 5. Juni 2024

@Krik, das hab ich nebenbei auch schon gemacht, aber bisher nichts gefunden... Vielleicht übersehe ich da auch was

@Haplo, es ist keine Tabelle innerhalb eines Arbeitsblattes, es ist das Arbeitsblatt an sich, das umbenannt wird.

Krik · 5. Juni 2024

@Alkcair
Kannst du den VBA-Code hier posten?
Entweder kopiert er ein Tabellenblatt und löscht das Original (daher die extra 1 im Namen) oder er benennt das Blatt um. Das sollte im Code zu finden sein.

Alkcair · 5. Juni 2024

Code:

'Ergebnisblatt kopieren
                                             
    Sheets("Ergebnis").Range("F16:Q68").Copy
                Sheets("RC2").Range("G233").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
             
    Sheets("Ergebnis").Range("F3:Q3").Copy
                Sheets("RC2").Range("G228").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

Das ist der einzige Code, der insgesamt in drei Varianten in 3 Makros (je eines für eine Schaltfläche) vorkommt, wo ich irgendeinen Copy-Befehl in Bezug auf dieses Arbeitsblatt habe. Was anderes finde ich nicht. Ich finde ansonsten nur noch "Sheets("Ergebnis").Activate" und "Sheets("Ergebnis").Select"

Ich versuche momentan, zu reproduzieren, wann genau es passiert. Ich bin noch nicht fündig geworden, aber sobald ich was finde, melde ich mich nochmal.

Ergänzung (5. Juni 2024)

Nun... Ich glaube, es ist ein Bug in Excel...?

Ich habe, da ich die Datei kürzlich größeren Änderungen unterzogen habe, diverse Sicherheitskopien. Und die waren auch gerne mal parallel offen, um schnell was durch Copy & Paste rückgängig machen zu können, sollte was schiefgehen. Sobald ich 3 Versionen der Tabelle parallel offen habe, erstellt er mir nur vom Ergebnis-Worksheet eine neue Tabelle mit "Tabelle6111 (Ergebnis)". Was auch immer ihn dazu reitet, das zu tun, ich hab absolut keine Ahnung. Ich poste hierdrunter mal den gesamten Code des Tabellenblattes, denn ich finde da absolut nichts, was so ein Verhalten rechtfertigt.

Code:

'Spalten und FMA-/KM-Ergebnisse ein- und ausblenden

Sub Spalte3Ausblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Select
    Range("F4:G22").EntireColumn.Hidden = True
    Range("F8") = "WAHR"
   
  'Dieselben Spalten in "RC2" ausblenden
   
    Sheets("RC2").Range("G2:H200").EntireColumn.Hidden = True
    Sheets("RC2").Range("V2:W200").EntireColumn.Hidden = True
   
  'Dieselben Zeilen in "RC1" ausblenden
   
    Sheets("RC1").Range("O5:W6").EntireRow.Hidden = True
   
      
End Sub

Sub Spalte3Einblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Select
    Range("F4:G22").EntireColumn.Hidden = False
    Range("F8") = "FALSCH"
   
    Sheets("RC2").Range("G2:H200").EntireColumn.Hidden = False
    Sheets("RC2").Range("V2:W200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O5:W6").EntireRow.Hidden = False
   
End Sub

Private Sub ToggleButton1_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton1

    If TB.Value = True Then
        TB.Caption = "Spalte 3" & vbCrLf & " einblenden"
        Call Spalte3Ausblenden
    Else
        TB.Caption = "Spalte 3" & vbCrLf & " ausblenden"
        Call Spalte3Einblenden
    End If

End Sub

Sub Spalte5Ausblenden()
   
    Application.ScreenUpdating = False
   
    Sheets("Ergebnis").Activate
    Range("H4:H22").EntireColumn.Hidden = True
    Range("H8") = "WAHR"
   
    Sheets("RC2").Range("I2:I200").EntireColumn.Hidden = True
    Sheets("RC2").Range("X2:X200").EntireColumn.Hidden = True
   
    Sheets("RC1").Range("O7:W7").EntireRow.Hidden = True
   
End Sub

Sub Spalte5Einblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Activate
    Range("H4:H22").EntireColumn.Hidden = False
    Range("H8") = "FALSCH"
   
    Sheets("RC2").Range("I2:I200").EntireColumn.Hidden = False
    Sheets("RC2").Range("X2:X200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O7:W7").EntireRow.Hidden = False
   
End Sub

Private Sub ToggleButton2_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton2

    If TB.Value = True Then
        TB.Caption = "Spalte 5" & vbCrLf & " einblenden"
        Call Spalte5Ausblenden
    Else
        TB.Caption = "Spalte 5" & vbCrLf & " ausblenden"
        Call Spalte5Einblenden
    End If

End Sub

Sub Spalte6Ausblenden()
   
    Application.ScreenUpdating = False
   
    Sheets("Ergebnis").Activate
    Range("I4:I22").EntireColumn.Hidden = True
    Range("I8") = "WAHR"
   
    Sheets("RC2").Range("J2:J200").EntireColumn.Hidden = True
    Sheets("RC2").Range("Y2:Y200").EntireColumn.Hidden = True
   
    Sheets("RC1").Range("O8:W8").EntireRow.Hidden = True

   
End Sub

Sub Spalte6Einblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Activate
    Range("I4:I22").EntireColumn.Hidden = False
    Range("I8") = "FALSCH"
   
    Sheets("RC2").Range("J2:J200").EntireColumn.Hidden = False
    Sheets("RC2").Range("Y2:Y200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O8:W8").EntireRow.Hidden = False

End Sub

Private Sub ToggleButton3_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton3

    If TB.Value = True Then
        TB.Caption = "Spalte 6" & vbCrLf & " einblenden"
        Call Spalte6Ausblenden
    Else
        TB.Caption = "Spalte 6" & vbCrLf & " ausblenden"
        Call Spalte6Einblenden
    End If

End Sub

Sub Spalte7Ausblenden()

    Application.ScreenUpdating = False
   
    Sheets("Ergebnis").Activate
    Range("J4:J22").EntireColumn.Hidden = True
    Range("J8") = "WAHR"
       
    Sheets("RC2").Range("K2:K200").EntireColumn.Hidden = True
    Sheets("RC2").Range("Z2:Z200").EntireColumn.Hidden = True
   
    Sheets("RC1").Range("O9:W9").EntireRow.Hidden = True


End Sub

Sub Spalte7Einblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Activate
    Range("J4:J22").EntireColumn.Hidden = False
    Range("J8") = "FALSCH"
       
    Sheets("RC2").Range("K2:K200").EntireColumn.Hidden = False
    Sheets("RC2").Range("Z2:Z200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O9:W9").EntireRow.Hidden = False


End Sub

Private Sub ToggleButton4_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton4

    If TB.Value = True Then
        TB.Caption = "Spalte 7" & vbCrLf & " einblenden"
        Call Spalte7Ausblenden
    Else
        TB.Caption = "Spalte 7" & vbCrLf & " ausblenden"
        Call Spalte7Einblenden
    End If

End Sub

Sub Spalte12Ausblenden()

    Application.ScreenUpdating = False
   
    Sheets("Ergebnis").Activate
    Range("O4:O22").EntireColumn.Hidden = True
    Range("O8") = "WAHR"
   
    Sheets("RC2").Range("P2:P200").EntireColumn.Hidden = True
    Sheets("RC2").Range("AE2:AE200").EntireColumn.Hidden = True
   
    Sheets("RC1").Range("O14:W14").EntireRow.Hidden = True
   

End Sub

Sub Spalte12Einblenden()

    Application.ScreenUpdating = False
   
    Sheets("Ergebnis").Activate
    Range("O4:O22").EntireColumn.Hidden = False
    Range("O8") = "FALSCH"
   
    Sheets("RC2").Range("P2:P200").EntireColumn.Hidden = False
    Sheets("RC2").Range("AE2:AE200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O14:W14").EntireRow.Hidden = False

End Sub


Private Sub ToggleButton5_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton5

    If TB.Value = True Then
        TB.Caption = "Spalte 12" & vbCrLf & " einblenden"
        Call Spalte12Ausblenden
    Else
        TB.Caption = "Spalte 12" & vbCrLf & " ausblenden"
        Call Spalte12Einblenden
    End If

End Sub

Sub Spalte13Ausblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Activate
    Range("P4:P22").EntireColumn.Hidden = True
    Range("P8") = "WAHR"
   
    Sheets("RC2").Range("Q2:Q200").EntireColumn.Hidden = True
    Sheets("RC2").Range("AF2:AF200").EntireColumn.Hidden = True
   
    Sheets("RC1").Range("O15:W15").EntireRow.Hidden = True

End Sub

Sub Spalte13Einblenden()

    Application.ScreenUpdating = False
   
    Sheets("Ergebnis").Activate
    Range("P4:P22").EntireColumn.Hidden = False
    Range("P8") = "FALSCH"
   
    Sheets("RC2").Range("Q2:Q200").EntireColumn.Hidden = False
    Sheets("RC2").Range("AF2:AF200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O15:W15").EntireRow.Hidden = False

End Sub

Private Sub ToggleButton6_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton6

    If TB.Value = True Then
        TB.Caption = "Spalte 13" & vbCrLf & " einblenden"
        Call Spalte13Ausblenden
    Else
        TB.Caption = "Spalte 13" & vbCrLf & " ausblenden"
        Call Spalte13Einblenden
    End If

End Sub

Sub Spalte14Ausblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Activate
    Range("Q4:Q22").EntireColumn.Hidden = True
    Range("Q8") = "WAHR"
       
    Sheets("RC2").Range("R2:R200").EntireColumn.Hidden = True
    Sheets("RC2").Range("AG2:AG200").EntireColumn.Hidden = True
   
    Sheets("RC1").Range("O16:W16").EntireRow.Hidden = True

End Sub

Sub Spalte14Einblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Activate
    Range("Q4:Q22").EntireColumn.Hidden = False
    Range("Q8") = "FALSCH"
       
    Sheets("RC2").Range("R2:R200").EntireColumn.Hidden = False
    Sheets("RC2").Range("AG2:AG200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O16:W16").EntireRow.Hidden = False
   
End Sub

Private Sub ToggleButton8_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton8

    If TB.Value = True Then
        TB.Caption = "Spalte 14" & vbCrLf & " einblenden"
        Call Spalte14Ausblenden
    Else
        TB.Caption = "Spalte 14" & vbCrLf & " ausblenden"
        Call Spalte14Einblenden
    End If

End Sub

Sub Spaltenkombi810Ausblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Activate
    Range("K4:K22").EntireColumn.Hidden = True
    Range("M4:M22").EntireColumn.Hidden = True
    Range("K8") = "WAHR"
   
    Sheets("RC2").Range("L2:L200").EntireColumn.Hidden = True
    Sheets("RC2").Range("N2:N200").EntireColumn.Hidden = True
    Sheets("RC2").Range("AA2:AA200").EntireColumn.Hidden = True
    Sheets("RC2").Range("AC2:AC200").EntireColumn.Hidden = True
   
    Sheets("RC1").Range("O10:W11").EntireRow.Hidden = True
   
   
End Sub

Sub Spaltenkombi810Einblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Activate
    Range("K4:K22").EntireColumn.Hidden = False
    Range("M4:M22").EntireColumn.Hidden = False
    Range("K8") = "FALSCH"
   
    Sheets("RC2").Range("L2:L200").EntireColumn.Hidden = False
    Sheets("RC2").Range("N2:N200").EntireColumn.Hidden = False
    Sheets("RC2").Range("AA2:AA200").EntireColumn.Hidden = False
    Sheets("RC2").Range("AC2:AC200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O10:W11").EntireRow.Hidden = False
   

End Sub

Private Sub ToggleButton10_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton10

    If TB.Value = True Then
        TB.Caption = "Spaltenkombinationen " & vbCrLf & "8 & 10 einblenden"
        Call Spaltenkombi810Ausblenden
    Else
        TB.Caption = "Spaltenkombinationen " & vbCrLf & "8 & 10 ausblenden"
        Call Spaltenkombi810Einblenden
    End If

End Sub

Sub Spaltenkombi911Ausblenden()

    Sheets("Ergebnis").Activate
   
    Range("L4:L22").EntireColumn.Hidden = True
    Range("N4:N22").EntireColumn.Hidden = True
    Range("L8") = "WAHR"
   
    Sheets("RC2").Range("M2:M200").EntireColumn.Hidden = True
    Sheets("RC2").Range("O2:O200").EntireColumn.Hidden = True
    Sheets("RC2").Range("AB2:AB200").EntireColumn.Hidden = True
    Sheets("RC2").Range("AD2:AD200").EntireColumn.Hidden = True
   
    Sheets("RC1").Range("O12:W13").EntireRow.Hidden = True
   
   
End Sub

Sub Spaltenkombi911Einblenden()

    Sheets("Ergebnis").Activate
    Range("L4:L22").EntireColumn.Hidden = False
    Range("N4:N22").EntireColumn.Hidden = False
    Range("L8") = "FALSCH"
   
    Sheets("RC2").Range("M2:M200").EntireColumn.Hidden = False
    Sheets("RC2").Range("O2:O200").EntireColumn.Hidden = False
    Sheets("RC2").Range("AB2:AB200").EntireColumn.Hidden = False
    Sheets("RC2").Range("AD2:AD200").EntireColumn.Hidden = False
   
    Sheets("RC1").Range("O12:W13").EntireRow.Hidden = False
   

End Sub

Private Sub ToggleButton11_Click()

    Dim TB As ToggleButton
    Set TB = ToggleButton11

    If TB.Value = True Then
        TB.Caption = "Spaltenkombinationen " & vbCrLf & "9 & 11 einblenden"
        Call Spaltenkombi911Ausblenden
    Else
        TB.Caption = "Spaltenkombinationen " & vbCrLf & "9 & 11 ausblenden"
        Call Spaltenkombi911Einblenden
    End If

End Sub

'Leere NV ausblenden

Sub NVAusblenden()

    Sheets("Ergebnis").Activate
   
Set WksN = Worksheets("Ergebnis")

'Zeilenabfrage "leere Zeile?"

    Dim lngZ As Long

        For lngZ = 16 To 68
               
            If WksN.Cells(lngZ, 18) = 0 Then
            Rows(lngZ).EntireRow.Hidden = True
            End If
               
        Next
       
End Sub

Sub NVEinblenden()

    Sheets("Ergebnis").Activate
    If ToggleButton14.Value = False Then
        Range("A16:A68").EntireRow.Hidden = False
    End If

End Sub


Private Sub ToggleButton14_Click()

Dim TB As ToggleButton
    Set TB = ToggleButton14

    If TB.Value = True Then
        TB.Caption = "Leere NV einblenden"
        Call NVAusblenden
    Else
        TB.Caption = "Leere NV ausblenden"
        Call NVEinblenden
    End If

End Sub

'Kopieren in RC2 erstes Datum

Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False

    'BS-VG-Prüfung

    Sheets("NP_Ergebnis").Range("Q4:AA4").Copy
                Sheets("RC2").Range("V6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("Q6:AA6").Copy
                Sheets("RC2").Range("W6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                                            
    Sheets("NP_Ergebnis").Range("Q8:AA8").Copy
                Sheets("RC2").Range("X6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q10:AA10").Copy
                Sheets("RC2").Range("Y6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q12:AA12").Copy
                Sheets("RC2").Range("Z6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q14:AA14").Copy
                Sheets("RC2").Range("AA6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("Q16:AA16").Copy
                Sheets("RC2").Range("AB6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q18:AA19").Copy
                Sheets("RC2").Range("AC6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q20:AA21").Copy
                Sheets("RC2").Range("AD6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q22:AA22").Copy
                Sheets("RC2").Range("AE6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q24:AA24").Copy
                Sheets("RC2").Range("AF6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                 
    Sheets("NP_Ergebnis").Range("Q26:AA26").Copy
                Sheets("RC2").Range("AG6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
           
'Null-NWG-Prüfung
           
    Sheets("NP_Ergebnis").Range("D4:N4").Copy
                Sheets("RC2").Range("V21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D6:N6").Copy
                Sheets("RC2").Range("W21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("D8:N8").Copy
                Sheets("RC2").Range("X21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D10:N10").Copy
                Sheets("RC2").Range("Y21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D12:N12").Copy
                Sheets("RC2").Range("Z21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D14:N14").Copy
               Sheets("RC2").Range("AA21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
              :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("D16:N16").Copy
                Sheets("RC2").Range("AB21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D18:N19").Copy
                Sheets("RC2").Range("AC21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D20:N21").Copy
                Sheets("RC2").Range("AD21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D22:N22").Copy
                Sheets("RC2").Range("AE21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D24:N24").Copy
                Sheets("RC2").Range("AF21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D26:N26").Copy
                Sheets("RC2").Range("AG21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                                               
    'Bestimmende Probe kopieren
           
    Sheets("NP_Ergebnis").Range("AC4").Copy
                Sheets("RC2").Range("V19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC6").Copy
                Sheets("RC2").Range("W19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("AC8").Copy
                Sheets("RC2").Range("X19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC10").Copy
                Sheets("RC2").Range("Y19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC12").Copy
                Sheets("RC2").Range("Z19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC14").Copy
               Sheets("RC2").Range("AA19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
              :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("AC16").Copy
                Sheets("RC2").Range("AB19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC18").Copy
                Sheets("RC2").Range("AC19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC20").Copy
                Sheets("RC2").Range("AD19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC22").Copy
                Sheets("RC2").Range("AE19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC24").Copy
                Sheets("RC2").Range("AF19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC26").Copy
                Sheets("RC2").Range("AG19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                                               
'Ergebnisblatt kopieren
                                               
    Sheets("Ergebnis").Range("F16:Q68").Copy
                Sheets("RC2").Range("G43").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
                              
    Sheets("Ergebnis").Range("F3:Q3").Copy
                Sheets("RC2").Range("G38").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
   
   
End Sub

Private Sub CommandButton2_Click()

'Kopieren in RC2 zweites Datum

Application.ScreenUpdating = False
                                         
    'VS-VG-prüfung

    Sheets("NP_Ergebnis").Range("Q4:AA4").Copy
                Sheets("RC2").Range("V101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q6:AA6").Copy
                Sheets("RC2").Range("W101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("Q8:AA8").Copy
                Sheets("RC2").Range("X101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q10:AA10").Copy
                Sheets("RC2").Range("Y101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q12:AA12").Copy
                Sheets("RC2").Range("Z101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q14:AA14").Copy
                Sheets("RC2").Range("AA101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("Q16:AA16").Copy
                Sheets("RC2").Range("AB101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q18:AA19").Copy
                Sheets("RC2").Range("AC101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q20:AA21").Copy
                Sheets("RC2").Range("AD101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q22:AA22").Copy
                Sheets("RC2").Range("AE101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q24:AA24").Copy
                Sheets("RC2").Range("AF101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
   
    Sheets("NP_Ergebnis").Range("Q26:AA26").Copy
                Sheets("RC2").Range("AG101").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                      
           
'Null-NWG-Prüfung
           
    Sheets("NP_Ergebnis").Range("D4:N4").Copy
                Sheets("RC2").Range("V116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D6:N6").Copy
                Sheets("RC2").Range("W116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("D8:N8").Copy
                Sheets("RC2").Range("X116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D10:N10").Copy
                Sheets("RC2").Range("Y116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D12:N12").Copy
                Sheets("RC2").Range("Z116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D14:N14").Copy
                Sheets("RC2").Range("AA116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("D16:N16").Copy
                Sheets("RC2").Range("AB116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D18:N19").Copy
                Sheets("RC2").Range("AC116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D20:N21").Copy
                Sheets("RC2").Range("AD116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D22:N22").Copy
                Sheets("RC2").Range("AE116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D24:N24").Copy
                Sheets("RC2").Range("AF116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("D26:N26").Copy
                Sheets("RC2").Range("AG116").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    'Bestimmende Probe kopieren
           
    Sheets("NP_Ergebnis").Range("AC4").Copy
                Sheets("RC2").Range("V114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC6").Copy
                Sheets("RC2").Range("W114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("AC8").Copy
                Sheets("RC2").Range("X114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC10").Copy
                Sheets("RC2").Range("Y114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC12").Copy
                Sheets("RC2").Range("Z114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC14").Copy
               Sheets("RC2").Range("AA114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
              :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("AC16").Copy
                Sheets("RC2").Range("AB114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC18").Copy
                Sheets("RC2").Range("AC114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC20").Copy
                Sheets("RC2").Range("AD114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC22").Copy
                Sheets("RC2").Range("AE114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC24").Copy
                Sheets("RC2").Range("AF114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC26").Copy
                Sheets("RC2").Range("AG114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
                                               
'Ergebnisblatt kopieren
                                               
    Sheets("Ergebnis").Range("F16:Q68").Copy
                Sheets("RC2").Range("G138").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
                              
    Sheets("Ergebnis").Range("F3:Q3").Copy
                Sheets("RC2").Range("G133").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
                      
End Sub

Private Sub CommandButton3_Click()

    'Kopieren in RC2 drittes Datum

Application.ScreenUpdating = False
                                            
    'VS-VG-prüfung

    Sheets("NP_Ergebnis").Range("Q4:AA4").Copy
                Sheets("RC2").Range("V196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q6:AA6").Copy
                Sheets("RC2").Range("W196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("Q8:AA8").Copy
                Sheets("RC2").Range("X196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q10:AA10").Copy
                Sheets("RC2").Range("Y196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q12:AA12").Copy
                Sheets("RC2").Range("Z196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q14:AA14").Copy
                Sheets("RC2").Range("AA196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("Q16:AA16").Copy
                Sheets("RC2").Range("AB196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q18:AA19").Copy
                Sheets("RC2").Range("AC196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q20:AA21").Copy
                Sheets("RC2").Range("AD196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q22:AA22").Copy
                Sheets("RC2").Range("AE196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q24:AA24").Copy
                Sheets("RC2").Range("AF196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("Q26:AA26").Copy
                Sheets("RC2").Range("AG196").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
      
'Null-NWG-Prüfung
           
    Sheets("NP_Ergebnis").Range("D4:N4").Copy
                Sheets("RC2").Range("V211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D6:N6").Copy
                Sheets("RC2").Range("W211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("D8:N8").Copy
                Sheets("RC2").Range("X211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D10:N10").Copy
                Sheets("RC2").Range("Y211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D12:N12").Copy
                Sheets("RC2").Range("Z211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D14:N14").Copy
                Sheets("RC2").Range("AA211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("D16:N16").Copy
                Sheets("RC2").Range("AB211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D18:N19").Copy
                Sheets("RC2").Range("AC211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D20:N21").Copy
                Sheets("RC2").Range("AD211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D22:N22").Copy
                Sheets("RC2").Range("AE211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("D24:N24").Copy
                Sheets("RC2").Range("AF211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
   
    Sheets("NP_Ergebnis").Range("D26:N26").Copy
                Sheets("RC2").Range("AG211").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                                                               
 'Bestimmende Probe kopieren
           
    Sheets("NP_Ergebnis").Range("AC4").Copy
                Sheets("RC2").Range("V209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC6").Copy
                Sheets("RC2").Range("W209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                             
    Sheets("NP_Ergebnis").Range("AC8").Copy
                Sheets("RC2").Range("X209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC10").Copy
                Sheets("RC2").Range("Y209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC12").Copy
                Sheets("RC2").Range("Z209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC14").Copy
               Sheets("RC2").Range("AA209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
              :=False, Transpose:=True
                              
    Sheets("NP_Ergebnis").Range("AC16").Copy
                Sheets("RC2").Range("AB209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC19").Copy
                Sheets("RC2").Range("AC209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC21").Copy
                Sheets("RC2").Range("AD209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC22").Copy
                Sheets("RC2").Range("AE209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC24").Copy
                Sheets("RC2").Range("AF209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
               
    Sheets("NP_Ergebnis").Range("AC26").Copy
                Sheets("RC2").Range("AG209").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
                                                               
'Ergebnisblatt kopieren
                                               
    Sheets("Ergebnis").Range("F16:Q68").Copy
                Sheets("RC2").Range("G233").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
               
    Sheets("Ergebnis").Range("F3:Q3").Copy
                Sheets("RC2").Range("G228").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
               
End Sub

Krik · 5. Juni 2024

Man kann im VBA-Editor links auch auf die Tabellen klicken. Rechts zeigt er dann VBA-Code an, der in der Tabelle hinterlegt ist. Hast du dort auch geschaut?

Alkcair · 5. Juni 2024

Da kommt der Code, den ich oben gepostet habe, her.

cumulonimbus8 · 5. Juni 2024

Ich gehe schwerpunktmäßig davon aus, dass du an den Blättern was sortiert, kopiert, gelöscht hast.
Nur aus diesem Kontext kenne ich diese Eingenmächtigkeiten von Excel sehr kreativ neue Namen zu vergeben.

Muss es übergreifend passieren achte ich eben peinlich auf Blattnamen. VBA-Editor, F4, und achte da auf den Blattnamen und der Bezeichnung auf dem Reiter. Auch das ist einfach nur ein nutzloser Stolperstein.
Wenns sein muss halte ich mich an die Anordnung der Blätter und greife über den Index zu. Oder ich gebe globale Variablen die Blattnamen = Reiter-Titel sind und nutze diese um darauf/damit zu referenzieren.

CN8

Darkman.X · 6. Juni 2024

Wenn ich den Startpost richtig verstehe, dann verändert sich der interne VBA-Name von einem Excel-Blatt und der ganze VBA-Code im Spoiler vom Post #6 ist weg?

Ich wüsste nicht wie das funktionieren soll. Zumindest dein geposteter Code kopiert kein komplettes Sheet oder fügt irgendwelche neuen Sheets hinzu oder löscht welche.

Wer hat denn alles Zugriff auf das Dokument? Nur du? Oder arbeiten mehrere Personen dran?
Ich würde vermuten, dass irgendeine Person einen Fehler in der Nutzung des Dokuments macht. Er/Sie bemerkt den Fehler und versucht es irgendwie zu fixen, was dann zu einem "neuen" Sheet mit dem veränderten Namen und dem fehlen des VBA-Codes führt.
Oder der Fehler passiert schon beim Zuführen der Daten, die im Blatt "Ergebnis" landen.

Oder es gibt im Dokument noch weiteren VBA-Code in einem anderen Sheet oder einem Modul.

Alkcair · 6. Juni 2024

In der Datei gibt es in 20, 25 Blättern VBA-Code aber nur wenige greifen auf das spezifische Blatt zu. Ich kann die, die es tun, ja nachher nochmal posten.

Ich arbeite alleine an der Datei, da sie noch lokal bei mir auf dem PC liegt und noch nicht den Weg ins Netzwerk gefunden hat. Ich will erst sichergehen, dass sie ordentlich funktioniert.

Darkman.X · 6. Juni 2024

Wegen mir musst du nicht den kompletten Code hier posten. Ich selber hätte gar keine Motivation den durchzusehen

Wenn man einen Anwenderfehler ausschließen kann, weil du der einzige Anwender bist, dann muss meiner Meinung nach der Fehler irgendwo im Code liegen. Wie sollte sonst der gesamte Code im Blatt "Ergebnis" verschwinden? Aber ich bin auch kein Profi, sondern irgendwo zwischen Anfänger und Durchschnitt...

Wie hattest du denn geprüft, ob ein Code auf das spezifische Blatt zugreift? Hattest du mit STRG+F nach "Sheets("Ergebnis")" gesucht? Vielleicht wird an einer Stelle nicht mit dem Blattnamen "Ergebnis" gearbeitet, sondern mit der Index-Nummer (Sheets(0), Sheets(1), usw.)? Oder hast du den kompletten Code in den 20, 25 Blättern selber geschrieben und kannst es daher ausschließen?

RPP63 · 6. Juni 2024

Es gab vor Jahren mal einen Bug, der nicht nur den Codename der Sheets, sondern auch den Name diverser ActiveX-Controls änderte.
Von welcher Excel-Version sprechen wir?
Mal ein Update "ziehen"?

Alkcair · 6. Juni 2024

Darkman.X schrieb:
Wie hattest du denn geprüft, ob ein Code auf das spezifische Blatt zugreift? Hattest du mit STRG+F nach "Sheets("Ergebnis")" gesucht? Vielleicht wird an einer Stelle nicht mit dem Blattnamen "Ergebnis" gearbeitet, sondern mit der Index-Nummer (Sheets(0), Sheets(1), usw.)? Oder hast du den kompletten Code in den 20, 25 Blättern selber geschrieben und kannst es daher ausschließen?

Genau das habe ich gemacht. Ich habe nicht den gesamten Code selbst geschrieben, mich aber mittlerweile sehr gut darin eingelesen, sodass ich weiß, dass mein Vorgänger in dem Projekt nur über den Namen des Blattes darauf verwiesen hat. Das zieht sich durch den gesamten Code, ich habe nie was anderes gesehen.

RPP63 schrieb:
Von welcher Excel-Version sprechen wir?
Mal ein Update "ziehen"?

Ich hab auf der Arbeit Office 365, das updatet sich von allein.

Ich poste hier jetzt mal alle Codeschnipsel, wo auf das Blatt verwiesen wird im Spoiler.

Code:

    Sheets("Ergebnis").Select
    
        Dim j As Byte
        For j = 1 To 12
        Sheets("Ergebnis").OLEObjects("ToggleButton" & CStr(j)).Object.Value = False
        Next
    
        Sheets("Ergebnis").OLEObjects("ToggleButton14").Object.Value = False

Code:

 'Button-Name aktualisieren
    
    With Sheets("Ergebnis")
    
        .CommandButton1.Caption = Sheets("Basisdaten").Range("D60")
        .CommandButton2.Caption = Sheets("Basisdaten").Range("D61")
        .CommandButton3.Caption = Sheets("Basisdaten").Range("D62")
    
    End With

Code:

Sub Spalte3Ausblenden()

    Application.ScreenUpdating = False

    Sheets("Ergebnis").Select
    Range("F4:G22").EntireColumn.Hidden = True
    Range("F8") = "WAHR"
    
  'Dieselben Spalten in "RC2" ausblenden
    
    Sheets("RC2").Range("G2:H200").EntireColumn.Hidden = True
    Sheets("RC2").Range("V2:W200").EntireColumn.Hidden = True

Das oben angegebene Makro habe ich mit verschiedenen Spaltenkombinationen insgesamt 18x (je 1x für ein- und ausblenden von Spalten)

Code:

Sub NVAusblenden()

    Sheets("Ergebnis").Activate
    
Set WksN = Worksheets("Ergebnis")

'Zeilenabfrage "leere Zeile?"

    Dim lngZ As Long

        For lngZ = 16 To 68
                
            If WksN.Cells(lngZ, 18) = 0 Then
            Rows(lngZ).EntireRow.Hidden = True
            End If
                
        Next

Das sind alle zusätzlichen Instanzen zum bereits oben geposteten Code. Ich bin da ehrlich gesagt, ratlos.

cumulonimbus8 · 6. Juni 2024

Alkcair schrieb:
Ich poste hier jetzt mal alle Codeschnipsel, wo auf das Blatt verwiesen wird im Spoiler.

Die Verweise verweisen ins Leere wenn irgendetwas oder irgendjemand die Namen verpfuscht.
Das herauszufinden ist dein Problem.
Passe Blätter an die Realität des Makros an oder das Makro an die Realität der Blätter - was bleibe denn auch sonst..?

CN8

Suche

Excel ändert eigenmächtig Tabellennummern

Alkcair

Lt. Commander

Krik

Fleet Admiral

Haplo

Cadet 3rd Year Pro

Alkcair

Lt. Commander

Krik

Fleet Admiral

Alkcair

Lt. Commander

Krik

Fleet Admiral

Alkcair

Lt. Commander

cumulonimbus8

Fleet Admiral

Darkman.X

Lieutenant

Alkcair

Lt. Commander

Darkman.X

Lieutenant

RPP63

Ensign

Alkcair

Lt. Commander

cumulonimbus8

Fleet Admiral