Makro für alle Tabellenblätter, außer XY
29.10.2018 16:38:42
Thomas
ich hänge mal wieder fest. Ich habe genau den Code gefunden den ich für mein Projekt brauche, dachte ich zumindest. Das Makro soll in allen Tabellenblätter außer den namentlich angegeben die Spalten D-H kopieren und durch Werte ersetzten.
Der Code liesst sich aus meiner Warte aus so als sei er korrekt,tut aber gar nichts wenn ich Ihn starte.
Sub Werte_für_Tabellenblätter()
Dim i As Long
Dim j As Long
Dim arrTabellen
Dim bbearbeiten As Boolean
Application.ScreenUpdating = False
'hier werden die Tabellen aufgelistet, die nicht bearbeitet werden sollen
arrTabellen = Array("Inhaltsverzeichnis", "Übersicht", "Fehlerausgabe")
'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("D:H")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End If
Next i
Application.ScreenUpdating = True
End Sub
Ich möchte an dieser Stelle auch noch mal dem Autor des Codes Danken, da ich Ihn auch kopiert und dann für meine Zwecke adaptiert habe, Danke M.O.
Freue mich auf euren Support und schon mal Danke im voraus
Schönen Gruß
Thomas
Anzeige