Falsche Spalte wird eingelesen
27.11.2006 12:55:22
Josef
Mit unstehendem Makro soll in einer Userform folgendes passieren:
Wird das Sheet "Schalter" aktiviert, dann sollen die Daten aus der Spalte B von diesem Sheet eingelesen werden.
Wird das Sheet" Verrechnung SU" aktiviert, dann sollen die Daten aus der Spalte B diese Arbeitsblattes eingelesen werden.
wenn ich jetzt das Sheet "Schalter" manuell aktiviere und dann die Userform starte so wird trotzdem die Spalte B aus dem Sheet"Verrechnung SU" eingelesen.
Wo habe ich hier bitte den Fehler gemacht?
Danke
Josef
Private Sub cboLesen6_Enter()
' cboLesen4.Clear
' cboLesen2.Clear
cboLesen3.Text = ""
If Sheets("Schalter").Activate And ComboBox35.Value = True Then
Dim aRow2, iRow2 As Long
Dim col2 As New Collection
Dim wks2 As Worksheet
Set wks2 = Workbooks("Gesundheitswesen Wien.xls").Worksheets("Schalter")
cboLesen6.Clear
aRow2 = IIf(IsEmpty(wks2.Range("A65536")), wks2.Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow2 = 2 To aRow2
With wks2
col2.Add wks2.Cells(iRow2, 1), wks2.Cells(iRow2, 2)
If Err = 0 Then
cboLesen6.AddItem .Cells(iRow2, 2)
Else
Err.Clear
End If
End With
Next iRow2
On Error GoTo 0
'Call Sortieren_CboN5
Else
If Sheets("Verrechnung SU").Activate Then
Dim aRow, iRow As Long
Dim col As New Collection
Dim wks As Worksheet
Set wks = Workbooks("Gesundheitswesen Wien.xls").Worksheets("Verrechnung SU")
cboLesen6.Clear
aRow = IIf(IsEmpty(wks.Range("A65536")), wks.Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 2 To aRow
With wks
col.Add wks.Cells(iRow, 1), wks.Cells(iRow, 2)
If Err = 0 Then
cboLesen6.AddItem .Cells(iRow, 2)
Else
Err.Clear
End If
End With
Next iRow
On Error GoTo 0
'Call Sortieren_CboN5
End If
End If
End Sub