Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.06.2024 22:07:02
25.06.2024 21:01:55
25.06.2024 19:21:44
Anzeige
Archiv - Navigation
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Macros für alle Tabellenblätter

Macros für alle Tabellenblätter
12.06.2023 14:07:32
David Langer

Hy zusammen, ich möchte meine Makros die in Jedem Tabellenblatt gespeichert sind in eins zusammenfügen. Das heisst, es ist ein Makro pro Mappe für alle Tabellenblätter gültig. Könnt ihr mir da bitte weiterhelfen?

Danke


Private Sub Workbook_Change(ByVal Target As Range)

If Target.Address(False, False, xlA1) = "Y3" Then
Select Case Target.Value
Case 7.25: Call sechsundreissig_2_0
Case 7.75: Call achtundreissig_2_0
Case 8.25: Call vierzig_2_0
Case 7: Call freitag_2_0
Case 7.8: Call neununddreissig_2_0
End Select
End If

End Sub

Sub keine_produktion()
'
' keine_produktion Makro
' Keine Produktion
'
' Tastenkombination: Strg+ö
'
Range("Z2").Select
ActiveCell.FormulaR1C1 = "0"
Range("AB2").Select
ActiveCell.FormulaR1C1 = "0"
Range("AB3").Select
End Sub


Sub sechsundreissig_2_0()
'
ActiveSheet.Unprotect Password:="12051973GS"

' sechsundreissig_2_0 Makro
' 36,25 Stunden Woche
'
' Tastenkombination: Strg+f


Range("A14").Select
ActiveCell.FormulaR1C1 = "6:00:00 AM"
Range("B14").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("A15").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("B15").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("A16").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("B16").Select
ActiveCell.FormulaR1C1 = "8:45:00 AM"
Range("A17").Select
ActiveCell.FormulaR1C1 = "9:00:00 AM"
Range("B17").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("A18").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("B18").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("A19").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("B19").Select
ActiveCell.FormulaR1C1 = "12:00:00 PM"
Range("A20").Select
ActiveCell.FormulaR1C1 = "12:15:00 PM"
Range("B20").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("A21").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("B21").Select
ActiveCell.FormulaR1C1 = "1:45:00 PM"
Range("A22").Select
Selection.ClearContents
Range("B22").Select
Selection.ClearContents
Range("A24").Select
ActiveCell.FormulaR1C1 = "1:45:00 PM"
Range("B24").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("A25").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("B25").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("A26").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("B26").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("A27").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("B27").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("A28").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("B28").Select
ActiveCell.FormulaR1C1 = "5:30:00 PM"
Range("A29").Select
ActiveCell.FormulaR1C1 = "6:00:00 PM"
Range("B29").Select
ActiveCell.FormulaR1C1 = "7:00:00 PM"
Range("A30").Select
ActiveCell.FormulaR1C1 = "7:00:00 PM"
Range("B30").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("A31").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("B31").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("A32").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("B32").Select
ActiveCell.FormulaR1C1 = "9:30:00 PM"
Range("A32").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("H22:S22").Select

ActiveSheet.Protect Password:="12051973GS"

End Sub

Sub achtundreissig_2_0()

ActiveSheet.Unprotect Password:="12051973GS"

' achtundreissig_2_0 Makro
' 38 Stunden
'
' Tastenkombination: Strg+h


Range("A14").Select
ActiveCell.FormulaR1C1 = "6:00:00 AM"
Range("B14").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("A15").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("B15").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("A16").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("B16").Select
ActiveCell.FormulaR1C1 = "8:45:00 AM"
Range("A17").Select
ActiveCell.FormulaR1C1 = "9:00:00 AM"
Range("B17").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("A18").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("B18").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("A19").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("B19").Select
ActiveCell.FormulaR1C1 = "12:00:00 PM"
Range("A20").Select
ActiveCell.FormulaR1C1 = "12:15:00 PM"
Range("B20").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("A21").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("B21").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("A22").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("B22").Select
ActiveCell.FormulaR1C1 = "2:15:00 PM"
Range("A24").Select
ActiveCell.FormulaR1C1 = "2:15:00 PM"
Range("B24").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("A25").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("B25").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("A26").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("B26").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("A27").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("B27").Select
ActiveCell.FormulaR1C1 = "6:00:00 PM"
Range("A28").Select
ActiveCell.FormulaR1C1 = "6:00:00 PM"
Range("B28").Select
ActiveCell.FormulaR1C1 = "6:30:00 PM"
Range("A29").Select
ActiveCell.FormulaR1C1 = "7:00:00 PM"
Range("B29").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("A30").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("B30").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("A31").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("B31").Select
ActiveCell.FormulaR1C1 = "10:00:00 PM"
Range("A32").Select
ActiveCell.FormulaR1C1 = "10:00:00 PM"
Range("B32").Select
ActiveCell.FormulaR1C1 = "10:30:00 PM"
Range("C32").Select

