AW: kann ja so nicht funktionieren...
30.01.2011 13:26:59
Michael
Hallo Christian,
ich muss noch sehr viel lernen. Es ist für mich der Sprung ins kalte Wasser und ich lerne in kleinen Schritten, was du bestimmt erkannt hast. Hab deinen Vorschlag übernommen, erhalte aber noch Fehlermeldung bei Application.Match... : "Typen nicht verträglich":
' Ändern/aufrufen der vorhandenen Obj-Adresse
Private Sub cboObj_Change()
Application.ScreenUpdating = False
Dim lngIdx As Long
With Worksheets("Daten_obj")
If Me.cboObj.ListIndex > -1 Then
lngIdx = Application.Match(Me.cboObj, .Columns(1), 0) _
Me.txt_ID_obj_change.Value = .Cells(lngIdx, 1).Value
Me.txt_Firma_obj_change.Value = .Cells(lngIdx, 5).Value
Me.txt_Firma2_obj_change.Value = .Cells(lngIdx, 6).Value
Me.txt_Firma3_obj_change.Value = .Cells(lngIdx, 7).Value
Me.txt_PlzPF_obj_change.Value = .Cells(lngIdx, 8).Value
Me.txt_Strasse_obj_change.Value = .Cells(lngIdx, 9).Value
Me.txt_Plz_obj_change.Value = .Cells(lngIdx, 10).Value
Me.txt_Ort_obj_change.Value = .Cells(lngIdx, 11).Value
Me.txt_Postfach_obj_change.Value = .Cells(lngIdx, 12).Value
Me.txt_Anrede_obj_change.Value = .Cells(lngIdx, 13).Value
Me.txt_Titel_obj_change.Value = .Cells(lngIdx, 14).Value
Me.txt_Vorname_obj_change.Value = .Cells(lngIdx, 15).Value
Me.txt_Name_obj_change.Value = .Cells(lngIdx, 16).Value
Me.txt_Telefon_obj_change.Value = .Cells(lngIdx, 17).Value
Me.txt_Email_obj_change.Value = .Cells(lngIdx, 18).Value
Me.txt_Internet_obj_change.Value = .Cells(lngIdx, 19).Value
Me.txt_info_obj_change.Value = .Cells(lngIdx, 20).Value
End If
End With
' Datensatzanzahl berechnen
Me.txt_obj_IDgesamt_change.Value = Application.WorksheetFunction.Count(Range("A2:A65535" _
))
'Zeilen_sortieren nach Spalte B
'Call Data_sort.Sort_Firma_Obj
If cboObj.ListIndex = -1 Or cboObj.Value = "" Then
cmd_Adress_Obj_change_save.Enabled = False
cmd_Adress_Obj_change_erease.Enabled = False
Else
cmd_Adress_Obj_change_save.Enabled = True
cmd_Adress_Obj_change_erease.Enabled = True
End If
Application.ScreenUpdating = True
End Sub
Mein Dank an dich ist immens!
Gruß,
Michael