Office: (Office 2010) If Target.Adress

Hello Again,

Kurze frage, dass Marco macht genau das gegenteil. Wenn ich was reinschreibe, passiert nix, lösche ich denn Text, will er Speichern

If Target.Address = "$F$4:$S$5" Then 'Eingabezellen überwachen auf Änderungen

If Not IsEmpty(Range("F4:S5")) Then 'Prüfen, ob Zelle mit Inhalt

strDatei = "Tageseinteilung" & "_" & Range("F4:S5") & ".xls" 'Dateiname aus Zellinhalten erzeugen

strDatei = Pfad & "" & "Tageseinteilung" & "_" & Range("F4:S5") & ".xls" 'Vollständiger Dateiname

Application.Dialogs(xlDialogSaveAs).Show strDatei 'Datei speichern unter
End If
End If

Mfg

Raiko

 

Hi Raiko,

was ist bei dir F4:S5 - eine verbundene Zelle? Und was willst du eigentlich machen?

Bis später,
Karin

 

Hallo Karin,

Zelle F4:S4 (sorry verschrieben dort oben) sind miteinander verbundene Zellen.
In diesen Feld wird ein Datum Eintragen (halt das erste was an diesen Workbook gemacht werde soll. Damit nun keiner die Master Datei überschreibt, soll es automatisch das: Speichern Unter, Dialog aufrufen und die Datei unter den Namen + Datum abspeichern. Ist eine Tages Einteilung für Mitarbeiter.
Geht alles ganz gut. Nur halt verkehrt herum.
Wenn ich was eintrage passiert nichts, lösche ich den Inhalt (leerr zelle) dann öffnet er den Speichern Unter Dialog.

MfG

Raiko

 

Hi Raiko,

versuche es mal so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strDatei As String
    Dim strPfad As String
    Dim strFilter As String
    Dim varSpeichern As Variant
    If Target.Cells(1).Address = "$F$4" Then
        If Target.Cells(1).Value <> "" Then
            strPfad = "E:\Z_Test\"  '<== Pfad anpassen
            strFilter = "Excel Files (*.xls), *.xls"
            strDatei = "Tageseinteilung" & "_" & Range("F4") & ".xls"
            varSpeichern = Application.GetSaveAsFilename(strPfad & strDatei, strFilter)
            If Not IsNumeric(varSpeichern) Then ThisWorkbook.SaveAs strPfad & strDatei
        End If
    End If
End Sub

Bis später,
Karin

 

Hallo,

danke, hat funktioniert.
Musste den Sub aber an erste Stelle setzen. Sind mehrere im Worksheet change vorhanden.

Mfg

Raiko

 

Hi Raiko,

Das war aus dem Codeschnippsel aus deinem Eröffnungsbeitrag nicht ersichtlich. Außerdem spielt es keine Rolle, an welcher Stelle eine Teilprozedur steht, wenn man es richtig anstellt.

Bis später,
Karin