Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in 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


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  (Sehr viele) Formatvorlagen löschen Torsten 5 53 Vor 20 Minuten
Letzter Beitrag: Torsten
Sad 1 Auswertung viele Datenlieferanten Marquee 11 256 14.11.2016, 15:47
Letzter Beitrag: Marquee
  viele Bedingungen verknüpfen? wies1617 12 259 02.11.2016, 19:36
Letzter Beitrag: schauan
  Viele Zellen verketten/glätten Kash 5 142 17.10.2016, 12:06
Letzter Beitrag: Kash
  Wie viele aufsteigende Kombinationen ReddDevil 7 359 31.08.2016, 16:00
Letzter Beitrag: Ego
  Ferienkalender für viele Jahre Ralf1101 7 426 07.07.2016, 06:19
Letzter Beitrag: BoskoBiati
  Zu viele Verschachtelungen kevin313 13 740 24.06.2016, 23:45
Letzter Beitrag: Ego
  Einsatzstatistik, wie viele Einsätze Parallel shokkel 13 745 09.05.2016, 10:07
Letzter Beitrag: shokkel
  Übersicht Blatt soll viele Unterblätter befüllen Moe_Himself 7 633 29.03.2016, 19:22
Letzter Beitrag: schauan
  SVERWEIS (für sehr viele Zeilen) über VBA friedensbringer 3 1.485 28.07.2015, 10:47
Letzter Beitrag: Winny

Gehe zu:


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