Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

add-in zur Zeilennummerierung in VBA

Forumthread: add-in zur Zeilennummerierung in VBA

add-in zur Zeilennummerierung in VBA
26.08.2005 11:49:49
Stefan
Hallo Excelfreunde,
kennt jemand ein add-in, welches die Zeilen meines Excel-Codes pozedurweise automatisch nummerieren kann?
Danke für Eure Hilfe
Stefan.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: add-in zur Zeilennummerierung in VBA
26.08.2005 12:00:33
Nepumuk
Hi,
nein, ist aber auch nicht besonders schwer so was selbst zu schreiben. Aber wozu eigentlich?
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: add-in zur Zeilennummerierung in VBA
26.08.2005 12:38:52
Stefan
Hi,
für diesen Code (habe ich irgendwo aus dem Forum):

Sub Test()
Dim x As Long, y As Long
10 On Error GoTo Fehler
20 x = 20
30 y = 99 - 99
40 x = x / y
50 MsgBox "Zahl: " & x
Ende:
60 Exit Sub
Fehler:
70 MsgBox "Es trat der Fehler... '" & Err.Description & "' auf.", _
vbCritical, "Fehler in Zeile " & Erl
80 Resume Ende
End Sub

Weiterhin wollte ich prozedurweit eine Konstante mit dem jeweiligen Prozedurnamen erstellen und modulweit eine Konstante mit dem Modulnamen.
Dann soll zentral im Projekt eine Fehlerbehandlung erfolgen.
(natürlich nicht eine blabla-Meldung, sondern schon sehr differenziert).
Ich möchte den genauen Ausstiegspunkt wissen (Modul,Prozedur,Zeile) und daran geknüpft die Fehlerbehandlung starten.
Gruß
Stefan.
Anzeige
AW: add-in zur Zeilennummerierung in VBA
26.08.2005 12:44:39
Nepumuk
Hi Stefan,
an die Zeilennummer kommst du nicht ran. Die müsstest du, wie den Modulnamen und den Prozedurnamen in einer öffentlichen Variablen mitführen. Sprich in jeder Zeile deiner Makros neu setzen. Kein vergnügliches Unterfangen, vor jede Codezeile eine Zeile einzufügen, in welcher du eine Variable hoch zählst.
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: add-in zur Zeilennummerierung in VBA
26.08.2005 13:02:29
Nepumuk
Hi Stefan,
die kannte ich noch nicht. Danke für den Link. Dafür schreib ich dir ein Makro zum nummerieren der Zeilen. Kann aber Nachmittag werden.
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: add-in zur Zeilennummerierung in VBA
26.08.2005 13:06:16
Stefan
Hi Nepumuk,
Ich Danke DIR.
Gruß
Stefan.
Anzeige
AW: add-in zur Zeilennummerierung in VBA
26.08.2005 13:34:39
u_
Hallo,
das habe ich mal irgendwo gefunden:

Sub MakroNummerieren()
Dim vbc As Object
Dim iRow As Integer, iCol As Integer, iCounter As Integer, iNumber As Integer
Dim bol


Sub As Boolean
Dim strNumber As String
bol


Sub = False
For Each vbc In ActiveWorkbook.VBProject.VBComponents
With vbc.CodeModule
For iCounter = 1 To .CountOfLines
If .ProcOfLine(iCounter, 0) > "" Then
If .Lines(iCounter, 1) Like "Sub*" Then
bol


Sub = True
iNumber = 10
strNumber = Format(iNumber, "000000") & ":"
GoTo next_iCounter
End If
If .Lines(iCounter, 1) = "End Sub

" Then

                  bol


Sub = False
GoTo next_iCounter
End If
If bol


Sub = True Then
If Right(.Lines(iCounter - 1, 1), 1) <> "_" Then
.replaceline iCounter, strNumber & .Lines(iCounter, 1)
iNumber = iNumber + 10
strNumber = Format(iNumber, "000000") & ":"
End If
End If
End If
next_iCounter:
Next iCounter
End With
Next vbc
End Sub



Gruß

Geist ist geil!
Anzeige
AW: add-in zur Zeilennummerierung in VBA
Stefan
Danke.
Eigentlich nicht schlecht.
Klappt aber in der Form nur beim ersten mal. (Neunummerierung müsste erst die alten Nummern entfernen).
Ich werde mich mal bemühen, das hinzubekommen.
Kommentar- und Leerzeilen auslassen wäre auch noch schön.
Lange Nacht.
Stefan.

Hallo Sefan,
ist doch garnicht so schwer:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Sub Zeilennummerierung()
    Dim intModulCount As Integer, intLine As Integer
    Dim intColumn As Integer, intLineCounter As Integer
    Dim strModulname As String
    Dim bolUnderscore As Boolean, bolSelect As Boolean
    With ActiveWorkbook.VBProject
        For intModulCount = 1 To .VBComponents.Count
            With .VBComponents(intModulCount).CodeModule
                For intLine = .CountOfDeclarationLines + 1 To .CountOfLines
                    If Trim$(.Lines(intLine, 1)) <> "" And _
                        Left$(Trim$(.Lines(intLine, 1)), 1) <> "'" Then
                        If .ProcOfLine(intLine, 0) <> strModulname Then
                            strModulname = .ProcOfLine(intLine, 4)
                            intLineCounter = 0
                            If Left$(Trim$(StrReverse(.Lines(intLine, 1))), 1) = "_" _
                                Then bolUnderscore = True Else bolUnderscore = False
                        Else
                            If InStr(1, "End Sub End Function End Property", _
                                .Lines(intLine, 1)) = 0 Then
                                If Not bolUnderscore And Not bolSelect Then
                                    If Left$(Trim$(StrReverse(.Lines(intLine, 1))), 1) = "_" Then _
                                        bolUnderscore = True
                                    If InStr(1, .Lines(intLine, 1), "Select Case") <> 0 Then _
                                        bolSelect = True
                                    If IsNumeric(Left$(.Lines(intLine, 1), 1)) Then
                                        For intColumn = 1 To Len(.Lines(intLine, 1))
                                            If Not IsNumeric(Left$(.Lines(intLine, 1), intColumn)) Then
                                                Exit For
                                            End If
                                        Next
                                        .ReplaceLine intLine, String(intColumn - 1, " ") & _
                                            Mid$(.Lines(intLine, 1), intColumn)
                                    End If
                                    intLineCounter = intLineCounter + 1
                                    If Trim$(Left$(.Lines(intLine, 1), _
                                        Len(Trim(intLineCounter)) + 2)) = "" Then
                                        .ReplaceLine intLine, Mid$(.Lines(intLine, 1), _
                                            Len(Trim(intLineCounter)) + 2)
                                    Else
                                        .ReplaceLine intLine, Trim$(.Lines(intLine, 1))
                                    End If
                                    .ReplaceLine intLine, Trim$(CStr(intLineCounter)) & " " _
                                        & .Lines(intLine, 1)
                                Else
                                    If Left$(Trim$(StrReverse(.Lines(intLine, 1))), 1) <> "_" _
                                        Then bolUnderscore = False
                                    If InStr(1, .Lines(intLine, 1), "Case") <> 0 Then _
                                        bolSelect = False
                                End If
                            Else
                                strModulname = ""
                            End If
                        End If
                    End If
                Next
            End With
        Next
    End With
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele

cool.
Schwer nicht, aber ich hätte trotzdem Stunden gebraucht.
Außerdem habe ich ab Verschachtelungstiefe 10 so meine Probleme. Und die nicht nur beim Sprechen.
Gruß, Dank und schönes Wochenende.
Stefan Krähe
Anzeige

Forumthreads zu verwandten Themen

Laufzeitfehler 9 Addins Analysis ToolPak
SeppAllroad
Hallo,

wir benutzen eine Excel Tabelle um einen reibungslosen Übergang zwischen verschiedenen Abteilungen zu besprechen.

Diese Tabelle benutzen wir schon länger (Jahre).

Manche Pc können nun die Datei nicht mehr öffnen ohne den Fehler
„Laufzeitfehler 9 Index außerha...
08.08.2025 10:14:13
Thread-ID: 2017002
1 Beitrag
Analysis-Toolpak
Tino Schaltke
Hallo,

in der Firma wurde auf Office XP umgestellt. Nun hab ich in einigen Tabellen das Problem, dass die Funktion "KALENDERWOCHE" nicht funktioniert. In der Hilfe (auf deutsch) steht, dass man die Analysefunktionen als AddIn aktivieren soll (was für mich ja klar war...). Nur leider gibt es...
03.09.2003 11:42:15
Thread-ID: 303958
1 Beitrag
Zeilennummer automatisch verschieben
oblivion

Hallo, wollte mal wissen ob man die Zeilennummer automatisch erhöhen kann, wenn man eine Formel nach rechts zieht.
Ich habe daten in einer Tabelle untereinader stehen.
In einer 2. Tabelle brauche ich die gleíchen Daten aber waagerecht.
Wenn ich die Formel =Tabelle1!$A1 nach rechts z...
31.08.2008 15:22:00
Thread-ID: 1006181
11 Beiträge
Zeilennummer in Verweis
David

Hallo zusammen,
wie kann ich einen Verweis in der Form
=AnderesTabblatt!A&Zeile() schreiben?
Die Zeilennummer im anderen Tabellenblatt,
Spalte A soll also der Zeilennummer der Zelle
entsprechen, in der das Ergebnis ausgegeben
werden soll.
Danke und Gruß
David...
27.10.2008 10:43:00
Thread-ID: 1019547
1 Beitrag
Wert einer Variablen als Zeilennummer zuweisen
Orabub

Hallo zusammen,
ich habe in einem VBA Code für Excel (2003) einer Variablen die Zeilennummer einer Zelle zugewiesen.
b = cell.Row funktioniert!
Nach der Berechnung möchte ich gerne den Wert einer Variablen als neue Zeilennummer zurückgeben.
cell.Row = b funktioniert aber nich...
21.01.2009 16:53:40
Thread-ID: 1042256
2 Beiträge
Wert einer Variablen als Zeilennummer zuweisen
Orabub

Hallo zusammen,
ich habe in einem VBA Code für Excel (2003) einer Variablen die Zeilennummer einer Zelle zugewiesen.
b = cell.Row funktioniert!
Nach der Berechnung möchte ich gerne den Wert einer Variablen als neue Zeilennummer zurückgeben.
cell.Row = b funktioniert aber nich...
21.01.2009 16:55:18
Thread-ID: 1042257
1 Beitrag
Anzeige
Wert einer Variablen als Zeilennummer zuweisen
Orabub

Hallo zusammen,
ich habe in einem VBA Code für Excel (2003) einer Variablen die Zeilennummer einer Zelle zugewiesen.
b = cell.Row funktioniert!
Nach der Berechnung möchte ich gerne den Wert einer Variablen als neue Zeilennummer zurückgeben.
cell.Row = b funktioniert aber nich...
21.01.2009 17:00:00
Thread-ID: 1042265
6 Beiträge
Doppelter Datensatz mit Zeilennummer auflisten
Bernd

Hallo,
ich würde gerne Eine Excelliste nach Doppelten Datensätzen durchsuchen, Kriterium sollte die Werte in Spalte D sein. Dabei sollten dann in einer Zelle das Ergebnis dieser Suche in dieser Form in der Zelle A2 dargestellt werden:
Doppelte Datensätze in Zeile: 14, 17, 56, 60 usw....
24.04.2009 16:31:43
Thread-ID: 1070975
9 Beiträge
letzte Spaltennummer - Zeilennummer Bereich
Peter

Guten Abend
Ich meinte dies schon mal gesehen zu haben.
Formeln - ohne Einsatz von VBA - die mir die letzte Zeilennummer resp. die letzte Spaltennummer, resp. den letzten Spaltenbuchstaben eines benannten Bereiches ausgeben.
Beispiel, benannter Bereich: Test bezieht sich Tabelle1!...
10.06.2009 23:01:56
Thread-ID: 1080613
3 Beiträge
suchfunktion zeilennummer
amintire

Hallo alle zusammen,
ich möchte einen Wert suchen und die Zeilennummer rausbekommen.
A1 = Suchbegriff
B1 = Zeilennummer (Suchbegriff ist in Tabelle2 bei Spalte 1)
Hoffe jemand hat eine Lösung für die Formel.
Vielen Dank.
Gruß amintire
28.12.2009 23:51:48
Thread-ID: 1126146
7 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum