Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro in neuer Datei erstellen

Makro in neuer Datei erstellen
13.11.2008 10:47:23
Kurt
Guten Morgen Allerseits,
ich hoffe mir kann jemand weiterhelfen.
Problem:
Ich erstellt eine TXT Datei per Makro, nun möchte ich das
zusätzlich ein Commandbutton erstellt wird, mit folgendem Inhalt:

Private Sub CommandButton1_Click()
Dim z As Long
z = Range("a6").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 27)).Select
End Sub


geht das überhaupt ?
mfg Kurt P

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro in neuer Datei erstellen
13.11.2008 12:20:00
Uduuh
Hallo,
in einer Textdatei kannst du keine Makros erstellen.
Gruß aus’m Pott
Udo

Das stimmt aber
13.11.2008 14:16:00
Kurt
Hallo Udo,
habe vergessen zu Schreiben, ich habe die Datei als xls. Datei gespeichert und dann
möchte ich ...
gr Kurt P
AW: Das stimmt aber
13.11.2008 20:57:00
Kurt
Guten Abend Udo,
ich verstehe nicht wie ich das machen muß.
Ich möchte das ein Button erstellt wird und der Inhalt des Makros da reingeschrieben
wird.

Private Sub CommandButton1_Click()
Dim z As Long
z = Range("a6").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 27)).Select
End Sub


Private Sub CommandButton1_Click()
Dim z As Long
z = Range("a6").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 27)).Select
End Sub


Habe das Makro mal gestartet, bleibt hier stehen:
With ThisWorkbook.VBProject.VBComponents("basMain").CodeModule
Laufzeitfehler 9
gruß kurt p

Anzeige
AW: Das stimmt aber
14.11.2008 12:32:00
Uduuh
Hallo,

Sub Makro1()
Dim btnMyNewButton As OLEObject
Dim sText As String
sText = "Private Sub NeuerButton_Click()" & vbLf
sText = sText & "Dim z As Long" & vbLf
sText = sText & "z = Cells(6,1).End(xlDown).Row" & vbLf
sText = sText & "ActiveSheet.Range(Cells(6, 1), Cells(z, 27)).Select" & vbLf
sText = sText & "End Sub"
Set btnMyNewButton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
With btnMyNewButton
.Top = 10
.Left = 10
.Width = 120
.Height = 24
.Object.Caption = "Neuer Button"
.Name = "NeuerButton"
End With
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.addfromstring sText
End With
End Sub


Gruß aus’m Pott
Udo

Anzeige
Super DANKE -)
14.11.2008 13:52:43
Kurt
Hallo Udo,
danke klappt Prima.
Schönes Wochenende,
mfg gruß kurt p

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige