Hallo David,
das folgende Makro gehört in eine [url=
http://www.excelbeispiele.de/Modul.htm]Standardmodul[/url] deiner Arbeitsmappe.
Die Liste mit den Tabellen, die nicht bearbeitet werden sollen, musst du natürlich entsprechend ergänzen:
[code]Sub werte()
Dim i As Long
Dim j As Long
Dim arrTabellen
Dim bbearbeiten As Boolean
'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False
'hier werden die Tabellen aufgelistet, die nicht bearbeitet werden sollen
arrTabellen = Array("Tabelle2", "Tabelle3", "Tabelle5")
'Alle Arbeitsblätter der Arbeitsmappe durchlaufen
For i = 1 To ThisWorkbook.Worksheets.Count
bbearbeiten = True
'Prüfen ob Tabelle zu den Ausnahmen gehört
For j = LBound(arrTabellen) To UBound(arrTabellen)
If ThisWorkbook.Worksheets(i).Name = arrTabellen(j) Then
bbearbeiten = False 'falls ja, dann Marker auf Falsch setzen
Exit For
End If
Next j
'Nur Formeln in Werte umwandeln, wenn Marker auf Wahr ist
If bbearbeiten = True Then
With ThisWorkbook.Worksheets(i).Range("J3:K129")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End If
Next i
'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True
End Sub[/code]
Gruß
M.O.
