VBA "zu viele Zeilenfortsetzungen"

[Bernie]

Hallo zusammen,

bräuchte mal dringend Hilfe. Folgendes Problem: Beim Start der Excel Datei wird über Workbook open nachfolgender Code ausgelöst.

Code:

Option Explicit
Private Sub Workbook_Open()
  Dim arrPfad(), strPfad
  Dim intJahr As Integer
  Dim t As Long           'Tabellen#
  Dim c As Long           'Spalten#
  Dim rng As Range        'Zelle mit Datum
  Dim vntTabellenAuswahl As Variant
  
  intJahr = Year(Date)
  arrPfad = Array("D:\Firma\Abrechnungen\" _
    "D:\Firma\Anfragen-Online\" _
    "D:\Firma\Angebote\" _
    "D:\Firma\Berechnungen\"  _
    .
    . usw. 22 Zeile insgesamt
    .
    "D:\Firma\Schriftwechsel\Email\Kunden\")
      For Each strPfad In arrPfad
    If Dir(strPfad & intJahr, vbDirectory) = "" Then MkDir strPfad & intJahr
  Next
  
  vntTabellenAuswahl = Array("Tab1", "Tab2") 'Die Namen bitte anpassen!
  For t = 0 To UBound(vntTabellenAuswahl)
    With Worksheets(vntTabellenAuswahl(t))
      On Error Resume Next
      c = WorksheetFunction.Match("Ablauf", .Range(.Cells(2, 1), .Cells(2, .Cells(2, .Columns.Count).End(xlToLeft).Column)), 0)
      If Err.Number <> 0 Then
        'no action  - bei Fehler Blatt ignorieren
      Else
        Set rng = .Cells(3, c)      'Zelle mit Datum
        If IsDate(rng) Then
          If DateDiff("d", Now, rng) <= 90 Then
            rng = DateSerial(Year(rng) + 1, Month(rng), Day(rng))   'Frist < 3 Monate, Jahr um 1 erhöhen
          End If
        End If
      End If
      On Error GoTo 0
    End With
  Next t
  
  Application.WindowState = xlMinimized
  frm_Kundenliste.Show vbModeless
  Geburtstag
End Sub

Nun wollte ich im Array Bereich zu den 22 Pfaden 5 Pfade neue hinzufügen, da kam nachfolgende Meldung: "zu viele Zeilenfortsetzungen"

Wie muss ich den Code ändern damit ich jederzeit neue Pfade hinzufügen kann?

Großes Danke im Voraus!!!

[Max]

Hallo Bernie,

in VBA sind maximal 24 Zeilenfortsetzungen pro Codezeile möglich.
Entferne ein paar der Unterstriche "_" dann sollte es wieder klappen.
Vielleicht 2 Pfadangaben pro Zeile.

Gruß
Max

[Bernie]

Hallo Max,

Das war's! Mein Gott schäm ich mich. Manchmal sieht man den Wald vor lauter Bäumen nicht. Hatte geglaubt 24 Unterstriche wären erlaubt.

Nochmals dickes Danke für deine Hilfe

[Max]

Hallo Bernie,

24 sind ja auch erlaubt.
Aber 22+5=27.
Das wird dann nix :32:.

Gruß
Max