Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Activate

Activate
13.12.2003 14:47:21
Rainer
Hallo Exceler,
wer kann mir einen Tipp geben, in dieser Suchen /
Weitersuchen-Routine bei einem Treffer den
Datensatz so zu aktivieren, dass ich ihn geändert zurückschreiben kann. Die Suche wird in der Userform mit dem CommandButton3 angestoßen. Bei jedem Treffer hält das Script an und liest mir die Daten ordentlich in die Maske. Nur - der Datensatz (Zeile) wird nicht aktiviert!!!
Was fehlt nur????? Kann mir einer auf die Sprünge helfen????????
Die Variablen habe ich ins Modul gesetzt!

'Modul
Option Explicit
Public grng As Range
Public gfirstRng As Range

Gruß Rainer
Hier das Listing


Private Sub CommandButton3_Click()
If grng Is Nothing Then
Set grng = ActiveSheet.Columns("A").Find( _
What:=TextBox1.Value, _
LookIn:=xlFormulas, LookAt:=xlPart)
If Not grng Is Nothing Then
Set gfirstRng = grng
Else
MsgBox "Das Objekt : " & _
TextBox1.Value & " konnte nicht gefunden werden!"
Exit Sub
End If
End If
With grng
TextBox1.Value = .Value
TextBox2.Value = .Offset(0, 1).Value
TextBox10.Value = .Offset(0, 2).Value
TextBox4.Value = .Offset(0, 3).Value
CheckBox1.Value = .Offset(0, 4).Value
TextBox5.Value = .Offset(0, 5).Value
TextBox11.Value = .Offset(0, 6).Value
TextBox12.Value = .Offset(0, 7).Value
TextBox3.Value = .Offset(0, 8).Value
TextBox9.Value = .Offset(0, 9).Value
TextBox8.Value = .Offset(0, 10).Value
ComboBox8.Value = .Offset(0, 11).Value
ComboBox6.Value = .Offset(0, 12).Value
ComboBox7.Value = .Offset(0, 13).Value
ComboBox4.Value = .Offset(0, 14).Value
TextBox6.Value = .Offset(0, 15).Value
ComboBox5.Value = .Offset(0, 16).Value
TextBox7.Value = .Offset(0, 17).Value
End With
Set grng = ActiveSheet.Columns("A").FindNext(grng)
If grng.Address = gfirstRng.Address Then
MsgBox "Das ist die letzte Fundstelle."
Set grng = Nothing
End If
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Activate
13.12.2003 14:52:05
Ulf
With grng
'-----------------------
.activate
'-----------------------
TextBox1.Value = .Value
TextBox2.Value = .Offset(0, 1).Value
TextBox10.Value = .Offset(0, 2).Value
TextBox4.Value = .Offset(0, 3).Value
CheckBox1.Value = .Offset(0, 4).Value
TextBox5.Value = .Offset(0, 5).Value
TextBox11.Value = .Offset(0, 6).Value
TextBox12.Value = .Offset(0, 7).Value
TextBox3.Value = .Offset(0, 8).Value
TextBox9.Value = .Offset(0, 9).Value
TextBox8.Value = .Offset(0, 10).Value
ComboBox8.Value = .Offset(0, 11).Value
ComboBox6.Value = .Offset(0, 12).Value
ComboBox7.Value = .Offset(0, 13).Value
ComboBox4.Value = .Offset(0, 14).Value
TextBox6.Value = .Offset(0, 15).Value
ComboBox5.Value = .Offset(0, 16).Value
TextBox7.Value = .Offset(0, 17).Value
End With
Anzeige
AW: Activate
13.12.2003 15:02:34
Rainer
Hallo Ulf,
das ist einfach genial - genial einfach.
E S L Ä U F T
Vielen Dankkkkkk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige