Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1600to1604
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

Unzulässiger Verweiß

Unzulässiger Verweiß
11.01.2018 05:16:20
Johann
Hallo Liebe Gemeinde,
bei folgendem Code kommt eine Fehlermeldung.
Ich gehe davon aus, dass der Bezug nicht Richtig ist.
Allerdings weiß ich nicht wie ich es umschreiben soll.
Sub WE_einfärben()
For sp = 5 To 35
'unzulässiger oder nicht ausreichender verweisß in nächster zeile bei ".Cells"
If Weekday(.Cells(1, sp).Value, 2) = 6 Then
With .Columns(sp)
.Interior.ColorIndex = 48
.Font.Color = vbWhite
.ColumnWidth = 4.69
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End If
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unzulässiger Verweiß
11.01.2018 05:41:24
Hajo_Zi
Ja es fehlt das With auf die Tabelle für .Cells
Vielleicht reicht Punkt löschen, dann ist es aber die aktuelle Tabelle.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Unzulässiger Verweiß
11.01.2018 06:02:48
Johann
Vielen Dank Hajo_Zi
Habe bei Cells und Anschließen bei Coumns den Punkt entfernt.
Kannst du mir auch veraten wie ich diesen Code über 12 Sheets laufen lassen kann?
AW: Unzulässiger Verweiß
11.01.2018 17:13:23
Hajo_Zi

Option Explicit
Sub Tabele()
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
Next WsTabelle
End Sub
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige