Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bezug der Schaltfläche falsch

Forumthread: Bezug der Schaltfläche falsch

Bezug der Schaltfläche falsch
Günter
Hallo Zusammen,
ich habe folgendes Problem.
In einem Tabellenblatt einer Exceldatei habe ich Schalter mit zugewiesenen Makros, die in Modulen stehen.
Wenn diese Exceldatei im Explorer umbenannt wird und anschließen geöffnet wird fragt das Programm nach Aktualisieren dieser Verknüpfungen, was dann auch manuell funktioniert.
Öffne ich die Originaldatei und "speichere unter", kommt keine Meldung. Dies liegt sicher daran, dass diese "Bezüge" mit wandern.
Was kann ich tun, dass im ersten Fall (Explorer umbenen) die Bezüge ebenfalls automatisch in der neuen (umbenannten) Datei genommen werden?
Danke für Eure Hilfe.
Gruß Günter
Anzeige
AW: Bezug der Schaltfläche falsch
21.05.2012 11:37:34
Rolf
Hallo Günter,
statt "Umbenennen" (im Explorer) würde ich "Speichern Unter..." wählen. Dann sollte es eigentlich
klappen.
Gruß, Rolf
AW: Bezug der Schaltfläche falsch
21.05.2012 11:43:54
Günter
Hallo Rolf,
ja, Du hast recht. Dann funktioniert es.
Manchmal passiert es bei den Anwendern, dass die Datei im Explorer umbennen.
Ich möchte, dass es dann auch funktioniert.
Eine Idee?
Gruß Günter
Anzeige
AW: Bezug der Schaltfläche falsch
21.05.2012 14:35:26
Rolf
Hallo Günter,
ich hab da was gefunden; ob es dir weiterhilft, weiß ich allerdings nicht. Habe es noch nicht ausprobiert.
Schau mal bei VBA-Hilfe unter workbooks.updatelinks nach.
Gruß Rolf
AW: Bezug der Schaltfläche falsch
21.05.2012 15:15:46
Günter
Hallo Rolf,
super Tip.
Der Witz ist, dass das erstmal noch die Abfrage kommt und sie entsprechend bestätigt werden muss.
Danach wird bei weiteren Umbennungen nicht mehr gefragt.
Nochmals Danke.
Gruß Günter
Anzeige
AW: Bezug der Schaltfläche falsch
21.05.2012 20:03:51
Rolf
Hallo Günter,
dann weiß ich auch nicht weiter.
Gruß, Rolf
AW: Bezug der Schaltfläche falsch
21.05.2012 21:23:03
Rolf
Hallo Günter,
mir ist doch noch etwas eingefallen.
Brutale Lösung (Workbook_Open und Workbook_BeforeClose) 
Private Sub Workbook_Open()
Dim wkb As String
wkb = ActiveWorkbook.Name
Application.DisplayAlerts = False
If Not wkb = "Input.xlsm" Then
ActiveWorkbook.SaveAs "Input.xlsm"
MsgBox "Die Datei wurde unter ihrem urspünglichen Namen gespeichert." & _
vbCrLf & vbCrLf & "Wenn Sie diese Datei schließen, wird sie gleichzeitig " & _
"unter 'Ihrem' Dateinamen gespeichert. Also, keine Angst!"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'...jetzt musst du die "Drohung" in der msgbox nur noch realisieren.
End Sub

Anzeige
AW: Bezug der Schaltfläche falsch
21.05.2012 21:50:54
Günter
Hallo Rolf,
danke für Dein neuer Tip.
Er funtioniert.
Noch einen schönen Abend.
Gruß Günter
AW: Bezug der Schaltfläche falsch
22.05.2012 09:59:11
Rolf
Hallo Günter,
Du wirst feststellen, dass es (mein Makro) so nicht funktioniert.
Mea culpa, mea culpa, mea maxima culpa; Asche auf mein Haupt, 'ne ganze Karre voll!
Gestern, kurz bevor ich mich in Morpheus' Arme begab, fiel es mir wie Schuppen aus den Haaren. "Du Depp, (ich bin mit mir per Du) du hättest die VBA als Public-Version mit einer öffentlichen Variablen (wkb) deklarieren müssen.
Dann sieht es so aus:
Option Explicit
Public wkb As String 
Public Sub Workbook_Open()
wkb = ActiveWorkbook.Name
Application.DisplayAlerts = False
If Not wkb = "Test4.xlsm" Then
ActiveWorkbook.SaveAs "Test4.xlsm"
MsgBox "Die Datei wurde mit dem Namen" & vbCrLf & wkb & "gespeichert." & _
vbCrLf & vbCrLf & "Wenn Sie die aktuelle Datei (Test4.xlsm) schließen, " & _
"wird sie gleichzeitig als " & wkb & " gespeichert. Also, keine Angst!"
Else
Exit Sub
End If
Application.DisplayAlerts = True
End Sub

--------------------------------------------------------------------------------------------- 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs "Test4.xlsm"
MsgBox "Die Datei wurde gespeichert als" & vbCrLf & vbCrLf & _
"a) Test4.xlsm" & vbCrLf & _
"b) " & wkb
Application.DisplayAlerts = True
End Sub
Kannst du damit etwas anfangen?
Gruß, Rolf
Anzeige
AW: Bezug der Schaltfläche falsch
22.05.2012 10:58:11
Günter
Hallo Rolf,
vielen Dank für Deine Bemühungen.
Wie schon in meiner früheren Anwort geschrieben, scheint es in der ExcelDatei eine "Historie" zu geben.
D.h. wenn die Datei im Eplorer umbenannt wird, kommt beim ersten Öffnen die Meldung bzgl. altualisieren der Verknüpfungen.
Gehe ich dann in die Optionen der geöffneten Maske und wähle dort "nicht aktualisieren ..." aus, merkt sich das Programm dies. Nachdem Speichern, Schließen und erneuten Umbennen im Expolrer kommt keine Meldung mehr beim Öffnen. D.h. die Verknüpfungen bleiben für alle Zeiten und alle Dateinamen statisch.
Gruß Günter
Anzeige
AW: "nicht aktualisieren"
23.05.2012 15:05:19
Rolf
Hi Günter,
du solltest lieber "Werte aktualisieren" bzw. "Quelle Ändern..." auswählen!
(ggf. mit VBA)
Gruß, Rolf
nicht nachvollziehbar
21.05.2012 13:19:33
Rudi
Hallo,
das spielt bei mir gar keine Rolle.
Oder sind Button und Code in verschiedenen Mappen?
Gruß
Rudi
AW: nicht nachvollziehbar
21.05.2012 14:00:59
Günter
Hallo Rudi,
ich habe Buttons in verschiedenen Tabellenblättern, die mit dem gleichen Makro verknüpft sind.
Das Makro steht in einem gesonderten Modul und ist als "private" deklariert.
Gruß Günter
Anzeige
;

Forumthreads zu verwandten Themen

Gesperrte Schaltfläche
Christian

Hallo,
bin absoluter VBA- Anfänger und habe folgende Frage:
Ich möchte gerne eine Schaltfläche zur Ausführung eines Makros erstellen, die beim Öffnen der Datei verfügbar ist. Dies soll jedoch nicht über eine Schaltfläche aus der Sysmbolleiste erfolgen, da diese Schaltfläche in einem ung...
21.06.2009 10:21:58
Thread-ID: 1083195
5 Beiträge
Anzeige
Schaltflächen: Format-Bug
Peter

Hallo Leute,
in mein Programm habe ich diverse Befehlsschaltflächen eingebaut. Leider kommt es hin und wieder vor, dass das Textformat der Schaltfläche (Caption) durch die Schaltflächenbetätigung stetig größer bzw. kleiner wird. Hin und wieder vergrößert bzw. verkleinert sich auch die gesam...
25.06.2009 14:10:20
Thread-ID: 1084338
3 Beiträge
Schaltfläche und Vergrößerungsfaktor
Wolfgang

