Thema Datum  Von Nutzer Rating
Antwort
08.10.2020 17:12:19 Dominik
NotSolved
Blau Inhalt aus Spalte auslesen wenn Wert in selber Reihe zutrifft
 08.10.2020 18:02:34 Gast92198
****
NotSolved
09.10.2020 10:45:53 Gast88146
NotSolved
09.10.2020 11:33:18 Werner
*****
Solved
09.10.2020 11:45:10 Dominik
NotSolved

Ansicht des Beitrags:
Von:
Gast92198		 Datum:
08.10.2020 18:02:34		 Views:
501		 Rating:
     
Antwort:
  Ja
Thema:
Inhalt aus Spalte auslesen wenn Wert in selber Reihe zutrifft

Ansatz:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim rngCell As Excel.Range
  Dim lr2 As Long
  
  On Error GoTo ErrHandler
  
  Application.EnableEvents = False
  
  'alle geänderten Zellen abarbeiten
  For Each rngCell In Target.Cells
    
    Select Case rngCell.Column
      
      Case 7 'Spalte G
        
        Select Case rngCell.Value
          
          Case "Erledigt"
            
            lr2 = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row + 1
            Rows(rngCell.Row).Copy
            Sheets("Archiv").Rows(lr2).PasteSpecial Paste:=xlValues
            Rows(rngCell.Row).Delete
          
          Case "Dringend"
            
            Cells(rngCell.Row, "C").Copy
            'nach Worksheets("Dringend") Spalte A kopieren
            
          Case "In Arbeit"
            
            Cells(rngCell.Row, "C").Copy
            'nach Worksheets("In Arbeit") Spalte A kopieren
            
        End Select
        
    End Select
    
  Next
  
SafeExit:
  
  Application.EnableEvents = True
  
Exit Sub
ErrHandler:
  Call MsgBox(Err.Description, vbCritical, Me.Name & Err.Number, Err.HelpFile, Err.HelpContext)
  GoTo SafeExit
End Sub

 

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
08.10.2020 17:12:19 Dominik
NotSolved
Blau Inhalt aus Spalte auslesen wenn Wert in selber Reihe zutrifft
 08.10.2020 18:02:34 Gast92198
****
NotSolved
09.10.2020 10:45:53 Gast88146
NotSolved
09.10.2020 11:33:18 Werner
*****
Solved
09.10.2020 11:45:10 Dominik
NotSolved