VBA: flexibler Bezug Dateiname & Reiter

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B2" Then Range("D5:Y5").FormulaLocal = "='X:\PFAD\[WochenplanKW " & Format(Target, "00") & "20. _ xlsx]Mon'!K$47" End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jens,
soweit ich das jetzt erkennen konnte hast du einen Syntaxfehler eingebaut. Das Hochkomma "'" vor WENNFEHLER darf da nicht stehen.
es ist ratsam, die Informationen zu Pfad, Dateiname, Blattname, KW in Variablen zu erfassen und auch die Formel selbst in einer Variablen zusammenzubauen.
Dann kann man ggf. die Werte prfüfen.
Ich hab das Makro entsprechend angepasst, so das bei Änderung von KW oder Wochentag die Formel angepasst wird.
Außerdem erfolgt eine Prüfung, ob die Eingabewerte OK sind.
Getestet hab ich jetzt nicht, aber es sollte passen.
LG
Franz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sPfad$, sDatei$, sBlatt$, sFormelBlatt$, sFormel$, iKW%
sPfad = "X:\PFAD\"
If Target.Address(0, 0) = "B2" Then
sDatei = "WochenplanKW " & Format(Target, "00") & "20.xlsx"
sBlatt = "Mon"
sFormelBlatt = "'" & sPfad & "[" & sDatei & "]" & sBlatt & "'"
Range("D5:Y5").FormulaLocal = "=" & sFormelBlatt & "!K$47"
End If
If Target.Address(0, 0) = "AD1" Or Target.Address(0, 0) = "AE1" Then
iKW = Range("AD1").Value
sBlatt = Range("AE1").Text
'Eingaben prüfen
Select Case iKW
Case 1 To 53
Case Else
MsgBox "Eingabe KW fehlt oder ist nicht im Bereich von 1 bis 53"
Exit Sub
End Select
Select Case UCase(sBlatt)
Case "MO", "Di", "MI", "DO", "FR", "SA", "SO" ' Kurzform der Wochentage ggf anpassen
Case Else
MsgBox "Eingabe für Wochentag fehlt oder stimmt nicht mit den Vorgaben für " _
& "die Schreibweise überein" & vbLf _
& "MO, DI, MI, DO, FR, SA, SO"
Exit Sub
End Select
sDatei = "WochenplanKW " & Format(iKW, "00") & "20.xlsx"
sFormelBlatt = "'" & sPfad & "[" & sDatei & "]" & sBlatt & "'"
sFormel = "=WENNFEHLER(INDEX(" & sFormelBlatt & "!$B:$B;AGGREGAT(15;6;ZEILE(" _
& sFormelBlatt & "!K$3:K$42)/(" & sFormelBlatt & "!K$3:K$42=1)/(" _
& sFormelBlatt & "!J$3:J$421);ZEILE(A1)));"")"""
Range("z20:ah20").FormulaLocal = sFormel
End If
End Sub

sFormel = "=WENNFEHLER(INDEX(" & sFormelBlatt & "!$B:$B;AGGREGAT(15;6;ZEILE(" _ & sFormelBlatt & "!K$3:K$42)/(" & sFormelBlatt & "!K$3:K$42=1)/(" _ & sFormelBlatt & "!J$3:J$421);ZEILE(A1)));"""")"

Beliebteste Forumthreads (12 Monate)

VBA: flexibler Bezug Dateiname & Reiter

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread