Microsoft Excel

Herbers Excel/VBA-Archiv

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

Zusammenfassung zweier Ereignisse

Betrifft: Zusammenfassung zweier Ereignisse von: Urs
Geschrieben am: 21.08.2008 17:54:19

Hallo an alle Forumsteilnehmer,

wer kann mir sagen, wie sich die nachfolgend genannten zwei Ereignisse innerhalb eines Makros _ zusammenfassen lassen, da sonst der Einstieg über

Private Sub Worksheet Change zu einem Fehler führen würde. Vielen Dank vorab für Eure Hinweise.

Urs

1.)

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Fehler
  'Auf Spalte mit Kundennummer prüfen
  If Target.Column = 19 And Target.Row > 1 And Target.Cells.Count = 1 Then
      Set Zelle = Target
      Me.ComboBox1.Value = Target.Value
  End If
  GoTo Beenden
Fehler:
  MsgBox "Fehler Nr. " & Err.Number & " ist aufgtreten!" & vbLf & vbLf & Err.Description
Beenden:
End Sub



2.)

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim str As String
         
    If Target.Column <> 11 And Target.Count > 1 Then Exit Sub

    With Target
       If .Comment Is Nothing Then
          .AddComment "Erstellt am: " & Date & " - " & Time & _
                      Chr(10) & "Erster Eintrag: " & .Value & _
                      " / " & Application.UserName
       Else
          str = .Comment.Text & Chr(10)
          .Comment.Text str & Chr(10) & "Geändert am: " & _
                        Date & " - " & Time & Chr(10) & _
                        "Änderung: " & .Value & " / " & _
                        Application.UserName
       End If

             .Comment.Shape.TextFrame.AutoSize = True
    End With
    
 End Sub


  

Betrifft: AW: Zusammenfassung zweier Ereignisse von: Matthias L
Geschrieben am: 21.08.2008 18:06:04

Hallo

meinst Du so?



Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Dim Zelle As Range

On Error GoTo Fehler
If Target.Column <> 11 And Target.Count > 1 Then Exit Sub

With Target
  If .Comment Is Nothing Then
   .AddComment "Erstellt am: " & Date & " - " & Time & Chr(10) & "Erster Eintrag: " & .Value & " _
 / " & Application.UserName
  Else
   str = .Comment.Text & Chr(10)
   .Comment.Text str & Chr(10) & "Geändert am: " & Date & " - " & Time & Chr(10) & "Änderung: "  _
& .Value & " / " & _
   Application.UserName
  End If
   .Comment.Shape.TextFrame.AutoSize = True
End With
'--------------------------------------------------------------------------
'Auf Spalte mit Kundennummer prüfen
  If Target.Column = 19 And Target.Row > 1 And Target.Cells.Count = 1 Then
      Set Zelle = Target
      Me.ComboBox1.Value = Target.Value
  End If
  GoTo Beenden

Fehler:
  MsgBox "Fehler Nr. " & Err.Number & " ist aufgtreten!" & vbLf & vbLf & Err.Description

Beenden:
End Sub




Gruß Matthias


  

Betrifft: AW: Zusammenfassung zweier Ereignisse von: Urs
Geschrieben am: 21.08.2008 21:54:10

Hallo Matthias,

vielen Dank für Deine Antwort. So hatte ich mir das vorgestellt.
Allerdings erhalte ich jetzt folgende Fehlermeldung:

Fehler Nr. 13 ist aufgetreten
Typen unverträglich

Zudem wird in der Spalte 11 bei einer Änderung auch kein Kommentar für die geänderte Zelle generiert.

Ich hoffe, Du kannst mir weiterhelfen.

Danke,
Urs


  

Betrifft: AW: Zusammenfassung zweier Ereignisse von: Matthias L
Geschrieben am: 23.08.2008 21:32:16

Hallo

Das scheint ja hier erledigt zu sein
siehe

https://www.herber.de/forum/messages/1004090.html

Gruß Matthias


 

Beiträge aus den Excel-Beispielen zum Thema "Zusammenfassung zweier Ereignisse"