Re: ClearContents aus Userform
06.08.2002 09:33:16
Micha
Hallo, da bin ich wiederDie Deklaration:
Option Explicit
Public rngWo As Range 'geklickte Zelle
Dim WannDaten() 'Feld für Listbox
Dim Zeile As Long '
Dim Name As String 'gewählter Name
Vielleicht noch ein paar Infos!
Der Code bricht ab, nachdem die Zeile ......ClearContents ausgeführt wurde.Alles was danach kommt wird ignoriert. Allerdings ohne Fehlermeldung.Und die Userform wird entladen.
Bricht der Nutzer den Code ab, indem er auf "Nein" in der MsgBox klickt bleibt die Userform sichtbar und auch funktionell.
Der Werdegang ist im Prinzip so:
Im Tabellenblatt wird durch Rechtsklick auf eine Zelle ein gesuchter Name ausgewählt.
Der Code listet alle Datensätze die dem Namen entsprechen in einer Listbox auf.
Die daten werden vorher in ein Feld eingelesen (WannDa()) Es enthält auch die Info über die Zeile.
Wenn der Nutzer dort einen Eintrag selektiert wird automatisch
der entsprechende Datensatz im Tabellenblatt markiert.
Im Klickereignis des Listenfeldes:
Private Sub ListBox1_Click()
Call ZeileZeigen(ListBox1.ListIndex)
End Sub
Sub ZeileZeigen(I As Long)
Zeile = WannDaten(5, I + 1)
UserForm1.Label7.Caption = "Die ausgewählten Daten" & vbLf & "befinden sich in" & vbLf & _
"Zeile " & Zeile
ActiveSheet.Cells(Zeile, 6).Select
UserForm1.Löschen.Enabled = True 'Löschbutton
End Sub
Private Sub Löschen_Click()
Call DatenLöschen
End Sub
Und da sind wir beim Problem
Guten Morgen!
Wenn ich Dich nerve, dann sag's
Micha