|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
01.06.2017 09:42:16 |
PSCH |
|
|
|
04.06.2017 15:05:42 |
BigBen |
|
|
|
04.06.2017 19:16:17 |
BigBen |
|
|
|
06.06.2017 07:55:04 |
Gast47675 |
|
|
 Neue Excel Datei öffnen und Button rein kopieren |
06.06.2017 07:58:28 |
PSCH |
|
|
|
06.06.2017 13:51:27 |
BigBen |
|
|
|
06.06.2017 15:49:55 |
PSCH |
|
|
|
07.06.2017 06:13:30 |
BigBen |
|
|
|
07.06.2017 08:43:20 |
PSCH |
|
|
|
07.06.2017 14:51:57 |
BigBen |
|
|
|
07.06.2017 15:55:42 |
PSCH |
|
|
|
08.06.2017 13:35:00 |
BigBen |
|
|
|
08.06.2017 20:28:57 |
PSCH |
|
|
Von:
PSCH |
Datum:
06.06.2017 07:58:28 |
Views:
651 |
Rating:
|
Antwort:
|
Thema:
Neue Excel Datei öffnen und Button rein kopieren |
|
Hallo Erstmals vielen Dank für ihre Hilfe aber ich habe leider eine Problem mit ihrem Code. Und zwar habe ich eine Meldung mit der ich leider nichts anfangen kann. Ich habe den Pfad der Datei abgeändert, muss ich sonst noch irgendwo etwas anpassen?
Die Datei die nachgeladen werden sollte ist auch eine .xlsm Datei kann das noch ein Problem geben?
Function refersToRange(sName As String) As Range
Dim rng As Range
Dim wsh As Worksheet
Dim strRng As String
Dim strItem As Variant
Dim nm As Name
Set nm = ThisWorkbook.Names(sName)!!!!!!
strRng = Right(nm.RefersTo, Len(nm.RefersTo) - 1)
For Each strItem In Split(strRng, ",")
If rng Is Nothing Then
Set rng = Worksheets(1).Range(strItem)
Else
Set rng = Union(rng, Range(strItem))
End If
Next
Set refersToRange = rng
End Function
ich bekomme immer einen verweis auf diesen Code und die Zeile mit den Ausrufezeichen ist Gelb. Ich muss diesen Code verwenden da ich die Datei in unterschiedlichen Ordner belassen muss da sie von mehreren Personen verwendet wird.
Ich hoffe sie können mir nochmals helfen.
Gruss PSCH |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
01.06.2017 09:42:16 |
PSCH |
|
|
|
04.06.2017 15:05:42 |
BigBen |
|
|
|
04.06.2017 19:16:17 |
BigBen |
|
|
|
06.06.2017 07:55:04 |
Gast47675 |
|
|
Neue Excel Datei öffnen und Button rein kopieren |
06.06.2017 07:58:28 |
PSCH |
|
|
|
06.06.2017 13:51:27 |
BigBen |
|
|
|
06.06.2017 15:49:55 |
PSCH |
|
|
|
07.06.2017 06:13:30 |
BigBen |
|
|
|
07.06.2017 08:43:20 |
PSCH |
|
|
|
07.06.2017 14:51:57 |
BigBen |
|
|
|
07.06.2017 15:55:42 |
PSCH |
|
|
|
08.06.2017 13:35:00 |
BigBen |
|
|
|
08.06.2017 20:28:57 |
PSCH |
|
|