Hey,
danke für die Hilfe.
Habe es nun mit einem Makro realisiert. Habe nicht gespickt, habe mich da nicht
wirklich zurecht gefunden in den Makros vom Wurzel-Manager *lach, schon sehr
Komplexes Programm, aber Spitze

.
Code:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
'Sub Auto_open()
'Dim Antwort
'Antwort = MsgBox("Soll die Aktuelle Preisliste heruntergeladen werden?", 4, "Frage")
' If Antwort = vbYes Then
' Dim strURL As String, strLokal As String
' strURL = "https://docs.google.com/spreadsheet/pub?key=0AvqJa4V4oi0YdDJNSUZ2UXQwdjdDN0NsOFhTZlloaEE&gid=2&single=true&output=xls" 'Dateipfad
' strLokal = "C:\Users\Pockydor\Desktop\Wurzelimperium\Server46.xls" 'Speicherort
'
' Else
'
' End If
'
' If DownloadFile(strURL, strLokal) = True Then
' MsgBox "Die Aktuelle Preisliste wurde heruntergeladen!"
' End If
'End Sub
Sub Preisliste_laden_manuel()
Dim Antwort
Antwort = MsgBox("Soll die Aktuelle Preisliste heruntergeladen werden?", 4, "Frage")
If Antwort = vbYes Then
Dim strURL As String, strLokal As String
strURL = "https://docs.google.com/spreadsheet/pub?key=0AvqJa4V4oi0YdDJNSUZ2UXQwdjdDN0NsOFhTZlloaEE&gid=2&single=true&output=xls" 'Dateipfad
strLokal = "C:\Users\Pockydor\Desktop\Wurzelimperium\Server46.xls" 'Speicherort
Else
End If
If DownloadFile(strURL, strLokal) = True Then
MsgBox "Die Aktuelle Preisliste wurde heruntergeladen!"
End If
End Sub
Zurzeit habe ich diese möglichkeit gewählt, Beim Start ausführen habe ich erstmal deaktiviert.
Aber ich kann wunderbar über einen Button die Preisliste als XLS laden und abspeichern.
In meiner Excel datei Importiere ich einfach die Preise wie folgt:
Code:
='C:\Users\Pockydor\Desktop\Wurzelimperium\[Server46.xls]Aktuell'!C3
usw.
Vielleicht hilft es auch einigen anderen

Nun nimmt meine Wurzel-Verwaltung form an *lach
Danke nochmal für die Hilfe.
Gruß
Björn
PS: Über andere vorschläge würde ich mich natürlich freuen
