Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ein Code funktioniert,der andere nicht

Ein Code funktioniert,der andere nicht
14.05.2017 20:10:57
Frank
Hallo allerseits,
ich steh mal wieder auf dem Schlauch.
Folgender Teil vom Code:

For Z = 17 To 637 Step 20
With Worksheets("Turnier-Board").Range(Cells(Z, 40),(Cells(Z, 41))).Borders(xlEdgeBottom)  '  _
"Rahmen unten"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 2
End With
Next
Soweit funktioniert noch alles,wenn ich nun aber etwas hinzufüge:

For Z = 17 To 637 Step 20
With Worksheets("Turnier-Board").Range(Cells(Z, 40),(Cells(Z, 41),(Cells(Z, 42))). _
Borders(xlEdgeBottom)  ' "Rahmen unten"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 2
End With
Next

bekomme ich eine Fehlermeldung:
Fehler beim Kompilieren:
Erwartet: )
Und der Cursor springt auf das Komma hinter die Klammer von Z,41
Wer kann mir sagen warum Excel das nun wieder macht?
Lg Frank
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ungetestet
14.05.2017 20:37:01
Gerd
Hallo Frank!
For Z = 17 To 637 Step 20
With Worksheets("Turnier-Board").Range(Worksheets("Turnier-Board").Cells(Z, 40), Worksheets(" _
Turnier-Board").Cells(Z, 42)). _
Borders(xlEdgeBottom)  ' "Rahmen unten"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 2
End With
Next

For Z = 17 To 637 Step 20
With Worksheets("Turnier-Board")
With .Range(.Cells(Z, 40), .Cells(Z, 42)).Borders(xlEdgeBottom)   ' "Rahmen unten"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 2
End With
End With
Next

For Z = 17 To 637 Step 20
With Worksheets("Turnier-Board").Cells(Z, 40).Resize(1, 3).Borders(xlEdgeBottom)  ' "Rahmen  _
unten"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 2
End With
Next
Gruß Gerd
Anzeige
AW: Ungetestet
14.05.2017 20:50:18
Frank
Hallo Gerd,
wie könnte es auch anders sein,es funktionieren alle drei Möglichkeiten.Vielen Dank
Lg Frank
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige