Ein VBA-Programm in Excel

Case 2 To 6
ZelleMitNameFuellen
'Zeile 2 bis 6 = Befüllung mit Namen
'Eintrag des Teilnehmers in die
entsprechende Zelle
Case 7 '7.Zeile = Summ-formel für Zeilen 2 bis 6
Worksheets(d + 2).Cells(zeile, spalte + 1).FormulaR1C1 =
"=SUM(R[-5]C:R[-1]C)"
Worksheets(d + 2).Cells(zeile, spalte +
1).FormatConditions.Delete
Worksheets(d + 2).Cells(zeile, spalte +
1).FormatConditions.Add _
Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="0"
With Worksheets(d + 2).Cells(zeile, spalte +
1).FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
Worksheets(d + 2).Cells(zeile, spalte +
1).FormatConditions(1).Interior.ColorIndex = 5
Worksheets(d + 2).Cells(zeile, spalte +
1).HorizontalAlignment = xlCenter
End Select
Next j
i5t = i5t + 1 'nach Abarbeitung 5er-Tisch Zähler um 1
erhöhen
Else ... 'Abarbeitung der 4er-Tische nach dem
gleichen Schema
Sub ZelleMitNameFuellen()
Dim Sp_Name As String
Dim MatchZeile As Variant
Sp_Name = Worksheets(1).Range("M" & (Zuf_Nr(d, n))).Value 'Zeile aus
Spalte "M" entspricht Zufallszahl
Worksheets(d + 2).Cells(zeile, spalte) = Sp_Name
'Eintragung
des Spielers in der Durchgangs-Tabelle
Worksheets(d + 2).Cells(zeile, spalte).Locked = True 'entsprechende
Zelle sperren
Worksheets(d + 2).Cells(zeile, spalte).Borders.LineStyle =
xlContinuous
Worksheets(d + 2).Cells(zeile, spalte).HorizontalAlignment =
xlCenter
Worksheets(d + 2).Cells(zeile, spalte).Interior.ColorIndex = HGrFaSp
Worksheets(d + 2).Cells(zeile, spalte + 1).Borders.LineStyle =
xlContinuous
Worksheets(d + 2).Cells(zeile, spalte + 1).HorizontalAlignment =
xlCenter
Worksheets(d + 2).Cells(zeile, spalte + 1).Interior.ColorIndex =
HGrFaSp
Worksheets(d + 2).Cells(n, 11).Value = Sp_Name 'zusätzlich
den Namen in Spalte "K" der Durchgangstabelle eintragen
Worksheets(d + 2).Cells(n, 11).Locked = True
'und die
betreffende Zelle sperren
Worksheets(d + 2).Cells(n, 12).Formula = "=R" & zeile & "C" & spalte
+ 1 & "" 'außerdem die Punktzahl des Spielers automatisch übernehmen lassen
Worksheets(d + 2).Cells(n, 12).Locked = True 'und auch diese Zelle
(gleiche Zeile, aber Spalte "L"), sperren lassen
MatchZeile = Application.Match(Sp_Name, Sheets(list).Range("A:A"), 0)
'Spielernamen in Tabelle "Liste", Spalte "A" suchen
If IsError(MatchZeile) Then 'falls noch nicht vorhanden
lz = Sheets(list).Range("A" & Rows.Count).End(xlUp).Row + 1
'neue Zeile "aufmachen"
39