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"