Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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...
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 :-)
Anzeige
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
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

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige