TextBox

Ernst · 2008-05-28T10:42:00+00:00

Hallo !.....VBA Profis ich verwende folgende TextBox und möchte gerne den gesuchten Eintrag ( Zelle) in Farbe dargestellt haben wie müsste der Code geändert werden ? Das Blatt ist mit einem Blattschutz versehen. Bei Verlassen der Zelle sollte wieder die Ursprungsfarbe erscheinen........ Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) b = TextBox1.Value c = Len(b) x = y If KeyCode = 13 Then If c > 1 Then On Error GoTo ende Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate 'Range("P104").Value = b 'TextBox1.Value = "" Exit Sub ende: 'TextBox1.Value = "" MsgBox "Wagen Nr. nicht vorhanden !!" End If End If End Sub

Hallo Ernst,
das ist nicht ganz einfach.
1. Du muss in einem allgemeinen Modul einige Variablen als Pubblic deklarieren
2. Du muss im Modul "DieseArbeitsmappe" eine Workbook_BeforeClose-Ereignisprozedur einfügen
3. Du muss den Code für das Tabellenblatt-Modul anpassen und
eine Worksheet_SelectionChange- und eine Worksheet_Deactivate Prozedur ergänzen
Schaut dann etwa wie folgt aus.
Gruß
Franz


'### Allgemeines Modul
'Variablendeklarationen
Public oldFarbe As Long
Public LastAuswahl As Range
'### Modul - DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not LastAuswahl Is Nothing Then
LastAuswahl.Interior.ColorIndex = oldFarbe
Set LastAuswahl = Nothing
ThisWorkbook.Save
End If
End Sub
'##Tabelenblatt-Modul
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim b As Variant, c As Integer, objZelle As Range
b = TextBox1.Value
c = Len(b)
'x = y ist wohl überflüssig
If KeyCode = 13 Then
If c > 1 Then
On Error GoTo ende
Set objZelle = Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If objZelle Is Nothing Then
MsgBox "Wagen Nr. nicht vorhanden !!"
Else
Application.EnableEvents = False
objZelle.Activate
Set LastAuswahl = objZelle                'Zelle merken
oldFarbe = objZelle.Interior.ColorIndex   'Farbe Merken
objZelle.Interior.ColorIndex = 6 'gelb
Application.EnableEvents = True
'Range("P104").Value = b
'     TextBox1.Value = ""
End If
Exit Sub
ende:
'TextBox1.Value = ""
End If
End If
End Sub
Private Sub Worksheet_Deactivate()
If Not LastAuswahl Is Nothing Then
LastAuswahl.Interior.ColorIndex = oldFarbe
Set LastAuswahl = Nothing
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not LastAuswahl Is Nothing Then
If Target.Address  LastAuswahl.Address Then
LastAuswahl.Interior.ColorIndex = oldFarbe
Set LastAuswahl = Nothing
End If
End If
End Sub

Hallo Ernst,
Bastelstunde Teil 2 ist abgeschlossen.
Ich hab die Prozedur der Textbox noch so geändert, das ggf. vor dem Setzen einer neuen Markierung geprüft wird, ob noch eine Markierung vorhanden ist.
Unter DieseArbeitsmappe findest du die Prozedur Workbook-BeforePrint, die vor dem Drucken eine Markierung im Blatt Werktag zurücksetzt.
https://www.herber.de/bbs/user/52696.zip
Bezüglich ListBox-Problem:
Damit der vorherige Wert einer Listbox-Auswahl wieder gewählt wird, muss Excel wissen wo es diesen Wert finden kann.
Dies kann sein:
1. eine verknüpfte Zelle. Da geht es dann automatisch.
2. der Inhalt einer Zelle (nicht verknüpft!!) in einem Tabellenblatt.
Dies kann eine bestimmte Zelle sein oder Excel soll sie an Hand von Kriterien (Tabelle1, Spalte C, letzte ausgefüllte Zeile)
3. Der Inhalt einer in einem allgemeinen Modul als Global deklarierten Variablen in der Wert der Variablen beim Schließen des Formulars gespeichert wird.
4. Ein Userform wird beim Beenden der Userform nur ausgeblendet mit
UserformX.Hide
statt mit
Unload UserformX
Entleert
Dann wird ein Userform mit den zuletzt eingestellten werten wieder angezeigt.
Die Varianten 3 und 4 liefern nach dem Öffnen der Datei bei der 1. Anzeige des Userforms natürlich noch keine Listenauswahl, da noch keine Werte gespeichert sind.
Bei den Varianten 2 und 3 muss dann in der Initialisierungsprozedur den List- bzw. Comboboxen der Wert zugewiesen werden, nachdem ggf. die Auswahllisten per AddItem generiert worden sind.
Welche Variante erforderlich oder möglich ist muss du entscheiden.
Gruß
Franz

Forumthread: TextBox

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

TextBox

Forumthread: TextBox

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread