VBA unter Excel 2016

[hddiesel]

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

[Willie017]

hallo

was ist denn so schwer daran, Schauans Rat zu befolgen und sFilter anstatt Filter zu nehmen?

[hddiesel]

Hallo Willie,

hilft ihm auch nicht weiter, wenn Range("DatName").Value leer ist.
Geht bei mir mit beiden Varianten, sowohl mit "sFilter" und "Filter"

[Willie017]

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

[Willie017]

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

[Wolfgang_Virnich]

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

[hddiesel]

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

[Willie017]

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)

[schauan]

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.

[Wolfgang_Virnich]

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