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

VBA Makro nach bedingung ausführen

Forumthread: VBA Makro nach bedingung ausführen

VBA Makro nach bedingung ausführen
18.07.2006 20:04:31
Alexandra
Hallo zusammen
und danke für Hilfe die ich hier schon erfahren habe
Nun habe ich ein neues Problem ich möchte u.g. Makro nur Ausführen lassen wenn die geöffnete *xls Datei "Statistik 2006 v.2.01" heist.
d.h. wenn die Datei unter einem anderen Namen geöffnet wird soll das Makro inaktiv sein.

Sub Löschen()
ActiveSheet.Unprotect
Range("S5:S16").Copy
Range("T5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Statistik").Select
ActiveSheet.Unprotect
Sheets("Eingabefeld").Select
Range("M2").Copy
Range("L1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Dim freieZ As Long
With Sheets("Statistik")
freieZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Eingabefeld").[c5:k5].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c6:k6].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c7:k7].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c8:k8].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c9:k9].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c10:k10].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c11:k11].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c12:k12].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c13:k13].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c14:k14].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c15:k15].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c16:k16].Copy Destination:=.Cells(freieZ, 1)
End With
Sheets("Statistik").Select
Columns("J:J").Copy
Columns("K:K").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Columns("F:K").Select
Range("K1").Activate
Selection.ColumnWidth = 0
Columns("B:C").Select
Range("C1").Activate
Selection.ColumnWidth = 0
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Eingabefeld").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs "D:\users\" & Month(Now) & "." & (Year(Now) & "  Statistikdat" & _
Range("I2").Value & ".XLS")
Application.DisplayAlerts = True
Sheets("Übergabebogen").Select
Range("Q14:Q25").ClearContents
Range("Q14").Select
Sheets("Eingabefeld").Select
Range("I1").Copy
Range("I2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C5:L5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C6:L16").ClearContents
Range("P5:P16").Copy
Range("I5").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Q5:Q16").Copy
Range("F5").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("B5").ClearContents
Range("B5").Select
ActiveWindow.ScrollColumn = 1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "D:\users\" & "Statistik 2006 v.2.01" & ".XLS"
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Makro nach bedingung ausführen
18.07.2006 20:29:09
Nepumuk
Hallo Alexandra,
Als erste Zeile in deiner Prozedur:
If LCase$(Thisworkbook.Name) <> "statistik 2006 v.2.01.xls" Then Exit Sub
Gruß
Nepumuk
AW: VBA Makro nach bedingung ausführen
18.07.2006 20:39:07
Alexandra
Muß ich da noch etwas ändern ?
Ich habe es jetzt so eingefügt
Sub Löschen()
'
If LCase$(Thisworkbook.Name) <> "statistik 2006 v.2.01.xls" Then Exit Sub
ActiveSheet.Unprotect
u.s.w.
Leider tut sich jetzt gar nichts mehr auch nicht wenn die Datei "statistik 2006 v.2.01.xls"
heist
Anzeige
AW: VBA Makro nach bedingung ausführen
18.07.2006 20:49:02
Nepumuk
Hallo Alexandra,
lass dir den Namen der richtigen Mappe im Direktbereich ausgeben und kopiere in von dor in dein Makro.
Einfach in den Direktbereich:
?LCase$(Thisworkbook.Name)
kopieren und Enter drücken. Den ausgegebenen Namen kopierst du in die Zeile von mir.
Gruß
Nepumuk
Anzeige
Danke vielmals
18.07.2006 21:03:38
Alexandra
Vielen Dank Nepomuk
Nun hab ich auch den Direktbereich kennengelernt !
Grüße aus Eningen u.A.
Noch etwas
18.07.2006 21:20:21
Alexandra
Ich will ja nicht unverschämt erscheinen aber
If LCase$(ThisWorkbook.Name) <> "statistik 2006 v.2.01.xls" Then Exit Sub
Kann ich dort noch ne Msgbox einbauen (OK)
Text z.b. "Makro nicht ausführbar"
Anzeige
AW: Noch etwas
18.07.2006 21:26:37
Nepumuk
Ach Alexandra,
dafür sind doch Foren da. 
If LCase$(ThisWorkbook.Name) <> "statistik 2006 v.2.01.xls" Then
    MsgBox "Wrong workbook", vbCritical, "Take your fucking fingers of"
    Exit Sub
