Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Aletsss vom 27.09.2022, 13:46 Options

Exel, Makro, in Spalte Springen, mit bestimmtem Inhalt springen

Hallo zusammen,

ich habe eine Tabelle erstellt, quasi ein Abkürzungsverzeichnis, und möchte jetzt in der Kopfzeile eine Reihe Buttons einfügen, die dann in die entsprechende Zeile springen.

Also, wenn man auf den Button A klickt, dann soll er in die erste Zeile springen, in der die Abkürzungen mit A stehen. Ich habe hierfür eine Spalte eingefügt, in der ich immer eben in dieser Zeile "A", bzw. "B" ... reingeschrieben habe.

Ich brauche also ein Makro, das die Spalte A nach dem Text "A", bzw. "B", "C"... durchsucht und dann in die entsprechende Zeile springt.

Danke im Vorraus ; )

P.S.: gibt es eine Seit, auf der man solche "standard"-Codes finden kann? Ich hab nämlich nichts richtiges gefunden.

Aletsss

Antwort schreiben

Antwort 1 von coros vom 27.09.2022, 15:36 Options

Hallo Aletsss,

nachfolgend mal eine ganz einfache Lösung.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit Dim lngLastRow As Long Sub Suchen_A() For lngLastRow = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row If LCase(ActiveSheet.Cells(lngLastRow, 1)) = LCase("A") Then ActiveSheet.Cells(lngLastRow, 1).Activate Exit For End If Next lngLastRow End Sub Sub Suchen_B() For lngLastRow = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row If LCase(ActiveSheet.Cells(lngLastRow, 1)) = LCase("B") Then ActiveSheet.Cells(lngLastRow, 1).Activate Exit For End If Next lngLastRow End Sub Sub Suchen_C() For lngLastRow = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row If LCase(ActiveSheet.Cells(lngLastRow, 1)) = LCase("C") Then ActiveSheet.Cells(lngLastRow, 1).Activate Exit For End If Next lngLastRow End Sub
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken