Sub neues_meeting_anlegen()
    Call zellen_einfuegen(6, 8)
    ActiveWorkbook.Worksheets("MEETING").Range("A7").Value = "Meeting:"
    ActiveWorkbook.Worksheets("MEETING").Range("C7").Value = "Participants:"
    teilnehmer_liste_1 = ActiveWorkbook.Worksheets("MEETING").Range("J1").Value
    teilnehmer_liste_2 = ActiveWorkbook.Worksheets("MEETING").Range("J2").Value
    teilnehmer_liste_3 = ActiveWorkbook.Worksheets("MEETING").Range("J3").Value
    teilnehmer_liste_4 = ActiveWorkbook.Worksheets("MEETING").Range("J4").Value
    auswahl_teilnehmer_liste = ActiveWorkbook.Worksheets("MEETING").Range("G4").Value
    If auswahl_teilnehmer_liste = 1 Then
        teilnehmer = teilnehmer_liste_1
    ElseIf auswahl_teilnehmer_liste = 2 Then
        teilnehmer = teilnehmer_liste_2
    ElseIf auswahl_teilnehmer_liste = 3 Then
        teilnehmer = teilnehmer_liste_3
    ElseIf auswahl_teilnehmer_liste = 4 Then
        teilnehmer = teilnehmer_liste_4
    End If
    ActiveWorkbook.Worksheets("MEETING").Range("D7").Value = teilnehmer
    ActiveWorkbook.Worksheets("MEETING").Range("C8").Value = "die Aufgaben von..."
    
    Call datum_einfuegen("A8")
    Call schrift_in_zeile_7_und_8_rot_darstellen
    Range("A5").Select
End Sub
Sub zellen_einfuegen(start As Integer, wieviele As Integer)
Rows(start & ":" & start).Select
For i = 1 To wieviele
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Sub

Sub datum_einfuegen(zelle As String)
    ActiveWorkbook.Worksheets("MEETING").Range(zelle).Value = Format(Now, "YYYY" & "_" & "MM" & "_" & "DD")
End Sub
Sub sprige_nach_oben()
    Range("A5").Select
End Sub
Sub erzeuge_einen_link()
  eingegebener_Link = Application.InputBox("Link:", Default:=1, Type:=2)
  Dim hier_befindet_sich_die_maus_gerade As String
  hier_befindet_sich_die_maus_gerade = Selection.Address
  Range(hier_befindet_sich_die_maus_gerade).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        eingegebener_Link, SubAddress:="home", TextToDisplay:=eingegebener_Link
End Sub
Sub ZellenEinfügen()
  Dim hier_befindet_sich_die_maus_gerade As String
  hier_befindet_sich_die_maus_gerade = ActiveCell.Row
  'anzahl = Application.InputBox("Wieviele neue Zeilen?", Default:=1, Type:=1)
  anzahl = 6
  For i = 1 To anzahl Step 1
    Rows(hier_befindet_sich_die_maus_gerade & ":" & hier_befindet_sich_die_maus_gerade).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Next i
  Range("A" & hier_befindet_sich_die_maus_gerade).Select
End Sub
Sub schrift_in_zeile_7_und_8_rot_darstellen()
    Rows("7:7").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Range("A5").Select
End Sub