Inhaltsverzeichnis
Wir können Zeilennummern in Excel auf viele Arten finden, aber VBA bietet mehr Funktionen und Anpassungen, mit denen wir Zeilennummern auf intelligente Weise finden können. Heute wird dieser Artikel 4 nützliche Makros zeigen, um Zeilennummern in Excel mit VBA zu finden.
Download Arbeitsbuch Praxis
Sie können die kostenlose Excel-Arbeitsmappe von hier herunterladen und selbständig üben.
Zeilennummer mit VBA finden.xlsm4 Makros zum Suchen von Zeilennummern mit VBA in Excel
Lernen Sie unseren Datensatz kennen, den wir verwenden werden, um die Methoden zu untersuchen, die einige Verkäufe von Verkäufern in verschiedenen Regionen darstellen.
Makro 1: VBA zum Suchen der Zeilennummer durch Ändern der Auswahl
Zunächst verwenden wir ein Makro in Excel VBA um die Zeilennummer zu finden, indem Sie eine beliebige Zelle auswählen. Das bedeutet, dass das Makro die Zeilennummer sofort anzeigt, wenn Sie eine beliebige Zelle auswählen. Dazu müssen Sie die Codes in einem Blatt aufbewahren , nicht im Modul.
Schritte:
- Klicken Sie mit der rechten Maustaste auf den Blatttitel und wählen Sie Code anzeigen von der Kontextmenü .
- Schreiben Sie dann die folgenden Codes.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "Die Zeilennummer der angeklickten Zelle ist: " & Rnumber End If End Sub - Später brauchen Sie die Codes nicht mehr auszuführen, gehen Sie einfach zu Ihrem Blatt zurück.
Code-Aufschlüsselung:
- Zunächst habe ich eine Privatunter Verfahren - Arbeitsblatt_SelectionChange .
- Dann deklarieren Sie eine Variable RNummer als Integer .
- Zeile wird die Zeilennummer der aktiven Zelle bestimmt.
- Als nächstes wird die Wenn Anweisung prüft die aktive Zelle, ob sie leer ist oder nicht, und dann MsgBox wird die Ausgabe angezeigt.
- Klicken Sie nun einfach auf eine beliebige Zelle und die Zeilennummer wird angezeigt.
Lesen Sie mehr: Excel VBA: Zeichenfolge in Spalte suchen und Zeilennummer zurückgeben
Makro 2: Zeilennummer einer aktiven Zelle mit VBA ermitteln
Dieses Makro gibt die Zeilennummer einer aktiven Zelle in einer bestimmten Zelle unseres Blattes zurück. Wir müssen also den Namen des Arbeitsblatts und die Ausgabezelle in unseren Codes angeben. Hier verwenden wir Zelle D14 als unsere Ausgangszelle.
Schritte:
- Presse ALT + F11 zum Öffnen des VBA-Fenster .
- Klicken Sie dann wie folgt, um ein neues Modul einzufügen: Einfügen> Modul .
- Geben Sie anschließend die folgenden Codes in das Modul-
Sub Find_Row_Number_of_an_Active_Cell() Dim wSheet As Worksheet Set wSheet = Worksheets("Active Cell") wSheet.Range("D14") = ActiveCell.row End Sub - Dann wenden Sie sich wieder Ihrem Blatt zu.
Code-Aufschlüsselung:
- Hier, Find_Row_Number_of_an_Active_Cell() ist die Unter
- Die wSheet wird als eine Arbeitsblatt
- Dann wird die Satz Anweisung wird die aktive Zelle ausgewählt
- Bereich gibt die Zeilennummer in der Ausgabezelle zurück.
- Markieren Sie nun eine Zelle und klicken Sie wie folgt: Entwickler> Makros .
- Nach dem Erscheinen in der Makro wählen Sie einfach den Makronamen aus und drücken Sie ausführen. .
Kurz darauf werden Sie sehen, dass die Zeilennummer der ausgewählten Zelle in unserer Ausgabezelle zurückgegeben wird.
Sie können sehen, dass die B8 Zelle wurde ausgewählt, also ist 8 die Ausgabe.
Lesen Sie mehr: Wie man die Zeilennummer der aktuellen Zelle in Excel abruft (4 schnelle Wege)
Ähnliche Lektüre
- Wie man die Zeilennummer in einer Excel-Formel erhöht (6 praktische Methoden)
- Zeilennummer aus Bereich mit Excel VBA abrufen (9 Beispiele)
- Rückgabe der Zeilennummer einer Zellenübereinstimmung in Excel (7 Methoden)
- Wie man die Zeilennummer aus dem Zellwert in Excel erhält (5 Methoden)
Makro 3: VBA zum Finden der Zeilennummer durch Übereinstimmung mit einem Wert
Wenn Sie die Zeilennummer durch die Suche nach einem Wert finden wollen, ist dieses Makro genau das Richtige für Sie. Sie müssen den Suchwert und die Spaltennummer in den Codes angeben, wie in der folgenden Abbildung gezeigt.
Schritte:
- Befolgen Sie die ersten beiden Schritte der vorherigen Methode um ein neues Modul einzufügen.
- Fügen Sie dann die folgenden Codes ein.
Sub Find_Row_Matching_a_Value() Dim wBook As Workbook Dim wSheet As Worksheet Dim fCell As Range Set wBook = ActiveWorkbook Set wSheet = ActiveSheet Const Matching_Value As String = "Luka" Set fCell = wSheet.Range("B:B").Find(What:=Matching_Value) If Not fCell Is Nothing Then MsgBox (Matching_Value & " befindet sich in Zeile: " & fCell.row) Else MsgBox (Matching_Value & " Not matched") EndIf End Sub - Danach kehren Sie zu Ihrem Blatt zurück.
Code-Aufschlüsselung:
- Hier ist die Funktion Find_Row_Matching_a_Value() die Unter
- Und wBook und wSheet werden deklariert als Arbeitsblatt und fZelle wird deklariert als Bereich .
- Die wBook und wSheet sind eingestellt für ActiveWorkbook und ActiveSheet .
- Konst nimmt die Eingabe für den Suchwert entgegen.
- Später, Bereich sucht den Wert in der genannten Spalte.
- Als nächstes wird die Wenn und Sonst Anweisung zeigt das Ergebnis mit MsgBox .
- Später, Folgen Sie dem 5. Schritt der vorherigen Methode zum Öffnen des Makro Dialogfeld.
- Wählen Sie die Makroname und drücken Sie einfach ausführen. .
In Kürze wird Ihnen in einem Benachrichtigungsfeld die Zeilennummer angezeigt.
Lesen Sie mehr: Excel VBA: Zeilennummer des Wertes zurückgeben (5 geeignete Methoden)
Makro 4: Schaltfläche zum Suchen der Zeilennummer
In unserer letzten Methode zeigen wir Ihnen die intelligenteste Methode zur Bestimmung einer Zeilennummer mit VBA Wir erstellen eine Schaltfläche und weisen ihr ein Makro zu. Wenn wir auf die Schaltfläche klicken, öffnet sich ein Eingabefeld, in das wir den Suchwert eingeben können, für den wir die Zeilennummer benötigen. Das vorherige Makro konnte eine bestimmte Spalte durchsuchen, aber dieses Makro kann jede beliebige Spalte in der Tabelle durchsuchen.
Schritte:
- Führen Sie erneut die ersten beiden Schritte der zweiten Methode aus um ein neues Modul einzufügen.
- Fügen Sie dann die folgenden Codes ein.
Sub Find_Row_Number() Dim mValue As String Dim mrrow As Range mValue = InputBox("Insert a value") Set mrrow = Cells.Find(What:=mValue, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If mrrow Is Nothing Then MsgBox ("No Match") Else MsgBox (mrrow.row) End If End Sub - Gehen Sie dann zurück zu Ihrem Blatt.
Code-Aufschlüsselung:
- Zunächst habe ich eine Unter Prozedur Find_Row_Number().
- Dann werden zwei Variablen deklariert, mWert als Zeichenfolge und Zeile als Bereich .
- Dann wurde die Eingabefeld um einen Wert einzufügen.
- Später wird die Satz und Wenn Anweisung findet die Zeilennummer, wenn sie nicht leer ist.
- Schließlich ist die MsgBox wird die Ausgabe angezeigt.
- Später, klicken Sie auf Entwickler> Einfügen und wählen Sie dann die Schaltfläche Befehl aus dem Abschnitt Formularsteuerungen .
- Dann erhalten Sie eine Pluszeichen Ziehen Sie mit dem Cursor eine beliebige Stelle auf Ihrem Blatt in der gewünschten Größe und lassen Sie dann den Klick los.
- Nach dem Loslassen der Maus wird die Makro zuweisen Dialogfeld wird automatisch geöffnet.
- Wählen Sie die Makroname wie in den Codes erwähnt.
- Dann drücken Sie einfach OK .
- Klicken Sie anschließend mit der rechten Maustaste auf die Schaltfläche und wählen Sie Text bearbeiten um den Namen der Schaltfläche zu bearbeiten.
- Geben Sie den Namen der Schaltfläche ein und klicken Sie dann auf eine beliebige Stelle außerhalb der Schaltfläche, um den Namen zu ändern.
- Klicken Sie nun auf die Schaltfläche, es öffnet sich ein Eingabefeld.
- Zum Schluss geben Sie einfach den Suchwert ein und drücken OK .
Nun sehen Sie, dass die Zeilennummer des übereinstimmenden Wertes angezeigt wird.
Lesen Sie mehr: Zeichenfolge in Spalte suchen und Zeilennummer in Excel zurückgeben (7 Möglichkeiten)
Schlussfolgerung
Das ist alles für diesen Artikel. Ich hoffe, die oben beschriebenen Verfahren sind gut genug, um Zeilennummern in Excel mit VBA zu finden. Fühlen Sie sich frei, jede Frage im Kommentarbereich zu stellen und geben Sie mir bitte Feedback. Besuchen Sie ExcelWIKI, um mehr zu erfahren.