ActiveSheet.Protect Password:="12051973GS"

End Sub
Sub vierzig_2_0()

ActiveSheet.Unprotect Password:="12051973GS"

' vierzig_2_0 Makro
' 40 Stunden Woche
'
' Tastenkombination: Strg+g


Range("A14").Select
ActiveCell.FormulaR1C1 = "6:00:00 AM"
Range("B14").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("A15").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("B15").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("A16").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("B16").Select
ActiveCell.FormulaR1C1 = "8:45:00 AM"
Range("A17").Select
ActiveCell.FormulaR1C1 = "9:00:00 AM"
Range("B17").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("A18").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("B18").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("A19").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("B19").Select
ActiveCell.FormulaR1C1 = "12:00:00 PM"
Range("A20").Select
ActiveCell.FormulaR1C1 = "12:15:00 PM"
Range("B20").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("A21").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("B21").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("A22").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("B22").Select
ActiveCell.FormulaR1C1 = "2:45:00 PM"
Range("A24").Select
ActiveCell.FormulaR1C1 = "2:45:00 PM"
Range("B24").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("A25").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("B25").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("A26").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("A26").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("B26").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("A27").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("B27").Select
ActiveCell.FormulaR1C1 = "6:00:00 PM"
Range("A28").Select
ActiveCell.FormulaR1C1 = "6:00:00 PM"
Range("B28").Select
ActiveCell.FormulaR1C1 = "7:00:00 PM"
Range("A29").Select
ActiveCell.FormulaR1C1 = "7:30:00 PM"
Range("B29").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("A30").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("B30").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("A31").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("B31").Select
ActiveCell.FormulaR1C1 = "10:00:00 PM"
Range("A32").Select
ActiveCell.FormulaR1C1 = "10:00:00 PM"
Range("B32").Select
ActiveCell.FormulaR1C1 = "11:30:00 PM"
Range("C32").Select

ActiveSheet.Protect Password:="12051973GS"

End Sub

Sub freitag_2_0()

ActiveSheet.Unprotect Password:="12051973GS"

' freitag_2_0 Makro
' Kurzer Freitag
'
' Tastenkombination: Strg+d


Range("A14").Select
ActiveCell.FormulaR1C1 = "6:00:00 AM"
Range("B14").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("A15").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("B15").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("A16").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("B16").Select
ActiveCell.FormulaR1C1 = "8:45:00 AM"
Range("A17").Select
ActiveCell.FormulaR1C1 = "9:00:00 AM"
Range("B17").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("A18").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("B18").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("A19").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("B19").Select
ActiveCell.FormulaR1C1 = "12:00:00 PM"
Range("B19").Select
ActiveCell.FormulaR1C1 = "12:00:00 PM"
Range("A20").Select
ActiveCell.FormulaR1C1 = "12:15:00 PM"
Range("B20").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("A21").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("B21").Select
ActiveCell.FormulaR1C1 = "1:30:00 PM"
Range("A22").Select
Selection.ClearContents
Range("B22").Select
Selection.ClearContents
Range("A24").Select
ActiveCell.FormulaR1C1 = "1:30:00 PM"
Range("B24").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("A25").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("B25").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("A26").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("B26").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("A27").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("A27").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("B27").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("A28").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("B28").Select
ActiveCell.FormulaR1C1 = "5:30:00 PM"
Range("A29").Select
ActiveCell.FormulaR1C1 = "6:00:00 PM"
Range("B29").Select
ActiveCell.FormulaR1C1 = "7:00:00 PM"
Range("A30").Select
ActiveCell.FormulaR1C1 = "7:00:00 PM"
Range("B30").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("A31").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("B31").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("A32").Select
Selection.ClearContents
Range("B32").Select
Selection.ClearContents
Range("F20:G20").Select
ActiveWindow.SmallScroll Down:=-12
Range("E14").Select

ActiveSheet.Protect Password:="12051973GS"

End Sub


Sub neununddreissig_2_0()
'

ActiveSheet.Unprotect Password:="12051973GS"

