Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Marko in aktivem Workbook / Worksheet ausführen

Marko in aktivem Workbook / Worksheet ausführen
20.02.2007 11:29:17
Peter
Guten Tag
Ich bin grad nicht fündig geworden.
Was muss ich meinem Code voranstellen, dass dieser bei Aufruf immer in der gerade aktiven Tabelle ausgeführt wird?
Danke für Rückmeldung.
Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Marko in aktivem Workbook / Worksheet ausführe
20.02.2007 11:36:00
ronny
hallo peter,
du brauchst nichts voranstellen. du mußt nur dafür sorgen, daß zu bearbeitende bereiche allgemein angesprochen werden und nicht auf ein bestimmtes sheet anzuwenden sind. statt sheets("blabla"). solltest du active sheet oder ähnliches verwenden.
wenn das makro in einem modul liegt kannst du es von jedem sheet aus starten.
gruß ronny
AW: Marko in aktivem Workbook / Worksheet ausführen
20.02.2007 11:38:24
IngGi
Hallo Peter,
ActiveSheet.Range("A1") = "blablabla"
bezieht sich immer auf das aktive Tabellenblatt. Ein "ActiveSheet" voranzustellen ist allerdings nur erforderlich, wenn dein Code sich im Klassenmodul eines Tabellenblattes befindet. 
Range("A1") = "blablabla"
bezieht sich im Modul eines Tabellenblattes auf dieses Tabellenblatt aber in einem allgemeinen Modul auf das aktive Tabellenblatt. Mit vorangestelltem "ActiveSheet" bist du auf jeden Fall auf der sicheren Seite.
Gruß Ingolf
Anzeige
AW: Marko in aktivem Workbook / Worksheet ausführen
20.02.2007 22:11:42
Peter
Hallo Ingo
Vielen Dank für deine Rückmeldung. Ich muss meine Frage noch etwas präzisieren.
Ausgangslage:
Ich habe ein Makro aufgezeichnet, das mir eine Tabelle modifiziert. Das Makro habe ich in einem separten Workbook abgelegt.
Nun muss ich die gleiche Aktion in rund 20 Tabellen (die in unterschiedlichen Workbooks sind), ausführen.
Ich verstehe nicht ganz, was ich vorkehren muss, dass der Code auch im richtigen Ort ausgeführt wird. Beispielsweise rufe ich anfangs ein weiteres Makro auf, das am gleichen Ort, wie das aufrufende Makro abgespeichert ist.
Anschliessend will ich ein Makro aufrufen, das im Workbook gespeichert wird, der gerade bearbeitet wird.
Wie stelle ich beispielsweise sicher, dass ich die richtigen Subroutinen aufrufe?
Vielen Dank für eine Rückmeldung
Peter
Option Explicit

Sub Makro1()
' Tastenkombination: Strg+i
Call Makro1                 'aus Workbook, in dem das Makro abgespeichert ist
Call Makro2                 'aus Workbook , welches beim Start des Makros aktiv ist
Columns("J:J").Select
Application.Goto Reference:="C10"
Selection.Insert Shift:=xlToRight
Application.Goto Reference:="R3C11"
ActiveCell.FormulaR1C1 = "'2006"
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
End With
Application.Goto Reference:="R5C11"
ActiveCell.FormulaR1C1 = "=R[9]C"
End Sub

Anzeige
AW: Marko in aktivem Workbook / Worksheet ausführe
20.02.2007 22:29:13
IngGi
Hallo Peter,
Run "DateinameOhneEndung!Makroname"
Nach vorigem Muster wird mit folgender Zeile das Makro "Berechnen" in der Arbeitsmappe "Umsatz.xls" gestartet
Run "Umsatz!Berechnen"
Um das Makro "Berechnen" in der aktiven Arbeitsmappe zu starten, nimmst du folgende Zeile:
Run Left(ActiveWorkbook.Name,  Len(ActiveWorkbook)-4) & "!Berechnen"
Gruss Ingolf
AW: Marko in aktivem Workbook / Worksheet ausführe
21.02.2007 07:47:49
Peter
Hallo Ingolf
Das hilft weiter.
Vielen Dank!
Peter

96 Forumthreads zu ähnlichen Themen

Syntax Spalte über Objekt Workbook - Worksheet ...
Peter

...
Guten Tag
Wie kann ich die einen bestimmten Bereich in einer Tabelle mittels Objekt Workbook und Objekt Worksheet ansprechen?
Im nachfolgenden Code funktioniert
With wbZiel.wsTab
nicht.
Danke für eine Antwort.
Gruss, Peter
Sub spaltenbreite2() Dim wbZiel As...
11.12.2008 09:11:14
Thread-ID: 1031920
3 Beiträge
Anzeige
Passwort in Worksheet
Sven

Hi
Wollte mit diesem Code das Blatt entsperren. Leider funktioniert es nicht so wie ich es wollte.
Worksheets("Lager").Unprotect , Password:="1w56"
Für Eure hilfe wäre ich froh
Gruß
Sven
14.03.2009 19:10:39
Thread-ID: 1060230
3 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Anzeige
this Workbook und auch this worksheets?
lisa

Hallo
Ich würde in meinem unten gezeigten Code gern auf die Bezeichnung des Tabellenblattes verzichten.
Wenn ich anstelle von,
ThisWorkbook.Worksheets("Donnerstag").Range("z13"). ,
ThisWorkbook.ThisWorksheets.Range("z13"). , einsetze klappte es nicht.
Kann man ohne Benennung...
16.11.2009 12:45:03
Thread-ID: 1117562
8 Beiträge
Error 1004 'Copy Method of Worksheet Class failed'
André

Hallo zusammen,
nach etlichen, vergeblichen Unternehmungen den "Copy Method of Worksheet Class failed" Fehler
zu beheben bzw. zu umgehen, hoffe ich, dass ihr mir helfen könnt.
Mit einem Messprogramm wird jeden Tag eine Datei mit einigen Hundert Werten in einem Ordner erstellt. Diese...
27.04.2010 10:05:48
Thread-ID: 1153991
18 Beiträge
ThisWorkbook.Worksheets("Check").Tab.ColorIndex ..
Peter

Guten Tag
Untenstehender Code stoppt bei der Zeile
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 10 ' = grün
wenn die aktive Tabelle, bei der eine Änderung erfolgt, nicht die Tabelle "Check" ist.
Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht."
...
02.09.2010 08:55:46
Thread-ID: 1175368
5 Beiträge
in neuem Workbook zweites Worksheet einfügen
Peter

Guten Tag
Ich möchte in einem neu angelegten Workbook ein zweites Worksheet einfügen und dieses dann mit "Test" benennen. Mein Versuch ist fehlgeschlagen. Wer hilft mir weiter?
Danke und Gruss, Peter
Sub NeueTabelle() Dim wbNeu as Workbook, WS as Worksheet Set wbNeu = Workbooks.Ad...
19.09.2011 12:47:07
Thread-ID: 1230558
3 Beiträge
workbook / worksheet
Hartmut

Hallo liebes Forum
Ich habe zwei identische Macros in meiner Tabelle
ein mal wird das Macro beim öffne der Tabelle ausgeführt mit:
Private Sub Workbook_Open() 'mein code end if End Sub dann genau das gleiche Macro in der Tabelle bei calculate
Private Sub Worksheet_Calculate() '...
05.07.2012 09:26:00
Thread-ID: 1269972
8 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
2
4
13
7
17
4
2
7
6
2
2
1
5
2
3
5
5
1
9
7
2
2
3