Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

prozedur löschen

prozedur löschen
08.11.2012 13:05:40
Rolf
Hallo zusammen,
wie lässt sich mittels VBA eine Prozedur löschen und ersetzen, ohne dass gleich das gesamte Modul gelöscht wird.
Also: 
Sub hans
[A1]="Torwart"
End Sub

löschen und ersetzen durch 
Sub hans
[A1]="Stürmer"
End Sub

Gruß
Rolf H.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: prozedur löschen
08.11.2012 14:02:21
Rudi
Hallo, 
Sub aaa()
Dim vbc
Dim iStart, iAnzahl
Const sProc As String = "hans"
For Each vbc In ThisWorkbook.VBProject.VBComponents
If vbc.Type = 1 Then
On Error Resume Next
With vbc.codemodule
iStart = .ProcStartLine(sProc, vbext_pk_Proc)
iAnzahl = .ProcCountLines(sProc, vbext_pk_Proc)
If Err.Number = 0 Then
.DeleteLines iStart, iAnzahl
.InsertLines iStart, ""
.InsertLines iStart + 1, "Sub hans()"
.InsertLines iStart + 2, "  [A1]=""Stürmer"""
.InsertLines iStart + 3, "End Sub"
.InsertLines iStart + 4, ""
End If
End With
On Error GoTo 0
End If
Next
End Sub

Gruß
Rudi

Anzeige
AW: prozedur löschen
08.11.2012 14:55:00
Rolf
Hallo Rudi,
recht herzlichen Dank für deine schnelle und kompetente Antwort.
Noch eine Frage.
Wenn ich einem Modul eine neue Prozedur hinzufügen will, muss ich dann auch jede Zeile mit "InsertLines"
einzeln eingeben?
Gruß
Rolf

AW: prozedur löschen
08.11.2012 15:42:41
Rudi
hallo,
das kannst du auch per AddFromString 
Sub yyy()
Dim vbc As Object
Dim sCode As String
Application.ScreenUpdating = False
sCode = "Sub Meldung()" & vbLf
sCode = sCode & "   MsgBox ""Hallo Welt!""" & vbLf
sCode = sCode & "End Sub"
Set vbc = ActiveWorkbook.VBProject.VBComponents("Modul1")
'oder neues Modul:
'Set vbc = ActiveWorkbook.VBProject.VBComponents.Add(1)
vbc.codemodule.addfromstring sCode
End Sub

sCode kannst du natürlich auch anders zusammenbasteln.
Gruß
Rudi

Anzeige
AW: prozedur löschen
08.11.2012 16:40:37
Rolf
Hallo Rudi,
jetzt habe ich genug Material, um - wie du sagst - zu basteln.
Nochmals vielen Dank
Gruß
Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige