HERBERS Excel-Forum - die Beispiele

Thema: Wenn Wert vorhanden, Wert in Klammern setzen

Home

Gruppe

Ereignis

Problem

Wird in Zeile 1 ein Wert aus Tabelle Data, Spalte A und in Zeile 2 ein Wert aus Spalte Data, Spalte B eingesetzt, soll der Wert in Zeile 1 in Klammern gesetzt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim wks As Worksheet
   Dim iCol As Integer
   Dim sText As String
   If Target.Row > 2 Then Exit Sub
   Set wks = Worksheets("Data")
   iCol = Target.Column
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   If Not IsError(Application.Match(Cells(1, iCol).Value, wks.Columns(1), 0)) And _
      Not IsError(Application.Match(Cells(2, iCol).Value, wks.Columns(2), 0)) Then
      Cells(1, iCol) = "(" & Cells(1, iCol).Value & ")"
   End If
   sText = Cells(1, iCol)
   sText = Replace(sText, "(", "")
   sText = Replace(sText, ")", "")
   If Not IsError(Application.Match(sText, wks.Columns(1), 0)) And _
      IsError(Application.Match(Cells(2, iCol).Value, wks.Columns(2), 0)) Then
      Cells(1, iCol) = sText
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Worksheet_Change auf 2 Zellen anwenden Mit Change() o. Calculate() Filtern und Drucken
Grafik nach Change in Exceltabelle laden Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis Namen definiert- in Ereignis verwenden?
Mail Exchange Server Workbook_SheetChange löscht Zwischenspeicher ...
On Worksheet Change - simulieren?! ChangeFileAccess
Zeilen aus- einblenden als Ereignis? Welches Ereignis ist das richtige ??
Ereignis Arbeitsblatt sperren abfangen Worksheet_SelectionChange
Ereignisprozedur f. Multipage-Reiter Frage zum Change ereignis
Fehler bei Changelink Worksheet_SelectionChange bzw. Interior
Change Kein Change in Combobox erlauben(wenn false)
Überprüfung von Zellen mit Worksheet change SheetChange_Endlosschleife
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Bei "Worksheet_Change" aktuelles Datum in J3
Worksheet_Activate() / Worksheet_Change() Warum kann ich nicht Worksheet_Change
Welches Diagramm-Ereignis? Bestimmtes Ereignis in Spalte zählen
Command Button Ereignis Ereignis von Laufzeit-Checkbox
change-ereignis bei dynamischen Controls / Teil 2 Change Ereignis verhindern
Workcheet-Change / Schleife..... change-ereignis bei dynamisch erstellten Controls
Worksheet_Change auf Spalten beschränken Worksheet_Change ohne aktive Zelleingabe
Private Sub Worksheet_Change(ByVal Target As Range For Each CheckBox, Change Value
Change(ByVal Target as range ComboBox.Change - ComboBox.Load Problem
Zwei Mal If inersect Ranges nach Worksheet change Schaltfläche - Ereignis erst nach Bestätigung ausl
SelectionChange - Change - Reihenfolge? Schleife bei Worksheet_Change
Objekt_Error - Ereignis in UserForm "Private Sub Worksheet_Change" deaktivieren