Sub Erzeuge_Tabelle()
    '--------------------------------EINFÜGEN
    Dim i As Integer
    Dim k As String
    For i = 1 To 2000
        Sheets("ende").Select
        Sheets.Add
        aktueller_Name = ActiveSheet.Name
        k = CStr(i)
        ActiveWorkbook.Worksheets(aktueller_Name).Name = k
    Next i
    '---------------------------------Verlinken
    Sheets("startseite").Select
    For i = 1 To 2000
        w = i + 2
        ActiveWorkbook.Worksheets("startseite").Range("A" & w).Value = i
        Range("A" & w).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
         "'" & i & "'!A1"
    Next i
    Range("A1").Select
    '---------------------------------Fenster fixieren
    Rows("3:3").Select
    ActiveWindow.FreezePanes = True
    '---------------------------------Zentrieren
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection
        .HorizontalAlignment = xlCenter
    End With
    Range("A1").Select
    '---------------------------------Tabelle erstellen
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$3:$C$257"), , xlNo).Name = _
        "Tabelle1"
    Rows("3:3").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
End Sub

Sub STR_Y_ZUR_STARTSEITE()
    Sheets("startseite").Select ' springt zurück zur startseite
End Sub

Sub STR_T_TEXTBOX() ' erstellt eine neue textbox
    Cells.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 40.2, 14.4, 751.2, _
        273.6).Select
    Range("A1").Select
End Sub


Sub SPALTEN_FILTER(spalten_buchstabe As String, name_des_blattes As String, start_ As Integer, ende_ As Integer, zeile_suchfeld As Integer)
Dim aktueller_name_des_tabellenblattes As String
aktueller_name_des_tabellenblattes = ActiveSheet.Name
Dim pruefe_diesen_zellwert As String
Dim suche_nach_diesem_string As String
Sheets(name_des_blattes).Select 'blatt auswählen
Rows(start_ & ":" & ende_).Select 'start und ende des bereichs auswählen der ausgeblendet werden soll
Selection.EntireRow.Hidden = True
suche_nach_diesem_string = ActiveWorkbook.Worksheets(name_des_blattes).Range(spalten_buchstabe & zeile_suchfeld).Value
For k = start_ To ende_ Step 1
  pruefe_diesen_zellwert = ActiveWorkbook.Worksheets(name_des_blattes).Range(spalten_buchstabe & k).Value
  rueckgabewert = InStrRev(pruefe_diesen_zellwert, suche_nach_diesem_string, , vbTextCompare)
  If (rueckgabewert > 0) Then
    Rows(k & ":" & k).Select
    Selection.EntireRow.Hidden = False ' wenn was gefunden wurde wieder einblenden
  End If
Next k
Range("A1").Select
End Sub

Sub show_all()
    Rows("4:5000").Select
    Selection.EntireRow.Hidden = False
    Range("A4").Select
End Sub

Sub neue_notiz()
Dim merker_blatt As String
headline_ = Application.InputBox("Überschrift der Notiz...", Default:=1, Type:=2)
flag = 1
ofs = 3
For i = 1 To 2000
    zeile = i + ofs
    wert_ = ActiveWorkbook.Worksheets("startseite").Range("B" & zeile).Value
    If wert_ = "" And flag = 1 Then
        flag = 0
        merker_blatt = CStr(zeile - ofs)
        merker = zeile
    End If
Next i
Range("B" & merker).Select
ActiveWorkbook.Worksheets("startseite").Range("B" & merker).Value = headline_
ActiveWorkbook.Worksheets(merker_blatt).Range("A1").Value = headline_
ActiveWorkbook.Worksheets("startseite").Range("C" & merker).Value = Format(Now, "YYYY" & "_" & "MM" & "_" & "DD" & "  " & "hh" & ":" & "mm" & ":" & "ss")
End Sub

Sub Filter_Zeitstempel()
    ActiveWorkbook.Worksheets("startseite").ListObjects("Tabelle1").Sort.SortFields _
        .Clear
    ActiveWorkbook.Worksheets("startseite").ListObjects("Tabelle1").Sort.SortFields _
        .Add2 Key:=Range("Tabelle1[[#All],[Spalte3]]"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("startseite").ListObjects("Tabelle1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

Sub Filter_Reset()
    ActiveWorkbook.Worksheets("startseite").ListObjects("Tabelle1").Sort.SortFields _
        .Clear
    ActiveWorkbook.Worksheets("startseite").ListObjects("Tabelle1").Sort.SortFields _
        .Add2 Key:=Range("Tabelle1[[#All],[Spalte1]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("startseite").ListObjects("Tabelle1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub update_zeitstempel()
  hier_befindet_sich_die_maus_gerade = ActiveCell.Row
  ActiveWorkbook.Worksheets("startseite").Range("C" & hier_befindet_sich_die_maus_gerade).Value = Format(Now, "YYYY" & "_" & "MM" & "_" & "DD" & "  " & "hh" & ":" & "mm" & ":" & "ss")
    Call Filter_Zeitstempel
End Sub


Sub str_p_pfeil()
  ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 456.6, 15.6, 776.4, 85.8) _
        .Select
        Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 3
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
End Sub