weiteren Doppelklick "Simulieren" ?
28.01.2017 10:22:01
Andi
Hallo,
kleines Problem mit UF öffnen-schließen.
Der Code hier macht eigentlich alles zur Zufriedenheit:
Im Normalfall werden die Datenreihen Zellenweise von oben nach unten abgearbeitet.
Doppelklick in "C" öffnet UF1 alles i.O.
Jetzt ein Sonderfall-
Doppelklick in "C" öffnet UF1 , ein weiterer Doppelklick schließt UF1 , nun kann man in "C" scrollen um dann wieder mit "Doppelklick" die UF1 in "C" zu öffnen. Dabei ist auch die aktive Zelle die nun aktuelle in "C"- die bearbeitet werden soll...
Aber
Führe ich die Bearbeitung aus- wird ein Teil Daten in die vorhergehenden Zellen eingefügt- jedoch nicht in die zu Schluss angewählte aktive Zeile.
Ich möchte aber auch die anderen Bearbeitungscode nicht verändern- da sie alle laufen und teilweise auf einander aufbauen.
Abhilfe schafft hier jedoch folgender Ablauf- den ich getestet habe-
Doppelklick in C UF1 öffnet sich- -- nun merken in welcher Zelle C er ausgeführt wurde -
dann UF1 wieder schließen (evtl. mit
Unload Me) als nächste Anweisung UF1 wieder öffnen und nochmals einen Doppelklick in " C Simulieren" - und genau dort wo sich der letzte Doppelklick gemerkt wurde.
Kann man das als IF Anweisung zusammensetzen?
Mag zwar so Programmiertechnisch merkwürdig sein- aber egal :-)
Wie gesagt- der Ablauf so würde gehen.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
If Target.Column = 3 Then
If UserForm1.Visible Then
UserForm1.Hide 'Userform ausblenden
Else
UserForm1.Show vbModeless 'Userform anzeigen
End If
Cancel = True
End If
End Sub
Grüße Andi
Anzeige