Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

VBA "zu viele Zeilenfortsetzungen"
#1
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!!!
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2010 Pro - Win 7 Home Premium
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
to top
#2
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
to top
#3
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 Thumps_up
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2010 Pro - Win 7 Home Premium
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
to top
#4
Hallo Bernie,

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

Gruß
Max
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste