VBA Code abändern!
28.06.2006 17:54:49
Fritz
der nachstehende Code legt von der Tabelle "Ergebnisse" eine Kopie unter dem Namen des Zellwertes "B1" an, sofern eine Tabelle mit dieser Bezeichnung nicht existiert. Ändert sich der Text(-Wert) in "B1" wird möglicherweise eine weitere Kopie in die Arbeitsmappe eingefügt, sofern diese Tabelle noch nicht existiert. In diesem Fall bleiben die durch dieses Makro bereits angelegten Tabellen (mit ihrem Namen) in der Arbeitsmappe zwar erhalten, ihr Inhatl entspricht jedoch immer dem Inhalt der "zuletzt" angefertigten Kopie.
Das Makro sollte aber so geändert werden, dass frühere Kopien auch mit ihrem Inhalt bestehen bleiben.
Vielen Dank für Eure Unterstützung!
Gruß
Fritz
Sub MitgliederErgebnisse_anlegen()
Worksheets("Ergebnisse").Activate
ActiveSheet.Unprotect Password:="xxx"
Dim mysheet As Worksheet
Dim x As Boolean
cb = Cells(1, 2)
x = False
For Each mysheet In ActiveWorkbook.Worksheets
If mysheet.Name = cb Then
x = True
Else
End If
Next
If x = True Then
Else
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("Ergebnisse").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = cb
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
ActiveSheet.Shapes("Button 6").Delete
End Sub