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

Code in Code einfügen

Code in Code einfügen
19.12.2005 14:54:29
Flash)
Hallo,
habe eine Frage zu VBA. Ich brauche ein Makro, mit dem es mir möglich ist, Code in Code einzufügen. Meine Idee ist, dass ich den Code einer kopierten Datei komplett lösche und im Anschluss daran neuen Code einfüge.
Hoffe, mir kann jemand helfen.
Danke im Voraus.
Gruß Flash)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code in Code einfügen
19.12.2005 16:46:04
Richard
hallo,
ich hab mal sowas ähnliches gemacht um kommentare zu löschen. das ging mit den befehlen insertlines und deletelines
vielleicht hilft dir das ja weiter.
gruss
Richard

Sub Delete_Comments(actWBook As String, actSheet As String)
Dim i As Integer, j As Integer, Index As Integer, ipos As Integer
Dim OnlyComment As Boolean
Application.StatusBar = "Delete_Comments"
Index = 0
For i = 1 To Workbooks(actWBook).VBProject.VBComponents.Count
If Workbooks(actWBook).VBProject.VBComponents.Item(i).name = actSheet Then
Index = i
Exit For
End If
Next i
If Index = 0 Then Exit Sub
With Workbooks(actWBook).VBProject.VBComponents.Item(Index).CodeModule
For i = .CountOfLines To 1 Step -1
OnlyComment = True
ipos = InStr(.Lines(i, 1), "'")
If ipos > 0 Then
For j = 1 To ipos - 1
If Mid(.Lines(i, 1), j, 1) <> " " Then OnlyComment = False
Next j
If OnlyComment Then
'if line contains only comments
.DeleteLines (i)
Else
'if line contains code and comments
.InsertLines i, Left(.Lines(i, 1), ipos - 1)
.DeleteLines (i + 1)
End If
End If
If InStr(UCase(.Lines(i, 1)), "OPTION EXPLICIT") Then
.DeleteLines (i)
End If
Next i
'For i = .CountOfLines To 1 Step -1
'   If Len(.Lines(i, 1)) = 0 Then
'      .DeleteLines (i)
'   End If
'Next i
End With
Application.StatusBar = ""
End Sub

Anzeige
AW: Code in Code einfügen
21.12.2005 15:49:12
Flash)
Danke für deine Antwort, habe es jetzt aber anders gelöst.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige