Thema Datum  Von Nutzer Rating
Antwort
14.05.2020 10:41:44 Gast1405
NotSolved
14.05.2020 10:43:21 Gast1405
NotSolved
Rot If target geht nicht
 14.05.2020 10:50:42 Gast91031
NotSolved
14.05.2020 11:11:47 Gast40368
NotSolved
14.05.2020 11:28:09 Gast78332
NotSolved
14.05.2020 12:06:53 Gast1405
NotSolved
14.05.2020 13:04:05 Gast78332
NotSolved
14.05.2020 12:00:59 Gast91767
NotSolved

Ansicht des Beitrags:
Von:
Gast91031		 Datum:
14.05.2020 10:50:42		 Views:
631		 Rating:
     
Antwort:
  Ja
Thema:
If target geht nicht

hier mal richtig formatiert

 

Private Sub Worksheet_Activate()
    If Target.Column = 13 Then
        '?nderung in Spalte M
        If Target.Interior.ColorIndex = 3 Then
        'rot markiert in spalte M
            lrow = Sheets("Erfassen").Range("A65536").End(xlUp).Row + 1 '1. freie Zeile wird ermittelt
            Range("A" & Target.Row & ":O" & Target.Row).Cut
            Sheets("Abgelaufen").Range ("A" & lrow & ":O" & lrow) 'spalte ausschneiden und in anderem Register einf?gen
        End If
    End If
End Sub

 

diese Makro hat im Activate()-Ereignis nüscht zu suchen...

schreib es ins Worksheet_Change

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
14.05.2020 10:41:44 Gast1405
NotSolved
14.05.2020 10:43:21 Gast1405
NotSolved
Rot If target geht nicht
 14.05.2020 10:50:42 Gast91031
NotSolved
14.05.2020 11:11:47 Gast40368
NotSolved
14.05.2020 11:28:09 Gast78332
NotSolved
14.05.2020 12:06:53 Gast1405
NotSolved
14.05.2020 13:04:05 Gast78332
NotSolved
14.05.2020 12:00:59 Gast91767
NotSolved