Excelsheet via Makro mit Makros ausstatten

• Excelsheet via Makro mit Makros ausstatten von alex vom 09.12.2003 14:23:42
  • AW: Excelsheet via Makro mit Makros ausstatten - von Andi_H am 09.12.2003 14:31:38
    • AW: Excelsheet via Makro mit Makros ausstatten - von alex am 09.12.2003 14:43:51
      • AW: Excelsheet via Makro mit Makros ausstatten - von alex am 09.12.2003 14:54:42
        • rtfm =) - von alex am 09.12.2003 15:07:30
          • AW: rtfm =) - von Andi_H am 09.12.2003 15:25:19

Betrifft: Excelsheet via Makro mit Makros ausstatten
von: alex
Geschrieben am: 09.12.2003 14:23:42
Guten Tag zusammen. Ich wuerde gern folgendes tun :
Beim ausfuehren eines Makros soll eine gewisse Vorarbeit an einem Excelsheet geleistet werden (Formatierung etc...) danach würde ich gern per Doppelklick weitere Makros ausfuehren koennen.

Leider muss das Makro auf viele versch. Dateien angewandt werden,deren (immer gleiches Sheet) leider kein VBA Code enthalten.

Wie kann ich also einen vorgefertigten Code vie Marko in den "Sheet-Bereich" einfuegen?

mfg Alex.

Betrifft: AW: Excelsheet via Makro mit Makros ausstatten
von: Andi_H
Geschrieben am: 09.12.2003 14:31:38
Hi Alex
habe dir hier mal Code gepostet. Dieser erstellt ein Tabellenblatt und schreibt ins Code ins Workbook_Change - Ereignis.
Auch ganz hilfreich ist ein Blick in die Excel-Faqs auf der linken seite unter VBE

Gruß
Andi


Sheets.Add ' neues sheet hinzufügen

With ActiveSheet

.Name = str

End With

' Code einfügen in ws_change
Dim wks As Worksheet

Set wks = ActiveSheet

With ActiveWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule ' hier stoppt der Code CodeModule ist blau hinterlegt
.InsertLines 3, "

Private Sub Worksheet_Change(ByVal Target As Excel.Range)"
.InsertLines 4, "Dim i, xSum As Integer"
.InsertLines 5, "If target = """" Then Exit Sub"
.InsertLines 6, "If Target.Row > 10 And Target.Row < 23 And Target.Column > 2 And Target.Column < 34 Then"
.InsertLines 7, "For i = 3 To 33"
.InsertLines 8, "Sum = Sum + Cells(Target.Row, i)"
.InsertLines 9, "Next"
.InsertLines 10, "Cells(Target.Row, 34) = Sum"
.InsertLines 11, "Sum = 0"
.InsertLines 12, "End If"
.InsertLines 13, "End Sub

"
End With
frmMAneu.txtFunktion = ""
frmMAneu.txtName.Text = ""
End Sub


Betrifft: AW: Excelsheet via Makro mit Makros ausstatten
von: alex
Geschrieben am: 09.12.2003 14:43:51
werd mal damit rumspielen,danke

Betrifft: AW: Excelsheet via Makro mit Makros ausstatten
von: alex
Geschrieben am: 09.12.2003 14:54:42
nun bekomm ich immer die Meldung :

1004: Der programmatische Zugriff auf ein VB-Project ist nicht sicher.

Sicherheit ist auf unterster! stufe.

gruss Alex.

Betrifft: rtfm =)
von: alex
Geschrieben am: 09.12.2003 15:07:30
hat sich erledigt.

Betrifft: AW: rtfm =)
von: Andi_H
Geschrieben am: 09.12.2003 15:25:19
hört sich an wie ein Sicherheitshinweis von Excel 2003, gibts bei O97 noch nicht :-)

Wenn nötig kann ich dir auch gerne meine Datei zum testen hochladen

Gruß

Andi

Excel-Beispiele zum Thema " Excelsheet via Makro mit Makros ausstatten"
Start des Makros nach Laden der Arbeitsmappe	Makros in Abhängigkeit vom Zellennamen aufrufen
Makros zeitgesteuert aufrufen	CommandBar in Abhängigkeit vorhandener Makros erstellen
Makrostart bei Auswahl einer Zelle in Zeile 3	Makros aus einem Standardmodul in ComboBox einlesen