Hallo liebe Experten,
ich habe zwei Fragen:
1. Früher konnte ich die excel-Schaltflächen selbst zeichnen, heute gelingt mir das nicht mehr. Geht das mit Office 2003 noch?
2. Kann ich den default-Wert der Vergrößerung (in der Symbolleiste: Standard) der auf 100% festliegt ändern? Ich...
26.06.2009 20:26:11
Thread-ID: 1084657
5 Beiträge
Ausrichtung Befehlsschaltfläche
berni

Liebe Excel-lenzen!
Ich hatte einmal den Short-Cut intus, aber leider in der zwischenzeit wieder vergessen.
Also: Wenn ich untereinander verschiedene Schaltflächen aus der Formularsammlung untereinander aufgelistet habe, gab es doch irgendwie eine Möglichkeit, per Shortcut die unteren a...
30.06.2009 19:09:55
Thread-ID: 1085343
3 Beiträge
Gif auf Schaltfläche
ReSt

Guten Morgen
Da hätte ich mal eine Frage. Kann man auf eine Activ X-Schaltfläche eine gif-Animation legen?
Bis jetzt hat sich bei mir noch nichts bewegt.
Gruss Reto
05.07.2009 10:33:28
Thread-ID: 1086448
5 Beiträge
Schaltflächenmakro
Michael

Servus,
ich bin noch blutiger Excel/VBA Anfänger und will mir ein paar kleine Ecxel Makros bauen. Ich habe eine Tabelle mit zwei Schaltflächen. Schalftfläche "Ordner" soll prüfen ob im selben Verzeichnis wie der Excel Datei bereits ein Ordner mit dem Name aus den Spalten A "Artikel" und B "...
07.07.2009 13:09:26
Thread-ID: 1086922
2 Beiträge
Anzeige
Makro ausführen mit Schaltfläche
Alex

Hi @ all,
ich habe mal wieder ein Problem.
Und zwar hab ich folgendes Makro in einer Vorlage:
Sub FilternKopierenTGA() Dim rngAct As Range With Worksheets("TGA") .Cells.Clear Range("N1").AutoFilter _ Field:=14, Criteria1:="TGA" 'Filtern Spalte N nach TGA Set rngAct = Range("A2"...
08.07.2009 13:38:12
Thread-ID: 1087178
5 Beiträge
Makroschaltfläche
Hübner

Hallo liebe Helfer,
ich habe gleich 2 Probleme, sicherlich könnt Ihr mir wieder helfen.
Thema: Dateienumstellung von 2003 auf 2007
1.
gibt es eine Möglichkeit in 2007 das beim Aufzeichnen von einem Makro eine vorhandene Schaltfläche (die mit einem Makro hinterlegt ist, erstellt...
14.07.2009 21:02:25
Thread-ID: 1088359
2 Beiträge
Anzeige
Schaltfläche auszeichnen
Hübner

Hallo liebe Helfer,
ich habe ein Probleme, sicherlich könnt Ihr mir wieder helfen.
gibt es eine Möglichkeit in 2007 das beim Aufzeichnen von einem Makro eine vorhandene Schaltfläche (die mit einem Makro hinterlegt ist, erstellt mit 2003)mit aufgezeichnet wird?
In 2003 ging dies prob...
14.07.2009 14:31:23
Thread-ID: 1088468
7 Beiträge
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
ListFilRange bei Befehlsschaltflächen
Pfannen-Meister

Guten Tag,
nachdem mir hier heute Vormittag schon geholfen wurde, müßte ich nochmals Hilfe in Anspruch nehmen:
Wenn ich mit Befehlsschaltflächen arbeite, so kann ich im Feld "ListFilRange" eine bestimmte Menge an Excel-Feldern auswählen, deren Inhalt mit Hilfe der Befehlsschaltfläche s...
06.08.2009 15:23:31
Thread-ID: 1094074
3 Beiträge
Anzeige
Schaltflächen verschwinden
Fritz

Hallo,
ich habe das Problem, dass nachdem eine Excel-Tabelle Monatelang in einer Firmenumgebung einwandfrei funktioniert hat (als Freigegebenes Dokument mit einigen Makros) nun plötzlich beim anwenden des Autofilters wahllos Schaltflächen "verschwinden" lässt.
Das Dokument wird von ver...
17.08.2009 13:06:59
Thread-ID: 1096418
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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