Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Change Wichtig



Excel-Version: 9.0 (Office 2000)

Betrifft: Change Wichtig
von: Mohamed
Geschrieben am: 28.05.2002 - 17:09:53

Ich habe ein change bei einem Worksheet ich will aber das der change nur anspringt wenn es manuelle eingaben sind , bei eingaben über denn quelltext sollte es nicht anspringen

  

Re: Change Wichtig
von: Klaus Schubert
Geschrieben am: 28.05.2002 - 18:34:50

Hallo Mohamed,

versuch's mal über eine Wahr/Falsch-Abfrage, z.B. so:

In das Klassenmodul des entsprechenden Tabellenblattes folgenden Code:


Dim QuelltextEingabe As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

If QuelltextEingabe = False Then
MsgBox "Manuelle Eingabe"
End If
End Sub

Sub EingabeÜberQuelltext()
QuelltextEingabe = True

Range("A1") = "Testtext" 'dein Code zur Quelltexteinagbe

QuelltextEingabe = False 'zurücksetzen

End Sub

Immer QuelltextEingabe = True setzen, wenn nachfolgender Code Einträge macht, danach mit QuelltextEingabe = False wieder zurücksetzen. Das Change-Ereignis wird nur noch ausgelöst wenn QuelltextEingabe = False ist (=Manuelle Eingabe)

Gruß Klaus


  

Re: Change Wichtig
von: Hajo
Geschrieben am: 28.05.2002 - 19:56:49

Hallo Mohamed

Dein Code wäre nicht schlecht gewesen. Darum nur diesen Ansatz


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    Target = Target * 2
    Application.EnableEvents = True
End Sub

Gruß Hajo


 

Beiträge aus den Excel-Beispielen zum Thema "Change Wichtig"