Fehler im VBA Code
28.11.2006 12:18:56
Josef
Wenn ich den Wert "Verrechnung SU" in der Combobox33 (Userform)aktiviere so wird im Hintergrund dieses Arbeitsblatt aktiviert und die Daten aus der Spalte A werden eingelesen.
Wenn ich jedoch den Wert "Schalter" in der ComboBox33 aktiviere so wird wiederum die Spalte A aus dem Sheet "Verrechnung SU eingelesen und nicht die Spalte A aus dem aktivierten Blatt "Schalter".
Wo habe ich hier bitte den Fehler gemacht?
Private Sub ComboBox33_Change()
If ComboBox33.Value = "Verrechnung SU" Then
Sheets("Verrechnung SU").Select
Dim Loletzte As Long
Dim LoI As Long
Dim wks As Worksheet
Set wks = Workbooks("Gesundheitswesen Wien.xls").Worksheets("Verrechnung SU")
With wks 'Workbooks("Gesundheitswesen Wien.xls").Worksheets("Verrechnung SU")
Loletzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
For LoI = 2 To Loletzte
ComboBox34.AddItem .Cells(LoI, 1)
Next LoI
End With
End If
If ComboBox33.Value = "Schalter" Then
Sheets("Schalter").Select
Dim Loletzte2 As Long
Dim LoI2 As Long
Dim wks1 As Worksheet
Set wks1 = Workbooks("Gesundheitswesen Wien.xls").Worksheets("Schalter")
With wks1 'Workbooks("Gesundheitswesen Wien.xls").Worksheets("Schalter")
Loletzte2 = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
For LoI2 = 2 To Loletzte2
ComboBox34.AddItem .Cells(LoI2, 1)
Next LoI2
End With
End If
End Sub
Danke
Josef