Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1032to1036
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
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro geht nicht

makro geht nicht
12.12.2008 08:57:19
donald
Hallo liebe Helfer,
ich hab hier ein Makro, das Farben sortiert. Das Problem ist jetzt, dass die Datei als Vorlage dienen soll und damit der NAme der Vorlage geändert wird und in dem Makro aber der Name der Vorlage drin ist. Das heißt, dass Makro funktioniert nicht mehr, sobald die Datei unter einem anderen Namen abgespeichert wird. Ich hoffe, ich konnte mich halbwegs gut ausdrücken...
Hier das Makro: (Sortiert eine Spalte, die die Farbcodes generiert)

Sub FarbeSortieren()
' Makro5 Makro
Range("S12:S160").Select
Application.Run "'Vorlage.xls'!FarbCodes"
Range("A12:AZ160").Sort Key1:=Range("T12"), Order1:=xlAscending, Key2:=Range("F12" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
' dieses Makro wendet das Makro "Farbcodes" an und sortiert die Spalte T, so dass
' die Farbcodes und damit die Farben sortiert werden.
ActiveSheet.Protect Password:="esm-win"
End Sub


Hat jemand eine Idee?

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

Betreff
Datum
Anwender
Anzeige
AW: makro geht nicht
12.12.2008 09:25:25
robert
hi,
vielleicht -Application.Run- löschen?
gruß
robert
AW: makro geht nicht
12.12.2008 09:27:48
donald
Nein, das funktioniert leider nicht. Gibt es nicht etwas wie activeSheet, das man an die Stelle "Vorlage" setzen kann?
AW: makro geht nicht
12.12.2008 10:17:00
Andi
Hi,
den Namen der gerade aktiven Datei erhältst Du mit ActiveWorkbook.Name.
Den Namen der Datei, in der das Makro enthalten ist mit ThisWorkbook.Name
Schönen Gruß,
Andi
AW: makro geht nicht
12.12.2008 09:57:11
Hajo_Zi
Hallo Donald,
die Zeile
Range("S12:S160").Select ist sinnlos
schreibe FarbCodes und kopiere das Makro FarbCodes in die Vorlage.

geht nicht, was ist falsch?
12.12.2008 10:41:00
donald
So, hab das zwar verwurschtelt, aber es funktioniert jetzt nicht mehr. Es kommt auch keine fehlermeldung und gar nichts... Was hab ich denn hier wieder falsch gemacht?

Sub FarbeSortieren()
ActiveSheet.Unprotect Password:="esm"
Dim rZelle  As Range
For Each rZelle In Selection
Select Case rZelle.Interior.ColorIndex
Case 4:  rZelle.Offset(0, 1).Value = 1
Case 2:  rZelle.Offset(0, 1).Value = 4
Case 46: rZelle.Offset(0, 1).Value = 2
Case 3:  rZelle.Offset(0, 1).Value = 3
Case Else:  rZelle.Offset(0, 1).Value = 4
End Select
' Programm setzt neben die Spalte S (Bemerkung)in die Spalte T (Farbcode) einen Farbcode,
' wobei diesem ein anderer Wert zugewiesen wird (grün kriegt den Wert 1, orange 2, rot 3,
' und weiß sowie alles andere 4)
Next rZelle
Range("A12:AZ160").Sort Key1:=Range("T12"), Order1:=xlAscending, Key2:=Range("F12" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
' sortiert die Spalte T, so dass die Farbcodes und damit die Farben sortiert werden.
ActiveSheet.Protect Password:="esm"
End Sub


Anzeige
AW: geht nicht, was ist falsch?
12.12.2008 11:43:00
Hajo_Zi
Hallo Donald,
das ist ein anderer Code als im ersten Beitrag. Du hast scxhon einen Bereich in der Tabelle markiert.
Gruß Hajo
AW: geht nicht, was ist falsch?
12.12.2008 16:34:05
donald
Ah ja,
jetzt gehts, danke.

300 Forumthreads zu ähnlichen Themen

Makro geht und geht doch nicht
David

Hallo VBA-Profis,
ich wollte einem anderen Forumsmitglied hier helfen und habe auch alles soweit hinbekommen, aber an einem Problem bin ich gerade verzweifelt.
In der Datei:
Die Datei https://www.herber.de/bbs/user/55435.xls wurde aus Datenschutzgründen gelöscht
wird beim Änder...
16.09.2008 15:02:10
Thread-ID: 1010129
9 Beiträge
Anzeige
Zielwertsuche Makro geht nicht
Bastian

Hallo Leute,
beim Starten des Makros
Sub schleife()
   Dim rng As Range
   For Each rng In Range("I13:I200").Cells
      rng.GoalSeek Goal = 0,  ChangeingCell:=rng.Offset(0, &...
09.01.2009 13:46:00
Thread-ID: 1038219
10 Beiträge
Druckmakro geht nicht
lutz

Hallo Excel-Profis.
ich versuche ein Druckmakro zu schreiben, dass schneller geht als die normale Funktion.
Sub PrintF1() Dim Head1 As String Dim Foot1 As String Head1 = "________&8& chr(10)& Text& Seite &P/&N, Date &D; &T Uhr" Foot1 = "Testfoot" Execut...
27.03.2009 11:18:20
Thread-ID: 1064534
7 Beiträge
Anzeige
Makro in Vista geht nicht
ReSt

Hallo
ich habe nun ein Problem welches ich nicht verstehe.
Unten steht ein Makro welches in Windows XP funktionierte. Das heisst es kam ein Speichern unter Dialogfeld welches schon mit dem Namen und dem Dateityp ausgefüllt war.
Jetzt wo ich Windows Vista verwende, bekomme ich nur no...
10.07.2009 08:48:59
Thread-ID: 1087252
3 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Makro, das vorher ging, geht jetzt nicht mehr
diplingoec

Hallo,
ich hatte im Internet vor einiger Zeit ein Makro gefunden zum Auslesen von Google Ergebnissen.
Das funktionierte Prima. Jetzt kommt immer eine Fehlermeldung (Laufzeitfehler 1004) und ich habe keine Ahnung woran das liegen könnte.
Kurz zum Hintergrund: Ich möchte meine Recher...
15.09.2009 15:00:59
Thread-ID: 1102892
4 Beiträge
Makro geht nach Blattschutz nicht mehr
Reimund

Habe ein einfaches Makro, wo Zeilen ausgeblendet werden sollen wenn ein bestimmtes Wort in einer bestimmten Zelle steht.
Geht auch. Abr wenn ich den Blattschutz eingeschaltet habe geht´s nicht mehr. Und dann auch nicht wenn der Schutz wieder raus ist. Hängt schon im ersten Teil.
Hier bi...
23.09.2009 15:24:10
Thread-ID: 1104971
5 Beiträge
Copy/paste per makro geht einfach nicht
Julian

Liebe Excelgemeinde,
ich bin vollkommen ratlos, ich möchte eine liste kopieren per:
Worksheets("Bond Portfolios").Range(Chr(64 + i) & "13:" & Chr(64 + i) & LastRow).Copy
was auch zu klappen scheint, sobald ich aber in der nächsten funktion das kopierte wieder eingefügen...
20.11.2009 20:16:25
Thread-ID: 1118957
4 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
8
4
9
6
3
2
2
3
4
3
6
4
1
2
3
2
4
1
23
1
3
7
2
11
1