Aus 2 Makros 1 Makro machen
01.02.2017 20:06:29
Juergen
ich würde nochmal Eure Hilfe brauchen.
Ich habe zwei Makros (siehe unten), welches jedes für sich prima funktionieren. Ich möchte aber gerne beide in ein Makro schreiben und das bekomme ich nicht hin.
Im Prinzip sollte es egal sein, welches Makro zuerst läuft, da das Löschen des Buchstaben "j" sich nur auf ungeschützte Zellen bezieht.
Könnt Ihr mir da helfen?
Lieben Dank vorab!!!
Jürgen
Sub Alle_Blaetter_Blattschutz_EIN_M_Pw()
Application.ScreenUpdating = False
Dim shBlatt As Worksheet
For Each shBlatt In ActiveWorkbook.Sheets
shBlatt.Protect Password:="XYZ"
Next shBlatt
Application.ScreenUpdating = True
End Sub
Makro 2
Sub Druck_ABC()
With ActiveSheet
.Range("A1:O150").Replace "j", "", lookat:=xlWhole, MatchCase:=False
End With
End Sub