Hallo Wolfgang,
dann sollt einmal per Namens- Manager geprüft werden.
Öffne einmal den Namens- Manager und prüfe:
Name / Wert / Bezieht sich auf / Bereich
Vermutlich liegt hier der Fehler.
Oder prüfen mit:
Code:
Sub test()
MsgBox "Arbeitsblatt und Zelle von (DatName):" & vbLf & Range("DatName").Name _
& vbLf & vbLf & "Wert in der Zelle (DatName):" & vbLf & Range("DatName").Value
End Sub
hallo
was ist denn so schwer daran, Schauans Rat zu befolgen und sFilter anstatt Filter zu nehmen?
Hallo Willie,
hilft ihm auch nicht weiter, wenn Range("DatName").Value leer ist.
Geht bei mir mit beiden Varianten, sowohl mit "sFilter" und "Filter"
hallo hddiesel
aber auch dein Code läuft nicht wie vom TE gewünscht, auch du benutzt Filter anstatt sFilter. Probiere es doch einfach einmal aus und staune über den Unterschied
(01.09.2018, 09:23)hddiesel schrieb: [ -> ]Hallo Willie,
hilft ihm auch nicht weiter, wenn Range("DatName").Value leer ist.
Geht bei mir mit beiden Varianten, sowohl mit "sFilter" und "Filter"
probiere mal bitte Folgendes
speichere die Version mit Filter, welche den Dateinamen anzeigt ab und verlasse Excel. Rufe die Datei neu auf und schaue ob der Dateiname noch angezeigt wird. Nun mache dasselbe mit sFilter, bei mir sind da Unterschiede und ich bin sicher bei dir auch
Hallo in die Runde
Asche über mein Haupt
so gehts nicht:
Dateiname steht in A1:
A1_180829_Hausrat und TV_Knaus, Fred_Straße Nr. 5
Im Dateinamen darf kein Punkt stehen, z.B. Nr. 5
ohne Punkt gehts Super
Verstehe ich aber trotzdem nicht so, mit Punkt (Nr.5) läuft es in 2010.
Gruß Wolfgang Virnich
Hallo Willie,
ich sehe wirklich keine Unterschiede.
Bei beiden der gleiche Pfad(zu Standardpfad) und die gleiche Vorgabe in der Zeile "Dateiname:".
Grillfestliste.xlsm
Habe es schon x mal getestet, aber ist immer das Gleiche.
Habe selbst:
BS: Windows 10_64-Bit, MS Office Professional Plus 2016_32-Bit.
Aber inzwischen ist ja die Ursache gefunden.
Mit Punk in der Dateinamen- Vorgaben, ist auch bei mir in beiden Varianten, das Feld Dateiname: leer
hallo hddiesel
das ist wirklich sehr komisch! Nachdem ich deinen Code gestartet hatte war das Dateinamenfeld leer. Nach der Umbennung zu sFilter war der Dateiame dann da. Der Name wurde von da an immer angezeigt, auch nach Rückänderung zu Filter. Jedoch nach Speichern und Laden war/ist der Dateiname wieder leer, das lässt sich hier reproduzieren, an deinem Code habe ich außer Filter auch nichts geändert. Das mit dem Punkt im Dateinamen kann ich auch nachvollziehen
Win8.1 64bit/ O365Business 32bit (neueste Updates)
Hallöchen,
wie gesagt, Filter ist eine Methode von VBA (z.B. für Arrays) und sollte daher nicht als Variablenname benutzt werden.
Man kann in den Code ja auch noch eine Meldung einbauen, wenn die Zelle mal leer sein sollte:
Code:
Sub Wolfgang()
Dim sFilter As String, Datei As String, Speichern
Datei = ActiveSheet.Range("DatName")
If Datei = "" Then MsgBox "Kein Eintrag in Zelle " & ActiveSheet.Range("DatName").Address
sFilter = "Excel Files (*.xlsm), *.xlsm"
speichern = Application.GetSaveAsFilename(Datei, sFilter)
If Speichern <> False Then
ActiveWorkbook.SaveAs Filename:=Speichern, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If
End Sub
Das mit dem Punkt sollte eigentlich auch funktionieren, vielleicht hängt es mit "Filter" zusammen. Windows jedenfalls hat da nichts dagegen.
Hallo Andre
Vielen Dank für deine Mühe und Hilfe.
Der Punkt ist eine Irritation.
Das Makro funktioniert, aber sobald der Punkt vorkommt bleibt die Zeile leer.
Gruß Wolfgang