Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
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
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro soll nur in einer Excel Datei funktionieren

Makro soll nur in einer Excel Datei funktionieren
07.03.2009 16:09:02
Udo
hallo
ein freund hat mir dieses forum hier empfolen, wenn ich mal ein problem mit exel habe.
darum möchte ich hier fragen, ob mir jemand helfen kann.
ich habe eine excal datei mit einem einzigen tabellenblatt.
dafür habe ich mir ein makro gemacht, welches darin auf druck einer tastenkombination etwas tut sozusagen.
wenn ich nun eine andere excel datei gleichzeitig öffne, tut das makro das auch in dieser anderen datei.
das soll es aber garnicht.
wie kann ich es denn hinbekommen, dass das makro nu in der einen excel datei ausgeführt wird ?
also auch dann, wenn ich gleichzeitig noch andere excel dateien geöffnet habe?
geht sowas überhaupt?
mfg udo aus dortmund

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro soll nur in einer Excel Datei funktionieren
07.03.2009 16:33:14
Gerd
Hallo Udo,
sowas in der Art?

Sub a()
ThisWorkbook.Sheets(1).Activate
Cells(1,1).Value= "Tabelle1"
End Sub


Gruß Gerd

AW: Makro soll nur in einer Excel Datei funktionieren
07.03.2009 16:33:19
ransi
HAllo Udo
Versuch mal so:

Sub dein_Makro()
If activeworkbook = thisworkbook then
Dein Code
end if
end sub


ransi

AW: Makro soll nur in einer Excel Datei funktionieren
07.03.2009 16:57:33
Udo
hallo ransi

Sub dein_Makro()
If activeworkbook = thisworkbook then
Dein Code
end if
End Sub


muss ich da denn anstelle von "thisworkbook" noch den namen meiner exce datei einsetzen?
ich frage das, weil ich einen laufzeitfehler 438 bekomme.
mfg udo aus drotmund

Anzeige
AW: Makro soll nur in einer Excel Datei funktionieren
07.03.2009 17:02:56
Gerd
Hallo Udo,
schreibe noch jeweils .Name dahinter.
Gruß Gerd
AW: Makro soll nur in einer Excel Datei funktionieren
07.03.2009 17:04:50
ransi
HAllo Udo
Sorry.
Kommt davon wenn man glaubt "das ist einfach. Das muss ich nicht testen"
Versuch mal mit "is" anstatt "="
Option Explicit




Public Sub test()
    If ActiveWorkbook Is ThisWorkbook Then
        MsgBox "Alles ist gut"
        'Hier kommt dein Code
        Else:
        MsgBox "Jetzt Soll der Code nicht laufen"
        Exit Sub
    End If
End Sub

ransi
Anzeige
AW: Makro soll nur in einer Excel Datei funktionieren
07.03.2009 17:29:55
Udo
hallo nochmal
leider will das immer noch nicht funktionieren.
ich zeige mal hier meinen bisherigen makro code:
Sub DoppelTest()
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
If Application.WorksheetFunction.CountIf(Range("A:A"), Range("A65536").End(xlUp)) > 1 _
Then Selection.ClearContents 'Range("A65536").End(xlUp).ClearContents
End Sub


dieser sorgt dafür, dass, wenn ich mit strg+v etas aus der zwischenablage einfüge, erstmal geprüft wird, ob der string schon in der liste steht.
und es wird dann nur eingefügt, wenn er eben noch nicht drin steht.
so, wenn ich dich nun richtig verstehe, müsste der code ja nun so lauten:
Option Explicit


Public Sub DoppelTest()
If ActiveWorkbook Is ThisWorkbook Then
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
If Application.WorksheetFunction.CountIf(Range("A:A"), Range("A65536").End(xlUp)) > 1 _
Then Selection.ClearContents 'Range("A65536").End(xlUp).ClearContents
Else:
Exit Sub
End If
End Sub


richtig?
mfg udo aus dortmund

Anzeige
Richtig! (owT)
07.03.2009 21:47:38
Renee

300 Forumthreads zu ähnlichen Themen

Makro "alles rückgängig machen"
emem2404

Hallo Leute,
ich bräuchte ein Makrobefehl, mit dem ich alle getätigten Änderungen (egal wie viele das waren) rückgängig machen kann und die Datei wieder in einen "jungfräulichen" Zustand zurück versetzE.
Derzeit speichere ich Daten weg und leere alle Eingabefelder. Wenn aber aus irgende...
09.06.2010 08:00:22
Thread-ID: 1160945
3 Beiträge
Anzeige
Makro rückgängig machen
mike49

Hallo zusammen,
wie kann man ein ausgeführtes Makro rückgänig machen. Also ein Undo einfügen oder so?
Gruß
mike49
11.02.2013 17:49:18
Thread-ID: 1298754
23 Beiträge
Makro Befehl Rückgängig machen
Damian89

Hi,
ich habe folgendes Makro in meiner Excel Datei:
Habe gesehen dass es schwierig ist einen Makro Befehl Rückgängig zu machen. Deshalb wollte ich hier mal nachfragen ob mir jmd hier weiterhelfen kann.
Makro:
Sub NurWeltdepot() With Worksheets("Transaktionen") .Range("A16:I35,A3...
02.11.2014 12:25:48
Thread-ID: 1389912
4 Beiträge
Anzeige
Eingabe rückgängig machen (auch Mehrfacheingabe)
Peter

Guten Tag
In einem Bereich in der Tabelle "Zahlen" gibt es den benannten Bereich "rrEingabe" (mehrere Zellen einer Spalte). Dort soll bei der Eingabe von negativen Werten die Eingabe rückgängig gemacht werden und eine Messagebox erscheinen.
Das klappt so weit mit untenstehendem Code. We...
22.08.2013 16:45:27
Thread-ID: 1328042
5 Beiträge
Eingaben in TextBoxen rückgängig machen
Tobi

Hallo Zusammen,
ich bitte mal wieder um Eure Hilfe, da ich alleine aufgrund fehlender Kenntnisse nicht weiterkomme.
Ich habe in meiner UF einen CommandButton11 “Abbrechen“. Damit setze ich diverse andere CommandButtons, ListBox etc wieder von Enabled = False auf Enabled = True.
In d...
22.02.2019 16:02:52
Thread-ID: 1677212
2 Beiträge
Ganzer Bildschirm nur in einer Arbeitsmappe
Manuel

Hallo,ich habe eine Arbeitsmappe mit der Ansicht "Ganzer Bildschirm".
Von dieser Arbeitsmappe aus möchte ich andere Arbeitsmappen
aufrufen, die aber die ganz normale Ansicht haben sollen. Gibt es eine Möglichkeit die Ansicht "Ganzer Bildschirm" an eine Arbeitsmappe zu binden? Die Funktio...
17.02.2003 10:13:06
Thread-ID: 220088
4 Beiträge
Fullscreen nur in meiner Arbeitsmappe
Tobias Müller
Hallo Ihr,
hab noch ein paar Fragen auf Lager:
Ist es möglich per VBA einen Code zu erstellen, der in meine aktuelle Arbeitsmappe im Vollbildmodus darstellt und diesen nach dem Schliessen zurücksetzt, ich hab es nur geschafft, dass meine Arbeitsmappe zwar im Vollbild dargestellt war, dies je...
11.08.2003 13:36:37
Thread-ID: 292869
5 Beiträge
nur Inhalte einer Datei abspeichern
Kathrin

Hallo Zusammen!
Ich bräuchte mal wieder Eure Hilfe.
Ich möchte gerne eine Datei unter einem anderen Namen abspeichern, allerdings sollen nur die Werte abgespeichert werden, da sonst zu viel Speicher belegt wird.
Ich könnte ja einfach eine neue Datei aufmachen und von jedem Tabelle...
28.11.2005 13:52:38
Thread-ID: 701780
7 Beiträge

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
3
22
3
6
4
1
3
4
6
1
4
3
6
1
2
9
23
3
1
4
4
1
5
3