Visual Basic-Quellcode
- Private Sub UserForm_Activate()
- Dim iRow As Byte
- iRow = 2
- cboBestehendenBenutzerAuswählen.Clear
- Do Until IsEmpty(ThisWorkbook.Sheets("Passwörter").Cells(iRow, 2)) Or iRow = 255
- cboBestehendenBenutzerAuswählen.AddItem (Sheets("Passwörter").Cells(iRow, 1) & " " & Sheets("Passwörter").Cells(iRow, 3))
- iRow = iRow + 1
- Loop
- End Sub
Ich bekomme hier die Fehlermeldung Index außerhalb des gültigen Bereiches... könnt ihr mir sagen, wo mein Fehler liegt?
VBA streikt in der 6. Zeile...
"Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!
"Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True
"Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True