Makro Problem

• Makro Problem von Hans - Georg vom 01.03.2005 13:54:12
• AW: Makro Problem - von Klaus-Dieter am 01.03.2005 13:59:42
  • AW: Makro Problem - von c0bRa am 01.03.2005 14:02:14
  • noch nicht alles ! - von Hans - Georg am 01.03.2005 14:05:05
    • AW: noch nicht alles ! - von c0bRa am 01.03.2005 14:08:36
• AW: Makro Problem - von Klaus-Dieter am 01.03.2005 14:10:02
  • ihr seit unschlagbar ! super ! o. T. - von Hans - Georg am 01.03.2005 14:14:07

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


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










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




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




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




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






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

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