Werte in Userform anpassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox6_Change() Dim Zeile As Long Dim Zelle As Range Set Zelle = Columns(3).Find(what:=ComboBox6.Value) If Not Zelle Is Nothing Then Zeile = Zelle.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

Hi
die Find-Funktion wurde von Excel 97 auf Excel XP erweitert.
Es könnte also durchaus sein, daß es da zu Problemen kommt.
Allerdings nutzt du die neuen Parameter nicht, von daher sollte es eigentlich kein Problem geben.
Ansonsten halt einfach mal in Excel 97 die BEARBEITEN - SUCHEN - Funktion (=FIND in VBA) mit dem Makrorecorder aufzeichnen und in das Makro entsprechend Abgeändert einfügen. Dann sollte dein Makro auch in Excel 97 laufen.
Eine Andere Möglichkeit wäre, daß Excel 97 noch nicht damit umgehen kann, wenn der Suchwert nicht vorhanden ist und daher einen Fehler produziert.
in diesem Fall müsstest du bspw. über die COUNTIF-Funktion Abbrüfen, ob der der Wert (Combobox6.Value) überhaupt in der der Spalte 3 vorhanden ist:


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

Gruß, Daniel

hmmmmmm.....
besten dank das du dich da nochmal mit beschäftigt hast, aber leider geht es immernoch nicht......
die beiden möglickeiten ausprobiert aber es ist immer das gleiche,
nach workbook_open klappt es wunderbar nur wenn man die userform dann zu macht und sie nochmal aufmachen will kommt gleich die fehlermedung..... allerdings halt nur bei excel 97, bei 2003 geht es immer.....
wenn man aber workbook_open raus nimmt und dann nach dem starten die userform auf machen will kommt der fehler gleich...... es scheint also so zu sein das er beim starten der tabelle den fehler noch nicht bemerkt und wenn die userform erstmal offen ist es kein problem mehr gibt.....
ich bin echt am verzweifeln :-(
gruß marko

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in Userform anpassen

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread