Thema Datum  Von Nutzer Rating
Antwort
11.04.2018 17:14:13 Joshua Bär
NotSolved
Blau Makro bei eingabe ausführen und Nachbarzelle kopieren
 11.04.2018 20:25:59 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
11.04.2018 20:25:59		 Views:
544		 Rating:
     
Antwort:
  Ja
Thema:
Makro bei eingabe ausführen und Nachbarzelle kopieren

Hallo Joshua,

die Infos deinerseits sind mehr als dürftig, deshalb auch nur eine allgemein gehaltene Antwort. Siehe Beschreibung im Code. Hierbei handelt es sich um ein Ereignismakro. Das gehört ins Codemodul des Tabellenblattes, auf dem sich der Code auswirken soll.

-Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.

Private Sub Worksheet_Change(ByVal Target As Range)
'Eingabe nur in einer einzelnen Zelle möglich
If Target.Count > 1 Then Exit Sub
'Code wirkt sich nur in Spalte D (=4) aus
If Target.Column = 4 Then
    'Code wirkt sich nur ab Zeile 2 aus
    If Target.Row >= 2 Then
        If Not Target Is Nothing Then
            'links neben der Eingabezelle = Offset(0, -1) wobei der erste
            'Wert in der Klammer der Zeilenversatz, der zweite Wert der
            'Spaltenversatz ausgehend von der Eingabezelle ist. Negative Werte
            '=Versatz nach links, positive Werte =Versatz nach rechts
            'das Address(0, 0) bitte weglassen, ist nur um es dir in
            'der MessageBox zu zeigen
            MsgBox "Ich bin die Zelle links neben der Eingabezelle:" & vbLf & _
            Target.Offset(0, -1).Address(0, 0)
            MsgBox "Ich bin die Zelle rechts neben der Eingabezelle:" & vbLf & _
            Target.Offset(0, 1).Address(0, 0)
        End If
    End If
End If
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.04.2018 17:14:13 Joshua Bär
NotSolved
Blau Makro bei eingabe ausführen und Nachbarzelle kopieren
 11.04.2018 20:25:59 Werner
NotSolved