Makro Problem

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Makro Problem von: Hans - Georg
Geschrieben am: 01.03.2005 13:54:12

Hallo ich habe mir folgendes Makro aus der Recherche geangelt und für meine Zwecke umgeschrieben.


Private Sub CommandButton1_Click()
Sub Speicherung()
Dim SpeicherName As String
SpeicherName = "D:\Peters-Party-Service\Party - Service\Gespeicherte Dateien\Angebote\" & Range("A9") & "_" & Range("U3") & "_" & Range("U4")
ActiveWorkbook.SaveAs Filename:=SpeicherName
End Sub


Das Makro wurde einem Schaltbutton zugewiesen, aber ich bekomme immer die Fehlermeldung: Fehler beim Kompelieren, Mehrdeutiger Name "Speicherung"

Ach so, die Datei ist eine .XLT und soll nach dem Speichern als eine .XLS gespeichert werden, das fuzzt auch nicht so ganz.

Wer kann mir weiterhelfen ??
Vielen Dank
Hans-Georg
Bild


Betrifft: AW: Makro Problem von: Klaus-Dieter
Geschrieben am: 01.03.2005 13:59:42

Hallo Hans-Georg,

was mir auffällt sind zwei Aufrufe einer Sub. Das geht sicher nicht. Nimm einfach mal diese Zeile: Sub Speicherung() raus, dann sollte es gehen.


Gruß Klaus-Dieter








Bild


Betrifft: AW: Makro Problem von: c0bRa
Geschrieben am: 01.03.2005 14:02:14

hallo

wenn er in deiner funktion das sub speicherung() aufrufen soll, dann bitte mit call speicherung()
Das Forum lebt auch von Rückmeldungen...
c0bRa


Bild


Betrifft: noch nicht alles ! von: Hans - Georg
Geschrieben am: 01.03.2005 14:05:05

Hallo Klaus-Dieter,
inzwischen habe ich Deinen Tip umgesetzt und es funktioniert tadellos.
Leider hab ich noch das Problem mit der Dateiendung also beim Speichern als .XLS
Die Datei wird zwar abgespeichert, aber die Dateiendung fehlt, so dass ich von dort aus nicht ohne weiteres die Datei öffnen kann.

Vielen Dank

Hans-Georg


Bild


Betrifft: AW: noch nicht alles ! von: c0bRa
Geschrieben am: 01.03.2005 14:08:36

so etwa?
...
SpeicherName = "D:\Peters-Party-Service\Party - Service\Gespeicherte Dateien\Angebote\" & Range("A9") & "_" & Range("U3") & "_" & Range("U4") & ".xls"
ActiveWorkbook.SaveAs Filename:=SpeicherName
End Sub
Das Forum lebt auch von Rückmeldungen...
c0bRa


Bild


Betrifft: AW: Makro Problem von: Klaus-Dieter
Geschrieben am: 01.03.2005 14:10:02

Hallo Hans-Georg,

versuche es mal so:


Private Sub CommandButton1_Click()
Dim SpeicherName As String
SpeicherName = "D:\Peters-Party-Service\Party - Service\Gespeicherte Dateien\Angebote\" & _
Range("A9") & "_" & Range("U3") & "_" & Range("U4") & ".xls"
ActiveWorkbook.SaveAs FileName:=SpeicherName
End Sub




Gruß Klaus-Dieter




Bild


Betrifft: ihr seit unschlagbar ! super ! o. T. von: Hans - Georg
Geschrieben am: 01.03.2005 14:14:07




 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro Problem"