Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige