AW: VBA Makro Fehlermeldung
15.10.2008 14:29:00
Felix
Hallo Heinz,
das habe ich leider nicht ganz verstanden. Welche Verweise soll ich wie prüfen? Der Fettkursive Teil im code, also das "set ws = worksheets"bestellungen") wird markiert
Wäre für Hilfe dankbar.
Felix
Hier ist der code:
Private Sub UserForm_Initialize()
Sheets("Bestellungen").Activate
Dim bZeile As Long
Set ws = Worksheets("Bestellungen")
For bZeile = 2 To ws.Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(ws.Range("L2:L" & bZeile), ws.Cells(bZeile, 12)) = 1 Then _
cbx_Teilegruppe_auswählen.AddItem ws.Cells(bZeile, 12)
Next bZeile
Sheets("Bestellungen").Activate
Dim jZeile As Long
Set wk = Worksheets("Bestellungen")
For jZeile = 2 To wk.Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(wk.Range("A2:A" & jZeile), wk.Cells(jZeile, 1)) = 1 Then _
cbx_Lieferanten_auswählen.AddItem wk.Cells(jZeile, 1)
Next jZeile
Sheets("Bestellungen").Activate
Dim tZeile As Long
Set wt = Worksheets("Bestellungen")
For tZeile = 2 To wt.Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(wt.Range("U2:U" & tZeile), wt.Cells(tZeile, 21)) = 1 Then _
cbx_Kontoname_auswählen.AddItem wt.Cells(tZeile, 21)
Next tZeile
End Sub