Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

    Makro für alle Exceldatei verwenden
    Günter

    Guten Tag,
    liebe Excelgemeinde. Habe durch euch ein wunderbares Makro bekommen.
    Nun kann ich dieses Makro nur in einem Arbeitsblatt benutzen.
    Möchte dieses aber in allen Exceldateien verwenden können.
    Habe schon probiert, dieses in der Personl.xls zu hinterlegen.
    Klappt aber...
    26.07.2009 11:17:30
    Thread-ID: 1091371
    6 Beiträge
    Anzeige
    Sortierungs-Makro über allen Tabellenblätter
    Luke

    Hi!
    Mein Thema wurde hier schon öfters behandelt, doch es scheint als sei ich nicht Fähig das hinzukriegen. Ich möchte gerne mit einem Makro mehrere Tabellenblätter ansprechen. Ziel: Beim Klick auf den Button sollten sich 13 Tabellenblätter (simultan) absteigend (nach Spalten E und F) sorti...
    27.08.2009 15:43:30
    Thread-ID: 1099010
    3 Beiträge
    alle Sheets mit bestimmten Namen markieren
    Micha.hal

    Hallo Excelperten,
    wie kann ich in einer Datei per VBA alle Blätter markieren, deren Name mit einem "a" oder einem "b" endet?
    Micha
    01.10.2009 10:24:08
    Thread-ID: 1106585
    14 Beiträge
    Anzeige
    Makro für viele Tabellenblätter anwenden
    mat

    Hallo liebes Forum,
    ich habe eine Arbeitsmappe mit 40 Tabellenblättern.
    Über das Makro Sub format() formatiere ich jedes Tabellenblatt einzeln. Wie kann ich das Makro über alle Tabellenblätter automatisch laufen lassen (Ausnahme Sheet Data)
    Viele Grüße
    Mat
    24.03.2010 22:23:59
    Thread-ID: 1148241
    2 Beiträge
    Makro für alle Arbeitsblätter
    Basti

    Guten Morgen zusammen,
    am frühen Morgen macht VBA mal wieder nicht das, was ich möchte.
    Folgendes Problem:
    Ich habe ein Makro in einem Arbeitsblatt aufgezeichnet und möchte nun, dass dieses Makro in allen Arbeitsblättern ausgeführt wird. (Die Anzahl der Arbeitsblätter sind in mehrer...
    27.08.2010 08:50:58
    Thread-ID: 1174432
    8 Beiträge
    Makro für auf mehrere Tabellenblätter anwenden
    Mat

    Hallo liebes Forum,
    wie kann ein ein vorhandenes Modul (Makroname = Sub Formatieren) über alle vorhandenen Tabellenblätter laufen lassen, mit Ausnahme des Tabellenblattes data.
    Gruß Mat
    21.03.2011 16:31:15
    Thread-ID: 1206697
    7 Beiträge
    Auswahl mehrerer Blätter mit variablem Namen
    Philipp

    Hallo Forum!
    Ich habe glaube ich gerade ein Brett vor dem Kopf.
    Ich möchte mehrere Arbeitsblätter variabel auswählen.
    Gibt es hier eine Möglichkeit, anhand der Blattnummer zu sagen:
    Auswahl der Blätter 5 bis 9?
    Alternative wäre es möglich, den Namen des Arrays zu "basteln".<...
    01.04.2011 17:27:36
    Thread-ID: 1208734
    6 Beiträge
    Alle Tabellenblätter mit "Vorhaben" löschen
    Kai

    Hallo,
    ich habe ein Makro, das legt bei Bedarf verschiedene Tabellenblätter an. Darunter gibt es dann auch viele, die nennen sich "Vorhaben01", "Vorhaben02" ..usw.
    Ich möchte nun alle Tabellenblätter, die mit den ersten 8 Zeichen mit "Vorhaben" beginnen (egal, was dahinter noch kommt) l...
    18.04.2011 08:19:39
    Thread-ID: 1210851
    4 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    5
    3
    2
    13
    3
    1
    7
    6
    5
    3
    1
    18
    6
    2
    8
    9
    6
    4
    3
    7
    3
    8
    6
    3
    4