Dieser Code ohne Select !!, Bitte um Hilfe
06.12.2005 10:44:51
Thomas
Ich benötige mal wieder eure Hilfe, ich kann ich nachfolgenden Code ohne Select anweisung schreiben, oder den gesamten Code kurzer schreiben...
Der Code Läuft in einer Userform und such in Spalte F nach einer Straße die in der ComBoBox steht. Aber seht eich den Code einfach mal an.
Schon mal danke für EURE hilfe...
Sub BaustelleSuchen1() 'Baustelle Suchen
Set frm = Auftragsverwaltung 'User einfacher Aufrufen
With frm 'Welche UserForm is
Application.ScreenUpdating = False ' Bildschirmupdate
Worksheets("AuftragSpeichern1").Range("F:F").Select 'Auswahl der Arbeitsmappe
On Error GoTo Fehler 'Springe zu Fehler
Selection.Find(What:=.ComboBox9.Value, _
after:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False).Activate
.TextBox7.Value = ActiveCell.Offset(0, 70).Value
.TextBox78.Value = ActiveCell.Offset(0, 71).Value
.TextBox79.Value = ActiveCell.Offset(0, -5).Value
.TextBox8.Value = ActiveCell.Offset(0, -4).Value
.TextBox9.Value = ActiveCell.Offset(0, -3).Value
.ComboBox8.Value = ActiveCell.Offset(0, -2).Value
.TextBox11.Value = ActiveCell.Offset(0, -1).Value
.ComboBox9.Value = ActiveCell.Offset(0, 0).Value
.TextBox14.Value = ActiveCell.Offset(0, 1).Value
.ComboBox10.Value = ActiveCell.Offset(0, 2).Value
.OptionButton23.Value = ActiveCell.Offset(0, 3).Value
.OptionButton24.Value = ActiveCell.Offset(0, 4).Value
.OptionButton25.Value = ActiveCell.Offset(0, 5).Value
.OptionButton26.Value = ActiveCell.Offset(0, 6).Value
Diese ist nur ein Auszug aber sinn gemäß müßte es stimmen.