Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei speichern und Verknüpfung erstellen

Datei speichern und Verknüpfung erstellen
28.07.2019 14:33:37
Dieter
Hallo zusammen,
ich benötige wieder mal Euere Unterstützung.
Ich möchte eine geöffnete Exceldatei in einem bestimmten Ordner speichern und gleichzeitig eine Verknüpfung zur gespeicherten Datei erstellen.
Der Speicherort wird mit einer Formel in Tabelle 2 Zelle C4 ermittelt.
Der Speicherort für die Verknüpfungen ist immer derselbe z.B. C:\NeuerOrdner\Ablage\Verknüpfungen
Danke für Eure Hilfe
Viele Grüße
Dieter

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 15:11:30
Hajo_Zi
Hallo Dieter,
zuerst die Quelle schließen, dann wird Ordner eingetragen.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 17:32:15
Dieter
Hallo Hajo,
sorry, aber ich weiß jetzt nicht was Du damit meinst.
Gruß
Dieter
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 18:24:32
Hajo_Zi
Hallo Dieter,
bei mir steht in der Zelle.

Tabelle3
 C
8Herber.de

verwendete Formeln
Zelle Formel Bereich N/A
C8=[Bildschirm.xlsm]Statistik!$A$3  


aber mir scheint ich habe das flasch interpretiert, was vioelleicht auch damit zusammenhängt, das ich nicht auf fremde Rechnerr schaue.
Gruß Hajo
Anzeige
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 20:00:39
Dieter
Hallo Hajo,
Danke schön!
Gruß
Dieter
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 16:38:49
Nepumuk
Hallo Dieter,
wie soll diese Aktion gestartet werden?
Gruß
Nepumuk
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 17:28:29
Dieter
Hallo Nepomuk,
wenn alle Daten ins Tabellenblatt eingetragen sind, wird ein Button "Speichern und schließen" betätigt.
Gruß
Dieter
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 18:38:39
Nepumuk
Hallo Dieter,
teste mal:
Option Explicit

Public Sub Speichern()
    
    Dim objWSHShell As Object, objShortcut As Object
    Dim strFielname As String
    
    With ThisWorkbook
        Call .SaveAs(Filename:=.Worksheets("Tabelle2").Cells(4, 3).Text, _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled)
        strFielname = Left$(.Name, InStrRev(.Name, ".") - 1)
    End With
    
    Set objWSHShell = CreateObject("WScript.Shell")
    Set objShortcut = objWSHShell.CreateShortcut("C:\NeuerOrdner\Ablage\Verknüpfungen\" & strFielname & ".lnk")
    
    With objShortcut
        .Targetpath = ThisWorkbook.FullName
        .WorkingDirectory = ThisWorkbook.Path
        .WindowStyle = vbMaximizedFocus
        .IconLocation = Application.Path & "\excel.exe, 0"
        .Save
    End With
    
    Set objShortcut = Nothing
    Set objWSHShell = Nothing
    
End Sub

Gruß
Nepumuk
Anzeige
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 18:38:43
Nepumuk
Hallo Dieter,
teste mal:
Option Explicit

Public Sub Speichern()
    
    Dim objWSHShell As Object, objShortcut As Object
    Dim strFielname As String
    
    With ThisWorkbook
        Call .SaveAs(Filename:=.Worksheets("Tabelle2").Cells(4, 3).Text, _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled)
        strFielname = Left$(.Name, InStrRev(.Name, ".") - 1)
    End With
    
    Set objWSHShell = CreateObject("WScript.Shell")
    Set objShortcut = objWSHShell.CreateShortcut("C:\NeuerOrdner\Ablage\Verknüpfungen\" & strFielname & ".lnk")
    
    With objShortcut
        .Targetpath = ThisWorkbook.FullName
        .WorkingDirectory = ThisWorkbook.Path
        .WindowStyle = vbMaximizedFocus
        .IconLocation = Application.Path & "\excel.exe, 0"
        .Save
    End With
    
    Set objShortcut = Nothing
    Set objWSHShell = Nothing
    
End Sub

Gruß
Nepumuk
Anzeige
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 19:03:41
Dieter
Hallo Nepomuk,
funktioniert leider nicht.
Call .SaveAs(Filename:=.Worksheets("Tabelle2").Cells(4, 4).Text, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled)
Hier kommt ein Laufzeitfehler "9"
Index außerhalb des gültigen Bereichs
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 19:06:24
Nepumuk
Hallo Dieter,
gibt es denn in der Mappe eine Tabelle mit dem Namen Tabelle2?
Gruß
Nepumuk
AW: Datei speichern und Verknüpfung erstellen
28.07.2019 20:02:44
Dieter
Hallo Nepumuk,
du hast recht, ich hab aus Versehen das Tabellenblatt falsch benannt. (Da fehlte noch ein "L".
Jetzt funktionierts auch!
Vielen Dank nochmal
Gruß
Dieter

298 Forumthreads zu ähnlichen Themen

Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Dateiinhalt mit Hyperlinks in Excel ausgeben
PaMa

Guten Tag zusammen
Ich hoffe, Ihr VBA - Profis könnt mich hier bei meiner aktuellen Problemstellung unterstützen.
Und zwar hab ich folgendes vor:
in einer Excel - Arbeitsmappe hab ich einen Knopf
Wenn ich auf diesen Knopf klicke so soll folgendes geschehen:
- Der Dateiinhalt...
23.01.2009 07:15:00
Thread-ID: 1042795
4 Beiträge
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
Anzeige
Datei mit Hyperlink
anke2245

Hallo, lieber Excelfreunde,
ich möchte eine Datei mit Hyperlinks per mail weitergeben.Die Datei kommt an, es fehlt aber der Hyperlink.
Mache ich etwas falsch, oder geht das grundsätzlich nicht ?
Danke " Anke "
28.04.2009 17:14:23
Thread-ID: 1071688
9 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
sendmail mit Link zu Datei klappt nicht
chris

Hallo VBA Profis,
ich habe unten einen VBA code mit dem ich gerne eine Mail aus Excel schicken möchte.
das klappt auch wunderbar.nur leider bekomme ich es nicht hin das es mir den Pfad zur Datei als Link in die Mail einfügt so das Sie der empfänger nur noch anklicken muss.Kann mir jeman...
10.09.2009 13:11:31
Thread-ID: 1101700
2 Beiträge
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Tabelle per Mail versenden
liese

Hallo,
habe folgendes Anliegen.
Ich möchte gerne, wenn eine Mappe geöffnet wird,
eine bestimmte Tabelle im Hintergrund mit dem
Standardmailprogramm ohne Rückfragen versenden.
Wie geht das.
Danke schon mal für Hilfe.
Viele Grüsse
Anneliese
01.01.1970 00:00:00
Thread-ID: 1139930
37 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
3
8
1
8
3
1
3
36
3
1
2
3
2
2
6
6
4
3
1
3
2
5
3