makro läuft nur einmal unter excel97
27.06.2008 12:52:25
Marko
ich trage werte über eine userform in ein tabellenblatt ein.... die userform selbst läd sich immer mit einigen der zuletzt eingetragenen werten...... bis dahin alles prima......
nun wollte ich die combobox6 der userform (auftrag) so haben das wenn dort nicht der letzte, sondern der z.b. drittletzte wert eingegeben wird, sich die restlichen text und comboboxen angleichen mit den dazugehörigen werten
dazu habe ich hier im forum zwei combobox6_change code bekommen..... den einen habe ich eingefügt und den anderen steht hier mit drin!
nun das problem.... unter excel 2003 funktioniert das wunderbar aber unter excel 97 nicht....
und zwar geht es unter excel 97 nur einmal und zwar wenn die userform gleich mit workbook_open geöffnet wird...... schließt man die userform dann und will sie wieder über den butten eintragen auf machen kommt ein laufzeitfehler... ( die find eigendschaft des range objekt kann nicht zugeortnet werden )
obwohl es doch beim starten 100 % funktioniert hat!
hier nun der zweite code und die beispieltabelle
Private Sub ComboBox6_Change()
Dim Zeile As Long
IF Worksheetfunction.CountIf(Columns(3), Combox6.Value) > 0 then
Zeile = Columns(3).Find(what:=ComboBox6.Value).Row
TextBox3.Value = Cells(Zeile, 10) 'Zeit
TextBox5.Value = Cells(Zeile, 4) 'Durchmesser
TextBox6.Value = Cells(Zeile, 6) 'Wohin
TextBox7.Value = Cells(Zeile, 5) 'Werkstoff
End If
End Sub
und hier die tabelle
https://www.herber.de/bbs/user/53405.xls
diese zeile wird in beiden code dann immer gelb im debugger
Zeile = Columns(3).Find(what:=ComboBox6.Value).Row
kann mir da vielleicht nochmal jemand weiterhelfen?
gruß marko