Hallo Excelfreund,
ich weiß, es gibt schon genug anfragen diesbezüglich. Ich habe auch viele durchgelesen, aber keine hat mir geholfen. Deshalb meine bitte, könnt Ihr mal folgenden Code durchsehen, ob da ein Fehler drin ist (bitte nicht lachen, ich habe nun mal nur Vers. 5 auf dem Arbeitsrechner):
Privat Sub Worksheet_Change(AlsWert Ziel Als Bereich)
BlattListe("Angebot").Auswählen
Wenn Bereich("C14") "" Dann
Rufe Abfragespeichern
Ende Wenn
Ende Sub
'
'
Sub Abfragespeichern()
Starten:
Dim n Als ZeichenF
n = EingabeDlg("Bitte geben Sie den Dateinamen ein:")
Wenn n = "" Dann Ende
DieseArbeitsmappe.SpeichernUnter Bereich("B20") & Bereich("B22") & " - " & Bereich("B21") & " - " & n & ".xls"
BlattListe("Angebot").Auswählen
Ende Sub
Wenn ich etas in Zelle C14 eintrage, wird das Makro Abfragespeichern einfach nicht aufgerufen und ich weiß nicht woran das liegt.
Danke und Gruß
Stefan