Makro in allen Arbeitsblättern ausführen?
31.12.2019 15:30:58
Sergej
ich möchte das Makro "Zellname" in allen Arbeitsblättern (Ausnahme: Arbeitsblätter, die mit "Massbild" in Namenhaben) ausführen.
Dazu habe ich mir das Makro "All_Sheets" erstellt. Leider werden die Zellnamen nicht in allen Arbeitsblättern eingetragen. Liegt das evtl. an der Verwendung von ActiveCell?
Sub All_Sheets()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
If Not xSh.Name Like "*Massbild*" Then
xSh.Select
Call Zellname
End If
Next
Application.ScreenUpdating = True
End Sub
Sub Zellname()
Range("PRJNR).Offset(1, 0).Select
ActiveCell.Name = "PRJ"
ActiveCell.Offset(1, 0).Select
ActiveCell.Name = "Ort"
ActiveCell.Offset(1, 0).Select
ActiveCell.Name = "Strasse"
ActiveCell.Offset(1, 0).Select
ActiveCell.Name = "Kunde"
ActiveCell.Offset(1, 0).Select
ActiveCell.Name = "Datum"
ActiveCell.Offset(1, 0).Select
ActiveCell.Name = "Abteilung"
ActiveCell.Offset(1, 0).Select
ActiveCell.Name = "Kundennummer"
End Sub
Beste Grüße,
Sergej