Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Add In beim Start ausführen

Add In beim Start ausführen
16.07.2008 11:29:00
Martin
Hallo, habe mehrere Exceldatei (ca. 1000x) bei denen ich beim laden eine Zeile in einem bestimmten Blatt löschen möchte. VBA - Script funktioniert so weit, wenn es als Makro in der Mappe ausgeführt wird.
Problem: wenn das Script als Add-In eingebunden ist, erfolgt der Aufruf nicht bzw. funktioniert es nicht.
Hat jemand einen Tip, wie man so ein Problem angeht?
Danke!
Martin Hupf
Sub SpezGewichtLösch()
Dim wks As Worksheet
Dim blatt As String
Application.DisplayAlerts = False
blatt = "Spez. Gewicht"
For Each wks In ActiveWorkbook.Worksheets
If wks.Name = blatt Then
If ActiveWorkbook.Sheets("Spez. Gewicht").Range("A1").Value = "Spezifisches Gewicht" Then
Worksheets("Spez. Gewicht").Rows(1).Delete
End If
End If
Next
End Sub



Public Sub Workbook_Open()
Call SpezGewichtLösch
End Sub


*********************************************

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Add In beim Start ausführen
16.07.2008 11:44:55
Rudi
Hallo,
du musst im jeder der 1000 Mappen diesen Code haben:

Public Sub Workbook_Open()
Application.Run "MeinAddIn.xla!SpezGewichtLösch"
End Sub


Gruß
Rudi

AW: Add In beim Start ausführen
16.07.2008 11:48:00
Martin
Hallo Rudi,
gibts eine andere Möglichkeit? .. Die Dateien sind z.Teil in unserem Archivsystem als Exceldokumente.
Evtl auch andere Vorgehensweise?
Oder wäre eine Alternative einen Macro-Button zu machen der bei Bedarf die Funktion ausführt?
Danke
Martin Hupf

AW: Add In beim Start ausführen
16.07.2008 12:10:54
Rudi
Hallo,

Oder wäre eine Alternative einen Macro-Button zu machen der bei Bedarf die Funktion ausführt?


imho das einfachste.
Im Addin:
In ein Modul:


Public Const strCBar As String = "cbKillSpez"
Sub CreateBar(Optional blnCreate As Boolean = True)
Dim oBar As CommandBar, oBtn As CommandBarControl
On Error Resume Next
CommandBars(strCBar).Delete
On Error GoTo 0
If blnCreate Then
Set oBar = CommandBars.Add(strCBar, msoBarTop, False, True)
Set oBtn = oBar.Controls.Add
With oBtn
.Style = msoButtonCaption
.Caption = "Spez. Gewicht löschen"
.OnAction = "SpezGewichtLösch"
End With
oBar.Visible = True
End If
End Sub


In DieseArbeitsmappe:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
CreateBar False
End Sub
Private Sub Workbook_Open()
CreateBar True
End Sub


Gruß
Rudi

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige