Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Makros mit VBA löschen

Forumthread: mehrere Makros mit VBA löschen

mehrere Makros mit VBA löschen
31.12.2006 01:10:34
fuzzi
kann nur ein Modul so löschen, wie ändere ich das auf mehrere? Danke

Sub DeleteCode()
Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets
With .VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next wks
With .VBComponents("Modul2").CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
MsgBox "Alles klar!"
End Sub

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Makros mit VBA löschen
31.12.2006 02:34:16
chris
Hallo das geht so.

Sub DeleteCode()
Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets
With .VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next wks
For Each modl In ActiveWorkbook.VBProject.VBComponents
With .VBComponents(modl.Name).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
End With
MsgBox "Alles klar!"
End Sub

gruß Chris
Anzeige
AW: mehrere Makros mit VBA löschen
31.12.2006 11:00:46
fuzzi
nun lösche ich alle Module, ich möchte jedoch ein Modul belassen, wie mach ich das? danke vom dummy, besonders Chris für die Hilfe 

Sub DeleteCode()
Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets
With .VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next wks
For Each modl In ActiveWorkbook.VBProject.VBComponents
With .VBComponents(modl.Name).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
End With
MsgBox "Alles klar!"
End Sub

Anzeige
AW: mehrere Makros mit VBA löschen
31.12.2006 11:43:18
fuzzi
nun lösche ich alle Module, ich möchte jedoch ein Modul belassen, wie mach ich das? danke vom dummy, besonders Chris für die Hilfe 

Sub DeleteCode()
Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets
With .VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next wks
For Each modl In ActiveWorkbook.VBProject.VBComponents
With .VBComponents(modl.Name).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
End With
MsgBox "Alles klar!"
End Sub

Anzeige
AW: mehrere Makros mit VBA löschen
31.12.2006 11:50:14
Nepumuk
Hallo fuzzi,
diese Konstruktion löscht aber dein Modul nicht, sondern nur den Code darin.
With .VBComponents("Modul2").CodeModule
    .DeleteLines 1, .CountOfLines
End With

Wo gibt es überall Code ("Dieserbeitsmappe", Tabellen, Diagrammblätter, Userforms, Klassenmodule)? Welches Modul (Name) willst du behalten?
Gruß
Nepumuk
Anzeige
AW: mehrere Makros mit VBA löschen
31.12.2006 12:29:54
fuzzi
Lieber Nepumuk, danke für die Bemühung!
mit 

Sub DeleteCode()
Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets
With .VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next wks
For Each modl In ActiveWorkbook.VBProject.VBComponents
With .VBComponents(modl.Name).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
End With
MsgBox "Alles klar!"
End Sub

hab ich alle Module gelöscht, die sind in einem Arbeitsblatt, das Modul1 möchte ich erhalten, wie tu ich´s?
Anzeige
AW: mehrere Makros mit VBA löschen
31.12.2006 12:47:21
Nepumuk
Hallo fuzzi,
versuch es mal damit:
Public Sub alle_Makros_loeschen()
    Dim objVBComponents As Object
    With ActiveWorkbook.VBProject
        For Each objVBComponents In .VBComponents
            Select Case objVBComponents.Type
                Case 1, 2, 3 'Module, Klasssenmodule, Userforms
                    If objVBComponents.Name <> "Modul1" Then _
                        .VBComponents.Remove .VBComponents(objVBComponents.Name)
                Case 100 'Workbook, Sheets
                    With objVBComponents.CodeModule
                        .DeleteLines 1, .CountOfLines
                    End With
            End Select
        Next
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: mehrere Makros mit VBA löschen
31.12.2006 15:58:47
fuzzi
Lieber Nepumuk!
Danke, funktioniert bestens, alle Deine Wünsche fürs nächste Jahr sollen erfüllt werden, Grüße aus Linz
;

Forumthreads zu verwandten Themen

ZÄHLENWENN() mit mehreren Bedingungen
Kasimir

Hallo Leute,
irgendwie komme ich nicht weiter. Ich möchte eine ZÄHLENWENN()-Funktion mit mehreren Bedingungen erstellen, scheitere aber kläglich daran. Ich möchte eigentlich nur Zählen, wenn in Spalte B und C und D etwas steht. Das Ganze von Zeile 20 bis 269.
Mal als Beispiel, in Zelle...
14.03.2009 14:22:53
Thread-ID: 1060148
4 Beiträge
Wörter in Excel suchen und in Zelle ausgeben
Turnsackerl

Liebe Excelfreunde,
irgendwie stehe ich derzeit komplett am Schlauch. Mein Problem ist eigentlich ganz simpel:
Ich bekommen per Webabfrage einen Text (tlw. mit mehreren Wörtern) verteilt über mehrere Zeilen. Jetzt möchte ich den einfach nach bestimmten Wörtern (Wortteilen) suchen und di...
17.05.2013 11:33:04
Thread-ID: 1313596
3 Beiträge
Anzeige
Formel für: Wort suchen und Spaltennummer ausgeben
Eks

Liebe Freunde,
stundenlang habe ich schon gesucht und probiert - ergebnislos.
Ich brauche eine Formel, die den Text aus einer Zelle (A3) in einem Bereich (A4:E25) in einem anderen Blatt sucht und letztlich in die Zelle, in der die Formel steht (C3), die Spaltennummer einträgt.
Für H...
08.09.2013 08:09:54
Thread-ID: 1329921
4 Beiträge
Als Makro: Nach Wort in Zelle suchen + ausgeben
Johannes

Folgende Situation:
Ich habe eine Exceldatei, die 3 Spalten hat:
In Spalte 1 steht Textstrings (0-50, 50-100 oder 100-200)
In Spalte 2 stehen Namen, also ebenfalls Strings und es gibt nur ca. 10 bis 15 verschiedene Namen, also z.B.(Maier, Müller, Hofmann, Klein, Fürst)
In Spal...
25.02.2015 19:29:13
Thread-ID: 1411570
5 Beiträge
Wert mit Buchstaben&Zahlen in Range suchen
Christian

Guten Morgen,
ich möchte gerne einen Wert mit Buchstaben und Zahlen (bsp:AB-J123) in einer bestimmten Range in einem anderem Tab suchen lassen (A238 bis A266). Falls er den Wert findet, soll ein bestimmter Text in die Zelle eingefügt werden (JA), falls nicht soll ein anderer Text eingefügt...
12.05.2015 11:00:25
Thread-ID: 1425913
9 Beiträge
Anzeige
nach Wort suchen u. nächste 3 Zeichen mit ausgeben
Andi

Hallo liebe Gemeinde,
ich habe eine Frage, über eine Formelabfrage, wobei ich hoffe, dass Ihr mir mal wieder aus der Klemme helfen könnt.
In Spalte A stehen in den Zellen Texte als Freitext, wobei die Zeichenkette CEE und eine anschließende genaue Spezifizierung häufig folgt. Als Ausgab...
10.12.2015 08:58:24
Thread-ID: 1463489
5 Beiträge
nach 2 Wörter suchen u. Text dazwischen ausgeben
Andi

Guten Tag,
ich habe eine kleine Frage, die ich nicht lösen kann, aber ich hoffe ganz sehr Ihr könnt mir helfen!!?:
Ich habe ganz viele Zellen in einer Spalte A in der irgendwo immer eine Stadtname vorkommt. Davor steht immer das Wort "in" , danach immer ein Datum im Format tt.mm.jj. Ich...
14.01.2016 13:39:10
Thread-ID: 1468849
15 Beiträge
Wörter in Zelle suchen und kommagetrennt ausgeben
Klemens

Hallo Expereten,
ich bin hier Neuling und kämpfe seit einer Weile mit einem Problem...
Kann mir jemand helfen wie ich in Excel folgendes Problem lösen kann.
Ich habe in einer Zelle einen Text der verschiedene Fehlercodes enthält.
Zelle A1: Q0001 Fehler 1 Fehlerbeschreibung, Q000...
10.11.2016 14:47:46
Thread-ID: 1524070
4 Beiträge
Anzeige
Wort finden und mit nachfolgendem Wort kopieren
Kirk
Hallo und schon im voraus Danke für Eure Hilfe.
Es geht um eine Such-Funktion, die in einem langen Text mit vielen Bezugszeichen nach diesen Bezugszeichen sucht und mir das Wort davor kopiert. Den Text könnte ich z.B. in 1 Zelle kopieren, hier wäre ich aber offen (auch txt oder Word-Datei könn...
17.02.2017 20:59:01
Thread-ID: 1542309
19 Beiträge
VBA Wörter Suchen und in Textbox ausgeben
Tim

Hallo zusammen,
ich habe ein Code gefunden mit dem ich in eine Spalte nach einem Wort suchen kann (über Schaltfläche und TextBoxen in UserForm). Wenn das Wort gefunden wird, zeigt es mir in den anderen TextBoxen die Wörter in den Zielspalten in der selben Zeile an.
Nun zu meiner Frage:...
23.05.2018 14:08:58
Thread-ID: 1625314
6 Beiträge
Anzeige
VBA Makro Wörter suchen und auszählen
Sandro

Hi, ich bins nochmal.
Ich muss den Code so ergänzen, dass mir eine "OkAbbrechen-Messagebox" angezeigt wird, die folgendes beeinhaltet:
- ein Wert (z.B. "PUR", "SPEZIAL", "PE", "DA", "TPE", "PVC"), soll 12 Spalten weiter entnommen werden und das bei allen auf WS1 festgestellten Positione...
25.07.2018 07:18:36
Thread-ID: 1635694
13 Beiträge
Wörter in String suchen und ausgeben
Steven

Hallo liebe VBAler :)
ich benötige ein wenig Hilfe, da ich nach langer Suche auf nichts gestoßen bin, das mir richtig weiterhilft.
Ich würde gerne eine Liste von Begriffen (Spalte A) in einem Array speichern und anschließend längere Strings, Zeile für Zeile, durchgehen und die jeweilige...
09.11.2018 17:31:39
Thread-ID: 1656510
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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