Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelle einer Spalte markieren mit Textbox

Zelle einer Spalte markieren mit Textbox
13.03.2006 16:15:37
MathiasW
Hallo Excel Profis,
habe eine kleine Frage.
Ich habe in meiner Excel Datei 6 Spalten.
Mich inetressiert hier die Spalte A im Bereich
von A3:A3000 stehen verschiedene Namen.
Habe ich eine Textbox1 eingefügt.
Erreichen möchte ich das wenn ich in diese Textbox den Namen
oder besser nach jedem einzelnden Buchstaben den ich eintippe
automatisch die Zelle markiert wird wo die bis dahin eingetippen
Anfangsbuchtstaben übereinstimmen selektiert wird.
weiss jemand wie das geht.
vielen Dank Mathias
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle einer Spalte markieren mit Textbox
13.03.2006 16:35:35
Hoffi
Hallo Mathias,
erstelle Dir eine Userform mit einer Textbox Name: txtBegr
Nachfolgenden Code in die Userform kopieren:

Private Sub txtBegr_Change()
Dim Begr As String
Dim rFind As Range
Begr = txtBegr.Text
Set rFind = Columns(1).Find(Begr) 'Spalte ggf. anpassen (1) = A
If Not rFind Is Nothing Then
With rFind
.Cells.Select
Exit Sub
End With
End If
End Sub

Im aktuellen Blatt wird in Spalte A nach Deiner Eingabe gesucht und gleichzeitig die Zelle selectiert.
Grüße
Hoffi
P.S. Rückmeldung wäre nett...
Anzeige
AW: Zelle einer Spalte markieren mit Textbox
13.03.2006 16:47:58
MathiasW
Hallo Hoffi,
ich habe die Textbox direkt auf dem Excelsheet eingefügt
und das Blatt ab Zeile 3 fixiert, so ist die Textbox immer zusehen.
Ist es auch möglich die Textbox direkt von dem Excelblatt anzusteuern.
MfG
Mathias
aber erstmal vielen Dank :-)
AW: Zelle einer Spalte markieren mit Textbox
13.03.2006 17:00:24
MathiasW
Nachtrag:
Ist auch noch möglich die selektierte Zelle Blau zu hinterlegen,
solange sie markiert ist?
Gruss Mathias
Anzeige
AW: Zelle einer Spalte markieren mit Textbox
14.03.2006 00:41:31
Mustafa
Hallo Mathias,
hab den Code mal was geändert.
Die Aktive Zelle wird jetzt Blau gefärbt.

Private Sub txtBegr_Change()
Dim Begr As String
Dim rFind As Range
Dim rFindalt As Range
Begr = txtBegr.Text
ActiveCell.Interior.ColorIndex = xlNone
Set rFind = Columns(1).Find(Begr) 'Spalte ggf. anpassen (1) = A
If Not rFind Is Nothing Then
With rFind
.Cells.Select
.Interior.ColorIndex = 5
End With
End If
End Sub

Rückmeldungen sind immer gerne gesehen.
Viele Grüße aus Köln.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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