End If


Gruß

Nepumuk
Anzeige
;

Forumthreads zu verwandten Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Bedingte Formatierung per VBA prüfen?
onkelbobby

Hallo,
in einer Tabelle in Spalte N und O werden zwei Datumswerte angegeben. Mit der Formel
=UND(HEUTE()-N1größer=0;O1-HEUTE()größer=0) (Anm. kann leider keine größer-Zeichen hier angeben)
habe ich als bedingte Fomatierung festgelegt, dass diejenigen Werte, bei denen das heutige Dat...
29.08.2008 12:45:10
Thread-ID: 1005805
6 Beiträge
Anzeige
Bedingte Formatierung, wenn Spalte gefüllt
belanglos

Hallo,
ich habe gerade ein Brett vom Kopf.
Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
Kann mir damit jemand weiterhelfen....
11.09.2008 14:34:00
Thread-ID: 1009128
5 Beiträge
Prüfung: AddIn vorhanden?
Harald

Hallo zusammen!
Habe im Excel ein AddIn das beim Start von Excel geladen wird, und beim Schließen Entladen wird.
Der Code lautet wie folgt:
----------------------
Private Sub Workbook_Open() AddIns("MeinAddIn").Installed = True End Sub
Private Sub Workbook_BeforeClose(C...
16.09.2008 08:47:00
Thread-ID: 1009955
7 Beiträge
Anzeige
Makrosammlung für Super Addin
Rocky

Hallo Excelfans,
ich bin auf der suche nach anregungen für meine Addinsammlung. Hat jemand nützliches was man in einem addin sammeln kann? Auf manche schönen Sachen kommt man erst, wenn man sie sieht.
würde gern Anregungen sammel, sie dann in einem Addin zusammensteleen und Sie es dann...
16.09.2008 12:16:05
Thread-ID: 1010049
4 Beiträge
Anzeige
Bedingte Formatierung über Tabellenblätter
Thomas

Hallo,
ich habe in einem extra Datenblatt welches Stammdaten enthält einen Code für die Formatierung
erzeugt (vier verschiedene Farbe Sollen Verwendung finden).
Wie kann ich ohne Verwendung des Menüs Bedingte Formatierung, in dem mir nur 3 Bedingungen
zur Verfügung stehen, ohne...
12.11.2008 14:06:30
Thread-ID: 1023831
2 Beiträge
VBA 2 Din A 5 auf Din A 4 Drucken ?
Peter

Hallo
Habe auf ein Tab 2 Din A 5 Bereiche erstellt.
Wie kann man per Vba oder Formel die Beiden Bereiche auf Din A 4 Drucken?
Mfg. Peter
01.12.2008 17:56:42
Thread-ID: 1029327
3 Beiträge
Anzeige
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
Makro aus Worksheet über ein Addin ansprechen
Florian

Guten Morgen,
ich habe ein Addin erstellt, dass automatisch eine Symbolleiste erstellt! Alles OK soweit!
1.
Ich möchte über diese Symbolleiste (aus dem Addin) auf einen Code des geöffneten Worksheets zugreifen. Wie kann ich über die Sybolleiste des Addin`s den Code/das Makro des akt...
05.02.2009 08:23:14
Thread-ID: 1047280
2 Beiträge
Farbe von bedingte Formatierung übertragen
bedingte

Hallo,
Wie kann ich die Farbe von bedingte Formatierung von ZellBereich 2 übertagen nach ZellBereich 1
Hintergrund ist dass in Bereich 2 Prozentuelle anteilige Wert je Warengruppe (WGR) ausgerechnet wird.
Ich suche ein möglichkeit diese Farbe eins zu eins von Bereich 2 nach Bereic...
05.03.2009 12:14:23
Thread-ID: 1056767
3 Beiträge
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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