TextBox

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TextBox

28.05.2008 13:57:45

fcs

AW: TextBox

28.05.2008 14:29:28

Ernst

AW: TextBox

28.05.2008 15:54:55

fcs

AW: TextBox

28.05.2008 18:02:00

weingartner

AW: TextBox

29.05.2008 08:41:00

fcs

AW: Perfekt !

29.05.2008 09:36:37

Ernst

AW: TextBox

29.05.2008 10:15:00

Ernst

AW: TextBox

29.05.2008 14:50:28

fcs

AW: TextBox

29.05.2008 17:15:00

weingartner

AW: TextBox

29.05.2008 17:38:25

fcs

AW: TextBox

29.05.2008 21:24:00

weingartner

AW: Perfekt !

30.05.2008 08:19:48

Ernst

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

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

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBox

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread