VBA in Excel Schrift in bestimmter zeile Dick machen

das problem ist dass sich die zeile an der "Gesamt" steht immer wieder ändert? die inhalte der Tabelle werden aus einer anderen tabelle geholt?

Dim i%
i = 1
With ActiveSheet
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End With

hat bei mir leider nicht funktioniert? wie spreche ich denn eine andere Tabelle in der excel mappe an? glaube es hat was mit dem activesheet zu tun, dass es nicht funktioniert?

ok ich habe das jetzt wie folgt gemacht:

[code]
Sub DeleteRowIfEmptyCell()


Set Bereich = Range("A1:C51")
For Each Zelle In Bereich
If Zelle.Value = "0" Then
Zelle.Value = ""
End If
Next

Dim intRow As Integer, intLastRow As Integer, letzte As Integer

intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 1 Step -1
If IsEmpty(Cells(intRow, 1)) Then
Rows(intRow).Delete
End If
Next intRow


Dim i%
i = 1
With ActiveWorkbook.Sheets(2)
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End With


Sheets("Liste für Word").Select


End Sub [/code]


jetzt erscheint der fehler "400"? und es wird nichts dick gezeichnet