Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Makro per Makro

Betrifft: Makro per Makro von: Andi
Geschrieben am: 12.08.2004 12:59:41

Hi,

hatte heute morgen schon mal einen Beitrag, hat aber bis jetzt noch nichts gebracht...
Bin immer noch nicht mit meinem Problem weitergekommen:
Ich möchte per makro code in ein Tabellenblattmodul schreiben.

Hier mal mein Code, der nicht läuft:

'hier leigt glaub ich das Problem:
With Application.VBE.ActiveCodePane.codemodule
.InsertLines .countoflines + 1, "

Private Sub CommandButton1_Click()"
.InsertLines .countoflines + 1, "Leere_Zellen_loeschen"
.InsertLines .countoflines + 1, "End Sub
"

.InsertLines .countoflines + 1, ""

.InsertLines .countoflines + 1, "
Private Sub Worksheet_Calculate()"
.InsertLines .countoflines + 1, "activesheet.Cells(activesheet.Cells(Rows.Count, 12).End(xlUp).Row + 1, 12) = [l5]"
.InsertLines .countoflines + 1, "activesheet.Cells(activesheet.Cells(Rows.Count, 13).End(xlUp).Row + 1, 13) = [m5]"
.InsertLines .countoflines + 1, "activesheet.Cells(activesheet.Cells(Rows.Count, 14).End(xlUp).Row + 1, 14) = [n5]"
.InsertLines .countoflines + 1, "activesheet.Cells(activesheet.Cells(Rows.Count, 15).End(xlUp).Row + 1, 15) = [o5]"
.InsertLines .countoflines + 1, "activesheet.Cells(activesheet.Cells(Rows.Count, 16).End(xlUp).Row + 1, 16) = [p5]"
.InsertLines .countoflines + 1, "activesheet.Cells(activesheet.Cells(Rows.Count, 17).End(xlUp).Row + 1, 17) = [q5]"
.InsertLines .countoflines + 1, "End Sub
"

.InsertLines .countoflines + 1, ""

.InsertLines .countoflines + 1, "
Private Sub Worksheet_activate()"
.InsertLines .countoflines + 1, "Doppelt"
.InsertLines .countoflines + 1, "End Sub
"
End With
End Sub

Wer kann mir helfen?

Gruß Andreas
  


Betrifft: AW: Makro per Makro von: Hans W. Herber
Geschrieben am: 14.08.2004 07:20:31

Hallo Andreas,

referenziere das Zielmodul exakt, z.B. mit:
ActiveWorkbook.VBProject.VBComponents("Modul1").CodeModule

Gruss hans


  


Betrifft: AW: Makro per Makro von: Andreas
Geschrieben am: 15.08.2004 12:35:29

Danke für die Antwort.