UserForm Verschachtellung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() MsgBox "Rückgängig nicht möglich!", 1, "Hinweis!" '*** Application.ScreenUpdating = False With Sheets("Tabelle1") .Unprotect lz = .Range("B6:B65536").Find(What:=lblID.Value, LookIn:=xlValues, LookAt:=xlWhole).Row _ 'Sucht die frtlfd. Nummer .Cells(lz, 3) = CDate(TextBoxDatum) '*#* .Protect End With Unload Me Unload UF_Suchen Application.ScreenUpdating = True End Sub

Option Explicit Private Sub CommandButton1_Click() Dim lz As Long If MsgBox("Rückgängig nicht möglich!", vbOKCancel, "Hinweis!") = vbOK Then Application.ScreenUpdating = False With Sheets("Tabelle1") .Unprotect 'Sucht die frtlfd. Nummer lz = .Range("B6:B65536").Find(What:=lblID.Value, _ LookIn:=xlValues, LookAt:=xlWhole).Row .Cells(lz, 3) = CDate(TextBoxDatum) '*#* .Protect End With Unload Me Unload UF_Suchen Application.ScreenUpdating = True Else ' Was soll bei "Abbrechen" geschehen? End If End Sub

Moin Erich!!
JAAA! ...die OK-Button-Steuerung soll so sein! Dafür vielen Dank!
Aber (...wieder mal ein "Aber" von mir...) darf ich Dich bitten, Deine Aufmerksamkeit auf die Zeile ".Cells(lz, 3) = CDate(TextBoxDatum) '*#*" zu lenken.
Dazu vorweg:


Was ist lblID? (Wohl kein Label - das hätte keinen Value.)

...das ist eine TextBox die eine bis dahin "durchgeschliffene" Nummer enthält. Anhand dieser Nummer und dem Dir vorliegenden Skript finde ich eine feste Zeile in der Tabelle1, die in der Spalte B diese Nummer enthält.
Das funktioniert wunderbar! ...und ich möchte nun, dass die nun gefundene Zeile in der Tabelle1 von der Spalte B bis P markiert und dann eine Formatierung vornimmt. Die Formatierung soll sein: Schrift Grau (Code 48) und die Schrift 1x durchgestrichen.
Und das müßte nach meinen Verständnis dort realisiert werden, wo die Zeile ".Cells(lz, 3) = CDate(TextBoxDatum) '*#*" steht.
---------------------


' Was soll bei "Abbrechen" geschehen?

...hattest Du in das Skript hinein geschrieben. Ich glaube, das macht der Abbrechen-Button schon: Er macht die MsgBox einfach zu und das UserForm ist weiterhin sichtbar. Also: Der Abbrechen-Button soll die MsgBox einfach schließen.
---------------------
Ach ja, Erich: Warum ist es so wichtig, "Option Explicit" zu Beginn zu setzen? Es ist mir bei diversen UserForm-Projekten aufgefallen und ich verwende es auch. Aber warum?!
Vielen Dank! Erich!
Gruß
Lenhard

Hi Lenhard,
hier eine Ergänzung, zwischen den beiden bereits vorhandenen Zeilen:


.Cells(lz, 3) = CDate(TextBoxDatum)  '*#*
With .Range(.Cells(lz, 2), .Cells(lz, 16)).Font
.ColorIndex = 48
.Strikethrough = True
End With
.Protect

Option Explicit verwende ich fast immer. Es scheint zunächst umständlich, die Variablen deklarieren zu müssen.
Aber: Das geht schneller und ist einfacher als die Fehlersuche, wenn man sich mal bei einem Variablennamen verschreibt.
Außerdem hält die Deklaration dazu an, sich ausgehend vom geplanten Inhalt einer Variablen zu entscheiden,
welchen Typ die Variable haben soll.
In VBA kann man unter Extras - Optionen auf dem Reiter Editor einen Haken vor
"Variablendeklaration erforderlich" setzen. Dann braucht man bei neuen Modulen das "Option Explicit"
nicht mehr hinzuschreiben - es steht automatisch da.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm Verschachtellung

17 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)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread