Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
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
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Sheets/UF/Module durchlaufen .countoflines

Forumthread: Alle Sheets/UF/Module durchlaufen .countoflines

Alle Sheets/UF/Module durchlaufen .countoflines
26.04.2006 13:54:33
Karl
Hallo Leute,
ich habe ein relativ großes VBA-Projekt. Mich interessiert, wieviele Zeilen ich bisher im Quelltext habe. Es gibt doch die Möglichkeit sich anzeigen zu lassen, wieviele Zeilen in einem Modul sind. Wie kann ich aber ALLES in dem Projekt durchlaufen lassen?
thx
Gruß von Karl
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Sheets/UF/Module durchlaufen .countoflines
26.04.2006 14:13:56
Heiko
Hallo Karl,
hier mal ein Beispiel, mit zwei verschiedenen Möglichkeiten auf die CountOfLines zuzugreifen. Kannst dir dann ja die für dich bessere raussuchen, das Ergebnis ist natürlich bei beiden gleich.

Sub ZaehleVBACodezeilen()
Dim objVBAModule As Object
Dim lngZeilen1 As Long, lngZeilen2 As Long
For Each objVBAModule In ActiveWorkbook.VBProject.VBComponents
lngZeilen1 = lngZeilen1 + ActiveWorkbook.VBProject.VBComponents(objVBAModule.Name).CodeModule.CountOfLines
lngZeilen2 = lngZeilen2 + objVBAModule.CodeModule.CountOfLines
Next objVBAModule
MsgBox lngZeilen1
MsgBox lngZeilen2
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Alle Sheets/UF/Module durchlaufen .countoflines
26.04.2006 14:26:24
Karl
Sub ZaehleVBACodezeilen()
Hallo Heiko
es erscheint ne fehlermeldung bei
For Each objVBAModule In ActiveWorkbook.VBProject.VBComponents
Fehler 1004
Die Methode VBProject für das Object Workbook ist fehlgeschlagen
Der Code kommt doch normal in ein Modul!?
Gruß
AW: Alle Sheets/UF/Module durchlaufen .countoflines
26.04.2006 14:31:25
Heiko
Hallo Karl,
dann so, Fehlermeldung beachten und Einstellung entsprechend anpassen. Dannach gehts dann.

Sub ZaehleVBACodezeilen()
Dim objVBAModule As Object
Dim lngZeilen1 As Long, lngZeilen2 As Long
On Error GoTo Errorhandler
For Each objVBAModule In ActiveWorkbook.VBProject.VBComponents
lngZeilen1 = lngZeilen1 + ActiveWorkbook.VBProject.VBComponents(objVBAModule.Name).CodeModule.CountOfLines
lngZeilen2 = lngZeilen2 + objVBAModule.CodeModule.CountOfLines
Next objVBAModule
MsgBox lngZeilen1
MsgBox lngZeilen2
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das zählen der VBA Codezeilen ist fehlgeschlagen!" & vbCr & _
"Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro ZaehleVBACodezeilen"
Else
MsgBox "Err.Number = " & Err.Number & ".   " & Err.Description, vbCritical
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
danke geht :-)
26.04.2006 14:37:54
Karl
Hallo du,
da lag der Hund begraben. Grins
Dank dir, geht super!
Gruß
;

Forumthreads zu verwandten Themen

Durchlaufende numerierung beim kopieren bereich
Karel

Guten abend Forum,
habe letzte mal mit hilfe von euch ein bestimmtes bereich x mal Kopieren in anderes Tabelleblatt Etikett_print gemacht.
zusatz frage:
wie kan man noch eine durchlaufenden nummerierung machen beim Kopieren in Tabelleblat Etikett_print
anzahl durch eingabe in G3...
10.09.2008 20:31:33
Thread-ID: 1008914
5 Beiträge
Liste mit Kostenstellen durchlaufen u. abspeichern
Bernd

Liebe Freaks,
ich wäre Euch sehr dankbar für ein Makro, dass nachstehende Aufgabe abarbeitet:
Ich bitte um ein Makro, dass alle Gültigkeitswerte aus der Zelle C13 durchläuft und nach jeder Auswahl !A" bis "H" den Wert unter "C:\Kostenstellenblätter" abspeichert.
Mit...
25.12.2008 11:29:01
Thread-ID: 1035169
13 Beiträge
Durchlaufen von Makros verhindern
Makros

Hallo,
ich wüsste gerne, warum ein Makro einfach zwischendurch andere Makros durchläuft und würde das gerne abstellen.
So z.B. möchte ich mit einem Makro in einem Userform alle Einträge in den Feldern löschen. Ein anderes Makro pfüft, ob in einem Feld etwas steht und führt dann eine Akt...
17.01.2009 13:45:21
Thread-ID: 1040892
10 Beiträge
Zeilen durchlaufen und Wert rausholen und kopien
Loen

Hallo Excel Gemeinde,
wie kann ich denn folgende Abfrage per Makro machen:
(Das Ergebnis soll nachher in B34 stehen)
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 leer ist, NICHTS machen.
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 NICHT leer ist, soll dieser Eintrag (C34)...
03.02.2009 20:48:41
Thread-ID: 1046782
5 Beiträge
Anzeige
Spalte durchlaufen und multiplitzieren
Roland

Hi,
wie kann ich die Spalte S mit einem Makro von 5 bis 1000 durchlaufen und dabei jeden gefundenen Wert mit 5 multiplitzieren ?
Danke Roland
08.02.2009 23:55:26
Thread-ID: 1048526
5 Beiträge
Anzeige
Spalte mit Schleife durchlaufen und Daten ergänzen
Kai

Hi
ich möchte mit einem Makro (keine Formel) die Spalte C durchsuchen. Wenn in dieser Spalte der Text "IN" gefunden wird , soll ich der gleiche Zeile in Spalte V "Eingang" stehn, Wenn in Spalte C "OUT" gefunden wird , dann soll in V "Ausgang" stehn. Ist C leer, dann V auch leer lassen.
10.03.2009 13:20:41
Thread-ID: 1058636
8 Beiträge
Spalte durchlaufen, Doppel suchen, dann Eintrag
Mandy

Hi,
ich möchte per VBA in meinem Sheet "Ablage" die Spalte E durchsuchen. Dort sind Datensätze mit gleichen Einträgen drin. (Mehrfache) Sind aber nicht immmer untereinander und ich weis nur, mein Range geht bis 750
Überall, wo ich in E mindestens 2 gleich finde, soll in Spalte L in der...
09.04.2009 15:56:44
Thread-ID: 1068053
13 Beiträge
Arbeitsblätter durchlaufen und Inhalt sortieren
Thomas

Hallo Spezialisten,
mit folgendem Code formatiere ich alle Arbeitsbätter in einer Datei. Ich will d. Code so erweitern, dass die in allen Arbeitsblättern enthaltenen Tabellen nach Spalte A aufsteigend sortiert werden. Aber es wird nur die Tabelle im ersten Blatt sortiert. Was mache ich fal...
13.08.2009 23:17:30
Thread-ID: 1095833
3 Beiträge
Ständiges Durchlaufen von Makros verhindern
Makros

Hallo,
ich hatte es schon mal gesehen, kann es aber gerade nicht wiederfinden.
Welche Fuknktion verhindert, dass ständig ein Makro (by Change) durchlaufen wird.
Wäre toll, wenn mir da jemand helfen könnte.
Viele Grüße,
Larissa
30.09.2009 21:11:11
Thread-ID: 1106546
3 Beiträge
Spalten durchlaufen, wenn leer, löschen
Joachim

Hallo,
Ich möchte per Makro mein Datenbestand überprüfen: ab Zeile 20 sollen alle Zeilen überprüft werden , ob entweder die Zelle B UND Zelle L leer sind.
Wenn beide leer sind, soll diese Zeile gelöscht werden. Und weiter gehts...
Hat dazu jemand ein Beispiel ?
Dank Euch mal
03.11.2009 14:39:29
Thread-ID: 1114151
5 Beiträge
Speichern wird 2 mal durchlaufen, Fehlermeldung
DirkR

Hallo Excelgemeinde,
ich habe (leider) noch ein Problem und bitte um eure Hilfe.
Ich habe folgenden Code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim DVD As String, CDFront As String, CDBack As String DVD = Sheets("DVD Cover").Cells(1, 2) MsgBox DVD...
22.03.2010 10:03:39
Thread-ID: 1147512
3 Beiträge
Anzeige
numberformat wird durchlaufen aber n. zugewiesen
Peter

Guten Tag
https://www.herber.de/bbs/user/71355.xls
Je nach Eingabe der Währung in Zelle J5 einer Tabelle (JPY oder CHF) sollen bestimmte Zellen anders formatiert werden. Bei einer Änderung wird nachstehender Code wirklilch durchlaufen (mit Haltepunkten überprüft), doch die Zellformate...
02.09.2010 11:45:37
Thread-ID: 1175416
13 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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