Modul1:
Public Sub Dateiname()
Dim myPfad As String
Dim myDateiname As String
myPfad = ActiveWorkbook.Path & "\"
myDateiname = "Daten.xlsm"
End Sub
Formel in Modul22 will nicht: 1004 Anwendung oder objektdefinierter Fehler!Dies und Das
.Range("C2").Value = "=IFERROR(IF(ABS(VLOOKUP(RC[-2],'" & myPfad & "[" & myDateiname & "]_Auftrag'!C1:C9,3,0))>ABS(VLOOKUP(RC[-2],'" & myPfad & "[" & myDateiname & "]_Auftrag'!C1:C9,7,0)),VLOOKUP(RC[-2],'" & myPfad & "[" & myDateiname & "]_Auftrag'!C1:C9,2,0)&"" - ""&VLOOKUP(RC[-2],'" & myPfad & "[" & myDateiname & "]_Auftrag'!C1:C9,5,0),VLOOKUP(RC[-2],'" & myPfad & "[" & myDateiname & "]_Auftrag'!C1:C9,6,0))&"" - ""&VLOOKUP(RC[-2],'" & myPfad & "[" & myDateiname & "]_Auftrag'!C1:C9,9,0),"""")"
End With
Wenn ich jetzt aber in Modul22 die Dim direkt eintrage dann geht's!?
Kann mir eine sagen wie ich myPfad und myDateiname Public zur Verfügung stellen kann damit das geht ohne in jedem Modul die Dim eintztragen!?
Danke und Gruß
Tilo