Microsoft Excel

Herbers Excel/VBA-Archiv

Unzulässiger Verweiß


Betrifft: Unzulässiger Verweiß von: Johann Esau
Geschrieben am: 11.01.2018 05:16:20

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

  

Betrifft: AW: Unzulässiger Verweiß von: Hajo_Zi
Geschrieben am: 11.01.2018 05:41:24

Ja es fehlt das With auf die Tabelle für .Cells
Vielleicht reicht Punkt löschen, dann ist es aber die aktuelle Tabelle.

GrußformelHomepage

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.


  

Betrifft: AW: Unzulässiger Verweiß von: Johann Esau
Geschrieben am: 11.01.2018 06:02:48

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?


  

Betrifft: AW: Unzulässiger Verweiß von: Hajo_Zi
Geschrieben am: 11.01.2018 17:13:23

Option Explicit

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


Beiträge aus dem Excel-Forum zum Thema "Unzulässiger Verweiß"