UF startet nicht; Code ändern möglich?
17.10.2007 20:34:05
Wolfgang
den/die untenstehenden Codes habe ich aus der "Herbers-Excel-CD"; Sie befinden sich hinter einer UF mit Textboxes (1-3) und einem Klappfeld. Das UF läßt sich nicht starten, es erscheint Laufzeitfehler 381 "Could not set the List property"; Ich würde den/die Codes gerne abwandeln, dass mir lediglich der Bereich von C5:C26 in den Textboxes angezeigt wird und über Löschen dann die jeweils angesprochene Zelle gelöscht wird, sämtliche darunter befindlichen Zellen nach oben verschoben werden und jeweils nach unten eine leere Zelle mit weißem Hintergrund wieder 'drangehängt wird. Wäre so etwas denkbar? - Was bedeutet die vorgenannte Fehlermeldung konkret? - Danke schon jetzt allen für die Rückmeldung.
Herzliche Grüße
Wolfgang
Option Explicit
'*** Datensatz in TextBoxes einlesen ***
Private Sub cbbDaten_Change()
' Variablendeklaration
Dim intCounter As Integer
' Schleife über alle Spalten
For intCounter = 1 To 3
' Werte in TextBoxes eintragen
Controls("txtSpalte" & intCounter).Text = _
Cells(cbbDaten.ListIndex + 1, intCounter)
Next intCounter
End Sub
'*** Datensatz Editieren ***
Private Sub cmdEditieren_Click()
' Variablendeklaration
Dim intCounter As Integer
' Schleife über alle Spalten
For intCounter = 1 To 3
' Editierte Daten in Zellen eintragen
Cells(cbbDaten.ListIndex + 1, intCounter) = _
Controls("txtSpalte" & intCounter).Text
Next intCounter
End Sub
'*** Datensatz löschen ***
Private Sub cmdLoeschen_Click()
' Ausgewählten Datensatz löschen
Rows(cbbDaten.ListIndex + 1).Delete
' Daten neu einlesen und in TextBoxes eintragen
cbbDaten.List = ActiveSheet.UsedRange
' Ersten Datensatz auswählen
cbbDaten.ListIndex = 0
End Sub
'*** Dialog beenden ***
Private Sub cmdWeiter_Click()
Unload Me
End Sub
'*** UserForm initialisieren ***
Private Sub UserForm_Initialize()
' Datensätze in ComboBox einlesen
cbbDaten.List = ActiveSheet.UsedRange
End Sub