' neununddreissig Makro
' 39 Stunden Woche
'
' Tastenkombination: Strg+y
'
Range("A14").Select
ActiveCell.FormulaR1C1 = "6:00:00 AM"
Range("B14").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("A15").Select
ActiveCell.FormulaR1C1 = "7:00:00 AM"
Range("B15").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("A16").Select
ActiveCell.FormulaR1C1 = "8:00:00 AM"
Range("B16").Select
ActiveCell.FormulaR1C1 = "9:00:00 AM"
Range("A17").Select
ActiveCell.FormulaR1C1 = "9:00:00 AM"
Range("B17").Select
ActiveCell.FormulaR1C1 = "10:00:00 AM"
Range("A18").Select
ActiveCell.FormulaR1C1 = "10:30:00 AM"
Range("B18").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("A19").Select
ActiveCell.FormulaR1C1 = "11:00:00 AM"
Range("B19").Select
ActiveCell.FormulaR1C1 = "12:00:00 PM"
Range("A20").Select
ActiveCell.FormulaR1C1 = "12:00:00 PM"
Range("B20").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("A21").Select
ActiveCell.FormulaR1C1 = "1:00:00 PM"
Range("B21").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("A22").Select
ActiveCell.FormulaR1C1 = "2:00:00 PM"
Range("B22").Select
ActiveCell.FormulaR1C1 = "2:30:00 PM"
Range("A24").Select
ActiveCell.FormulaR1C1 = "2:30:00 PM"
Range("B24").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("A25").Select
ActiveCell.FormulaR1C1 = "3:00:00 PM"
Range("B25").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("A26").Select
ActiveCell.FormulaR1C1 = "4:00:00 PM"
Range("B26").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("A27").Select
ActiveCell.FormulaR1C1 = "5:00:00 PM"
Range("B27").Select
ActiveCell.FormulaR1C1 = "6:00:00 PM"
Range("A28").Select
ActiveCell.FormulaR1C1 = "6:00:00 PM"
Range("B28").Select
ActiveCell.FormulaR1C1 = "6:30:00 PM"
Range("A29").Select
ActiveCell.FormulaR1C1 = "7:00:00 PM"
Range("B29").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("A30").Select
ActiveCell.FormulaR1C1 = "8:00:00 PM"
Range("B30").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("A31").Select
ActiveCell.FormulaR1C1 = "9:00:00 PM"
Range("B31").Select
ActiveCell.FormulaR1C1 = "10:00:00 PM"
Range("A32").Select
ActiveCell.FormulaR1C1 = "10:00:00 PM"
Range("B32").Select
ActiveCell.FormulaR1C1 = "11:00:00 PM"
Range("A33:C34").Select

ActiveSheet.Protect Password:="12051973GS"

End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macros für alle Tabellenblätter
12.06.2023 14:27:33
Rudi Maintaire
hallo,
ein Workbook_Change-Ereignis gibt es nicht.
In DieseArbeitsmappe:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Address(False, False, xlA1) = "Y3" Then
    Select Case Target.Value
      Case 7.25: Call sechsundreissig_2_0
      Case 7.75: Call achtundreissig_2_0
      Case 8.25: Call vierzig_2_0
      Case 7: Call freitag_2_0
      Case 7.8: Call neununddreissig_2_0
    End Select
  End If
End Sub
Alles andere in ein allg. Modul.
Wobei du die Selects eliminieren solltest. .FormulaR1C1 ist auch überflüssig.
statt
Range("A14").Select
ActiveCell.FormulaR1C1 = "6:00:00 AM"
besser
Range("A14") = "6:00:00 AM"
Gruß
Rudi


Anzeige
AW: Macros für alle Tabellenblätter
12.06.2023 20:15:26
Piet
Hallo

mit diesen zwei kleinen Makros kannst deine Recorder Makros von unnötigen Select befreien.
Das erste Makro fast den Code, der in einer Tabelle Spalte B stehen muss in Spalte D zusammen.
Der zweite Code löscht die überflüssigen Leerzeilen. Den Rest musst du von Hand machen.

mfg Piet

  • Dim AC As Range

    'Makro in Spalte B, Ergebnis in Spalte D

    Sub Select_löschen()
        For Each AC In Range("B18:B490")
            AC.Offset(0, 2) = AC.Value
            If Right(AC, 7) = ".Select" Then
            If InStr(AC.Cells(2, 1), "ActiveCell") Then
               AC.Offset(0, 2) = AC & Mid(AC.Cells(2, 1), 11)
               AC.Offset(0, 2).Replace ".Select", "", xlPart
               AC.Cells(2, 1) = Empty
            ElseIf InStr(AC.Cells(2, 1), "Selection") Then
               AC.Offset(0, 2) = AC & Mid(AC.Cells(2, 1), 10)
               AC.Offset(0, 2).Replace ".Select", "", xlPart
               AC.Cells(2, 1) = Empty
            End If
            End If
        Next AC
    End Sub
    'Leerzilen in Spalte D löschen

    Sub Leerzeilen_löschen()
        For j = 500 To 4 Step -1
            If Cells(j, 4) = Empty And Left(Cells(j - 1, 4), 5) = "Range" Then
               Cells(j, 4).Delete shift:=xlUp
            End If
        Next j
    End Sub



  • Anzeige
    AW: Macros für alle Tabellenblätter
    13.06.2023 09:51:30
    David Langer
    Erstmal Danke an alle. Leider ist mein Problem damit nicht gelöst. Ich habe eine Mappe mit 30 Tabellenblätter. In jedem Tabellenblatt sind diese Makros hinterlegt. Ich möchte das für die gesamter Mappe nur einmal diese Makros gespeichert sind. Beim Versuch dies zu machen, musste ich feststellen das die hinterlegte Call Funktion nur Funktioniert wenn die Makros in jedem Blatt hinterlegt sind. Lösche ich die Makros und hinterlege sie nur in der Arbeitsmappe geht die Funktion nicht mehr. Ich Lade die Datei nochmal hoch.


    AW: Macros für alle Tabellenblätter
    13.06.2023 10:42:37
    GerdL
    Moin
    'Modul DieseArbeitsmappe
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
    
        If Target.Address(False, False, xlA1) = "Y3" Then
            Application.EnableEvents = False
            Select Case Target.Value
                Case 7.25: Call Modul1.sechsundreissig_2_0
                Case 7.75: Call Modul1.achtundreissig_2_0
                Case 8.25: Call Modul1.vierzig_2_0
                Case 7: Call Modul1.freitag_2_0
            End Select
        End If
        Application.EnableEvents = True
    End Sub
    'Moul1 exemplarisch
    Sub sechsundreissig_2_0()
    '
    
    
    
    With ActiveSheet
    .Unprotect Password:="12051973GS"
    
    ' sechsundreissig_2_0 Makro
    ' 36,25 Stunden Woche
    '
    
    
    
        .Range("A14") = "6:00:00 AM"
        .Range("B14") = "7:00:00 AM"
        .Range("A15") = "7:00:00 AM"
        .Range("B15") = "8:00:00 AM"
        .Range("A16") = "8:00:00 AM"
        .Range("B16") = "8:45:00 AM"
        .Range("A17") = "9:00:00 AM"
        .Range("B17") = "10:00:00 AM"
        .Range("A18") = "10:00:00 AM"
        .Range("B18") = "11:00:00 AM"
        .Range("A19") = "11:00:00 AM"
        .Range("B19") = "12:00:00 PM"
        .Range("A20") = "12:15:00 PM"
        .Range("B20") = "1:00:00 PM"
        .Range("A21") = "1:00:00 PM"
        .Range("B21") = "1:45:00 PM"
        .Range("A22:B22").ClearContents
       
        .Range("A24") = "1:45:00 PM"
        .Range("B24") = "2:00:00 PM"
        .Range("A25") = "2:00:00 PM"
        .Range("B25") = "3:00:00 PM"
        .Range("A26") = "3:00:00 PM"
        .Range("B26") = "4:00:00 PM"
        .Range("A27") = "4:00:00 PM"
        .Range("B27") = "5:00:00 PM"
        .Range("A28") = "5:00:00 PM"
        .Range("B28") = "5:30:00 PM"
        .Range("A29") = "6:00:00 PM"
        .Range("B29") = "7:00:00 PM"
        .Range("A30") = "7:00:00 PM"
        .Range("B30") = "8:00:00 PM"
        .Range("A31") = "8:00:00 PM"
        .Range("B31") = "9:00:00 PM"
        .Range("A32") = "9:00:00 PM"
        .Range("B32") = "9:30:00 PM"
        .Range("A32") = "9:00:00 PM"
        '.Range ("H22:S22")
        
    .Protect Password:="12051973GS"
    End With
    
    End Sub
    Gruß Gerd


    Anzeige
    AW: Macros für alle Tabellenblätter
    13.06.2023 11:24:18
    David Langer
    Danke Gerd. Super

    310 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige